Kopφrovßnφ disket

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