Forma 1 adet commandbutton ekleyin.
Module yazılacak
Kod:
Option Explicit Private Type SHFILE hWnd As Long wF As Long pF As String pT As String fF As Integer End Type Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILE) As Long Private Const FO_COPY = &H2 Private Const FOF_ALLOWUNDO = &H40 Public Sub AnDosyaKopyala(ByVal kopyalanandosya As String, ByVal yer As String) Dim shop As SHFILE With shop .hWnd = 0 .wF = FO_COPY .pF = kopyalanandosya & vbNullChar & vbNullChar .pT = yer & vbNullChar & vbNullChar .fF = FOF_ALLOWUNDO End With SHFileOperation shop End Sub
Forma Yazılacak
Kod:
Private Sub Command1_Click() AnDosyaKopyala "D:d.wmv", "D:yenid.wmv" 'Kopyalanacak dosya yolunu ve kopyalanacak yolu kendiniz ayarlayın End Sub
__________________