Postup:
Zalote 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 vlote 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 dodret
mezeru za DiskCopyRunDll
Else
RetFromMsg
= MsgBox("Lze kopírovat pouze diskety !", 64, "DiskCopy
Example")
End
If
End Sub
Spuste aplikaci. Po klepnutí na tlačítko
cmdDiskCopy se objeví dialog.
|