Nalezení volného písmene disku

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
   

Zpět

Autor: The Bozena