Option Explicit
Private Declare Function GetLogicalDrives Lib "Kernel32" () As Long
Private Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetDiskFreeSpaceEx Lib "Kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpDirectoryName As String, lpFreeBytesAvailableToCaller As Currency, lpTotalNumberOfBytes As Currency, lpTotalNumberOfFreeBytes As Currency) As Long
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Private Sub Form_Load()

Dim LDs As Long, Cnt As Long, sDrives As String
Dim lpFreeBytesAvailableToCaller As Currency, TotalBytes As Currency, FreeBytes As Currency

Dim sistemaArchivos As String: sistemaArchivos = String$(255, Chr$(0))
Dim volumen As String: volumen = String$(255, Chr$(0))
Dim Nserie As Long


LDs = GetLogicalDrives

For Cnt = 0 To 25
  If (LDs And 2 ^ Cnt) <> 0 Then
    If GetDriveType(Chr$(65 + Cnt) + ":\") = 2 Then
      sDrives = sDrives + " " + Chr$(65 + Cnt)
    'MsgBox GetDriveType(Chr$(65 + Cnt) + ":\")
    End If
  End If
Next Cnt
    
'MsgBox Trim(sDrives)

Dim ssDrives() As String
ssDrives() = Split(Trim(sDrives), " ")

'MsgBox ssDrives(0)
'MsgBox ssDrives(1)

'MsgBox UBound(ssDrives)
If UBound(ssDrives) < 0 Then
  MsgBox "No hay Ubidades extraibles"
  'End 'Exit Sub
End If

Dim i As Long
For i = 0 To UBound(ssDrives)
  
  Call GetDiskFreeSpaceEx(ssDrives(i) + ":\", lpFreeBytesAvailableToCaller, TotalBytes, FreeBytes)
  Call GetVolumeInformation(ssDrives(i) + ":\", volumen, Len(volumen), Nserie, 0, 0, sistemaArchivos, Len(sistemaArchivos))
  'MsgBox ssDrives(i) + ":\" & vbTab & Format(TotalBytes / 102400, "0.00") & " GB"
  Combo1.AddItem (ssDrives(i) + ":\" & "    " & Format(TotalBytes / 102400, "0.00") & " GB") & "    " & Trim(volumen)

Next i

If Combo1.ListCount > 0 Then Combo1.ListIndex = 0

  
End Sub

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwnd As Long, ByVal Drive As Long, ByVal fmtID As Long, ByVal options As Long) As Long

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202

Private Sub Form_Load()

Timer1.Enabled = True
Timer2.Enabled = False
Timer1.Interval = 100
Timer2.Interval = 100

End Sub

Private Sub Command1_Click()

Call SHFormatDrive(Me.hwnd, (Asc("A:") - 65), 0&, 0&)

End Sub

Private Sub Timer1_Timer()

Dim Hwndl As Long

Hwndl = FindWindow("#32770", vbNullString)
Hwndl = FindWindowEx(Hwndl, 0, "Button", "&Iniciar")

If Hwndl <> 0 Then
  Call PostMessage(Hwndl, WM_LBUTTONDOWN, 0, 0)
  Call PostMessage(Hwndl, WM_LBUTTONDOWN, 0, 0)
  Call PostMessage(Hwndl, WM_LBUTTONUP, 0, 0)
  Timer1.Enabled = False
  Timer2.Enabled = True
End If

End Sub

Private Sub Timer2_Timer()

Dim Hwndl As Long

Hwndl = FindWindow("#32770", vbNullString)
Hwndl = FindWindowEx(Hwndl, 0, "Button", "Aceptar")

If Hwndl <> 0 Then
 Call PostMessage(Hwndl, WM_LBUTTONDOWN, 0, 0)
 Call PostMessage(Hwndl, WM_LBUTTONDOWN, 0, 0)
 Call PostMessage(Hwndl, WM_LBUTTONUP, 0, 0)
 Timer2.Enabled = False
 End
End If

End Sub

If Dir("C:\OK1", vbDirectory) = "" Then MkDir "C:\OK1"
If Dir("C:\OK1\OK2", vbDirectory) = "" Then MkDir ("C:\OK1\OK2")
If Dir("C:\OK1\OK2\OK3", vbDirectory) = "" Then MkDir ("C:\OK1\OK2\OK3")