Bu ve bunun gibi kodları www.sisproyazilim.com adresinde bulabilirsiniz arkadaşlar.

Projeye 1 adet Module ve forma 1 adet command button ekleyin. Butona tıkladığınızda dosyalar windows animasyonu ile kopyalanacak. (animasyonun gorunmesi icin boyutu biraz buyuk dosya kopyalayın)

Bu kodlar Module eklenecek.
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 DosyaKopyala(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
'Bu kodlar forma eklenecek
Kod:
Private Sub Command1_Click() DosyaKopyala "D:\***.exe", "C:\***.exe" 'Kopyalanacak dosya yolunu ve kopyalanacak yolu kendiniz ayarlayın End Sub

__________________