VB4  32 , VB5 
Level: Advanced 

В Win32 API есть парочка функций, позволяющих форматировать и копировать дискеты из программы: 

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 

Добавьте две command buttons в форму, назовите их cmdDiskCopy и cmdFormatDrive, и засуньте в их события Click следующие фрагменты кода: 

Private Sub cmdDiskCopy_Click() 
        ' DiskCopyRunDll требует два параметра - From и To 
        Dim DriveLetter$, DriveNumber&, _ 
                DriveType& 
        Dim RetVal&, RetFromMsg& 
        DriveLetter = UCase(Drive1.Drive) 
        DriveNumber = (Asc(DriveLetter) - _ 
                 65 ) 
        DriveType = GetDriveType_ 
                (DriveLetter) 
        If DriveType =  2  Then  'Floppies, _ 
                etc 
                RetVal = Shell_ 
                        ("rundll32.exe " & _ 
                        "diskcopy.dll," _ 
                        & "DiskCopyRunDll " & _ 
                        DriveNumber & "," & _ 
                        DriveNumber,  1 ) 
        Else   ' Just in case 
                RetFromMsg = MsgBox_ 
                        ("Only floppies can be " & _ 
                        "copied",  64 , _ 
                        "DiskCopy Example") 
        End If 
End Sub 

Private Sub cmdFormatDrive_Click() 
        Dim DriveLetter$, DriveNumber&, _ 
                DriveType& 
        Dim RetVal&, RetFromMsg% 
                DriveLetter = UCase(Drive1.Drive) 
        DriveNumber = (Asc(DriveLetter) - _ 
                 65 ) 
        ' Заменить букву на цифру: A=0 
        DriveType = GetDriveType_ 
                (DriveLetter) 
        If DriveType =  2  Then  _ 
                ' т.е. флоп 
                RetVal = SHFormatDrive(Me.hwnd, _ 
                        DriveNumber,  0 &,  0 &) 
        Else 
                RetFromMsg = MsgBox_ 
                        ("This drive is NOT a " & _ 
                        "removeable drive! " & _ 
                        "Format this drive?", _ 
                         276 , "SHFormatDrive Example") 
                If RetFromMsg =  6  Then 
                        ' Раскомментируйте и увидите... 
                        'RetVal = SHFormatDrive_ 
                                (Me.hwnd, _ 
                                '   DriveNumber, 0&, 0&) 
                End If 
        End If 
End Sub 

Добавьте контрол DriveListBox под именем Drive1: 

Private Sub Drive1_Change() 
        Dim DriveLetter$, DriveNumber&, _ 
                DriveType& 
        DriveLetter = UCase(Drive1.Drive) 
        DriveNumber = (Asc(DriveLetter) - _ 
                 65 ) 
        DriveType = GetDriveType_ 
                (DriveLetter) 
        If DriveType <>  2  Then  _ 
                'Floppies, etc 
                cmdDiskCopy.Enabled = False 
        Else 
                cmdDiskCopy.Enabled = True 
        End If 
End Sub 

Будьте осторожны: так недолго и винт запороть. 

Private Declare Function GetDriveType _
        Lib "kernel32" _
        Alias "GetDriveTypeA" _
        (ByVal nDrive As String) As Long
Private Sub Form_Load()

RetVal = SHFormatDrive(Me.hWnd,  2 ,  0 &,  0 &)



End Sub

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 Sub Form_Load()

RetVal = SHFormatDrive(Me.hWnd,  2 ,  0 &,  0 &)



End Sub