home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_BAS
/
WLIB10.ZIP
/
WINGLIB.SRC
< prev
next >
Wrap
Text File
|
1994-01-23
|
1KB
|
31 lines
Option Explicit
Declare Function DiskFreeSpace& Lib "WINGLIB.DLL" (ByVal Drive%)
Dim DriveNbr As Integer
Dim FreeSpace As Long
Dim FreeSpaceKB As Long
Sub ButtonExit_Click ()
End
End Sub
Sub Drive1_Change ()
Screen.MousePointer = 11
DriveNbr = Asc(UCase(Drive1.Drive)) - 64 'Change Drive Letter to Number
FreeSpace = DiskFreeSpace(DriveNbr) 'Call "WINGLIB.DLL"
FreeSpaceKB = FreeSpace& / 1024 'Compute KB
LabelSpace1.Caption = Format$(FreeSpace, "###,###,##0")
LabelSpace2.Caption = Format$(FreeSpaceKB, "###,###,##0")
Screen.MousePointer = 0
End Sub
Sub Form_Load ()
DriveNbr = Asc(UCase(Drive1.Drive)) - 64 'Change Drive Letter To Number
FreeSpace = DiskFreeSpace(DriveNbr) 'Call "WINGLIB.DLL"
FreeSpaceKB = FreeSpace / 1024 'Compute KB
LabelSpace1.Caption = Format$(FreeSpace, "###,###,##0")
LabelSpace2.Caption = Format$(FreeSpaceKB, "###,###,##0")
Exit Sub
End Sub