Postup:
V deklarační části
formuláře zapište:
#If Win32 Then
Private Declare Function GetDriveType Lib "kernel32" Alias
_
"GetDriveTypeA" (ByVal nDrive As String) As Long
#Else
Private Declare Function GetDriveType Lib "kernel" _
(ByVal nDrive As Integer) As Integer
#End If
Function Freedrive()
Dim DriveNum As Integer, FirstFreeDrive As String
Dim FirstDrive As Integer
DriveNum = -1
Do
DriveNum = DriveNum + 1
#If Win32 Then
NextDrive$ = Chr$(DriveNum + 67) + ":\"
'67
proto, aby to přeskočilo diskety
FirstDrive% =
GetDriveType(NextDrive$)
#Else
FirstDrive% = GetDriveType(DriveNum)
#End If
#If Win32 Then
Loop Until FirstDrive% = 1
#Else
Loop Until FirstDrive% = 0
#End If
FirstFreeDrive = Chr$(DriveNum + 67) + ":"
Freedrive = FirstFreeDrive
End Function
Na formulář přidejte tlačítko. Na událost Click tlačítka:
Private Sub Command1_Click()
MsgBox FreeDrive()
End Sub
|