Category : BASIC Source Code
Archive   : VBADD102.ZIP
Filename : DISKSUPP.BAS

 
Output of file : DISKSUPP.BAS contained in archive : VBADD102.ZIP

ü
ôÁ ¢ rXZ½ðÖªäAå&Fˆ”³º•KÁŽDisplayDiskFreeSpace: DriveLetter FreeSpaceÂDiskGetFreeSpaceãMainkDisplayDiskData»i‚DiskGetFirstFile
FILE_VOLIDFindDataüFileNamea FindDataTypesll«DisplayDiskLabel>DisplayDiskDirectory DirectoryVDitAttr`DirAttr2DimStartString, StartStringDiskGetNextFileòDisplayHiddenFilesÆ FILE_HIDDENÔFileAttr
FILEHIDDENg FILE_SUBDIR FILE_SYSTEMDisplaySystemFilesïDisplayArchiveFilesØ FILE_ARCHÉjj¯FileNameWorkvAsciizToFilled TextTextLenPZeroPosAsciizToPaddedœAsciizToVariableAsciiToVariableFindName
LabelFound DisplayForm specifieddreive
DisplaySubDirsFILE_€DisplayNormalFiles/ FILE_NORMALFileTimeSerial\ TimeIntegerHourWorkrMinWorkSecWork
MinuteWorkDisplayWildCardsWildCardTestDiskSupport
MainWindowvvvH This file contains numerous examples of the Disk Information Supportv* functions provided by the VBADDONS.DLLvvG Proper utilization requires that the appropriate Declare, Type, anddvH Const statements have been copied to the global module file from thev3 VBADDONS.BAS global module or VBADDONS.TXT filelv ÿÿÿÿÿÿÿÿ DisplayDiskFreeSpace0V\XZÉ€r€vvW This subroutine displays the amount of fress space available on the specified driveev üž
vv Get free space via DLLv rŽ vv Display free spacev Éefí&Free Space on Disk " r£íH: ="£t u9 ÿÿÿÿÿÿÿÿDisplayDiskLabel0¸ÞXÉ€r€vvC This subroutine displays the disk label for the specified drive-vüŠ
»üšü
äüª
:vv Get disk label via DLLv rí è:\*.*"£ Ö ä » »äßI’v- Change filename to variable length stringi äðˆ :v( Remove possible period from filename :íÀ."º , ,äßI :   : ,ä÷Á :   ,÷Ì£ :8vv Display disk labellv ÉefíTLabel on disk in Drive "t rtí|: = t :u2Ú ÉefíDisk in Drive t rtí

has no label"u89 ÿÿÿÿÿÿÿÿ%DisplayHiddenFiles0,HX•É€r€>€vvP This subroutine displays the hidden files found in the specified path on thev specified drive vvK Searching for hidden files requires both the FILE_HIDDEN and FILE_SYSTEMMvN attributes to be used if files with both attributes set on are to be found.v? The test in the WHILE/WEND loop prints only the hidden filessvü¬ü
äü¼
süÌ
:vv Build starting stringav rí:"£ >£í\*.*£ sv s « ãõ ä ½ ½äßI ÉefíxHidden Files in t su ½äßZ  亩 «¤îIð äðˆ : Éef :u8 ä‚ ½Y”2D ÉefíNo hidden files in "t su89 ÿÿÿÿÿÿÿÿ!AsciizToVariable0@ˆÆX€vvL This function takes an ASCIIZ string (terminated by null) as it argumentv: and returns a traditional variable length Basic stringüÄ
k X䬺 k käßI X kä÷Á ˆ2 X ˆ89 ÿÿÿÿÿÿÿÿDisplaySystemFiles00LXòÉ€r€>€vvP This subroutine displays the system files found in the specified path on thev specified drive vvK Searching for hidden files requires both the FILE_HIDDEN and FILE_SYSTEMnvN attributes to be used if files with both attributes set on are to be found.v? The test in the WHILE/WEND loop prints only the system filesivü¬ü
äü¼
süÌ
:vv Build starting stringWv rí:"£ >£í\*.*£ sv s « ãõ ä ½ ½äßI ÉefíxSystem Files in t su ½äßZ  亩 ã¤îIð äðˆ : Éef :u8 ä‚ ½Y”2D ÉefíNo system files in "t su89 ÿÿÿÿÿÿÿÿ#DisplaySubDirs0ÎêXïÉ€r€>€vvR This subroutine displays the subdirectories found in the specified path on thev specified drive vvP Since the FILE_SUBDIR attribute also returns normal files, the If within thev0 While/Wend loop screens out the normal filesvüNü
äü^
sün
:vv Build starting stringWv ríª:"£ >£í¼\*.*£ sv s Ô ä ½ ½äßI° ÉefíSubdirectories in t su ½äßZª 亩 Ô¤îIŽ äðˆ : Éef :u8 ä‚ ½Y22ä ÉefíNo subdirectories in "t su89 ÿÿÿÿÿÿÿÿ!DisplayNormalFiles04X
É€r€>€vvP This subroutine displays the normal files found in the specified path on thev specified drive vü¸ü
äüÈ
süØ
:vv Build starting stringWv rí:"£ >£í&\*.*£ sv s  ä ½ ½äßIü Éefí~Normal Files in t su ½äßZö äðˆ : Éef :u ä‚ ½Yš2. ÉefíNo normal files in "t su89 ÿÿÿÿÿÿÿÿDisplayWildCards0(DX€É€r€”€vvP This subroutine displays the normal files found in the specified path on thev, specified drive using a wildcard patternvüÐü
äüà
süð
:vv Build starting stringav rí,:"£ ”£ sv s  ä ½ ½äßI ÉefíˆWildCard Files in t su ½äßZ äðˆ : Éef :u ä‚ ½Y¦2< ÉefíNo WildCard files in "t su89 ÿÿÿÿÿÿÿÿTestDiskSupport0XX É€ü*ü
ä Éí8c"$Z ÉíXc"$ Éíxc"í†$• Éí¢c"í°$ò ÉíÌC"íÚ$ï Éíöc"í \windows$ï Éí(C"í6\windows\*.bmp$€9 ÿÿÿÿÿÿÿÿý