Option Explicit
 
 
' Demo zum Schnell-Formatieren von (Disketten-)Laufwerken
' Autor:  Gudio Eisenbeis, guidoeisenbeis@web.de, 2003-09-20
 
Private Sub Command1_Click()
    Call FormatiereLaufwerk("A:") ' unbedingt den Doppelpunkt mit angeben
End Sub
 
' Die Funktion liefert die ProzessID als Rückgabewert
Public Function FormatiereLaufwerk(LaufwerkMitDoppelpunkt As String)
    Dim ProzessID As Long
    Dim FormatierungsBefehl ' As String
 
    ' Achtung! Es wird in jedem Fall ohne Rückfrage formatiert!!
    ' Falls ein falsches Laufwerk angegeben wird, sind alle
    ' darauf befindliche Daten unwiederbringlich gelöscht!
    FormatierungsBefehl = "Command.com /C j| Format /Q " & _
      LaufwerkMitDoppelpunkt
    ProzessID = Shell(FormatierungsBefehl, vbHide) ' DOS wird unsichtbar 
    ' ausgeführt
 
    FormatiereLaufwerk = ProzessID
End Function