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 Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" ( _
ByVal nDrive As String) As Long
 
Private Sub Command1_Click()
Dim Laufwerk As Long
Dim LaufwerkType As Long
Dim Kopieren As Long
 
Laufwerk = 0 'Laufwerk "A:" = 0 und "B:" = 1
LaufwerkType = GetDriveType("A:") 'Hier Laufwerk angeben
If LaufwerkType = 2 Then
Kopieren = Shell("rundll32.exe diskcopy.dll,DiskCopyRunDll " & Laufwerk & "," & _
  Laufwerk, 1)
Else
MsgBox "Es können nur Diskettenlaufwerke kopiert werden !"
End If
End Sub