Kopírování disket

Postup:
Založte nový formulář a pojmenujte jej DiskCopy

Do formuláře přidejte DiskListBox a tlačítko, které nazvěte cmdDiskCopy

Na událost tlačítka Click vložte následující kód:

Private Sub cmdDiskCopy_Click()

' DiskCopyRunDll potřebuje dva parametry- Odkud a kam
   Dim DriveLetter$, DriveNumber&, DriveType&
   Dim RetVal&, RetFromMsg&
   DriveLetter = UCase(Drive1.Drive)
   DriveNumber = (Asc(DriveLetter) - 65) ' Převod jména disku na číslo: A=0
   DriveType = GetDriveType(DriveLetter)
   If DriveType = 2 Then 'Výměnné disky
      RetVal = Shell("rundll32.exe diskcopy.dll,DiskCopyRunDll " & DriveNumber & "," & DriveNumber, 1) 'je třeba dodržet mezeru za DiskCopyRunDll
   Else
      RetFromMsg = MsgBox("Lze kopírovat pouze diskety !", 64, "DiskCopy Example")
   End If

End Sub

Spuste aplikaci. Po klepnutí na tlačítko cmdDiskCopy se objeví dialog.

Zpět

Autor: The Bozena