--- In [email protected], Newbie Semarang <newbie...@...> wrote:
>
> kalau tidak salah pake FILECOPY <path source> <path destination>
>
> -Newbie-
>
> On 1/16/09, Ditya Permana Adi <djendral_te...@...> wrote:
> > Rekan² saya mau tanya, bagaimana caranya [kode pada VB 6.0] untuk
> > mengcopy file dari direktori a ke direktori b lewat Visual Basic.
> > Mohon Bantuannya, terima kasih.
> >
> >
>
Sepertinya saya pernah post masalah ini deh.
Ok ini saya kasih lagi cara Tranfer file dengan menggunakan proggress bar
' taruh di Form1
Private Sub Form_Load()
Dim Ret As Long
Progbar1.Min = 0
Progbar1.Max = 100
' Mulai Pengopian data
Ret = CopyFileEx("c:\filesumber.txt", "c:\fileTujuan.txt",
AddressOf CopyProgress, ByVal 0&, bCancel, COPY_FILE_RESTARTABLE)
if ret <> 0 then
MsgBox "File telah berhasil di Transfer"
else
MsgBox "File Transfer telah dibatalkan"
endif
End Sub
Private Sub cmdBatal_Click()
' batalkan kopi
bCancel = 1
End Sub
' Taruh kode ini di modul
Public Const PROGRESS_CANCEL = 1
Public Const PROGRESS_CONTINUE = 0
Public Const PROGRESS_QUIET = 3
Public Const PROGRESS_STOP = 2
Public Const COPY_FILE_FAIL_IF_EXISTS = &H1
Public Const COPY_FILE_RESTARTABLE = &H2
Public Declare Function CopyFileEx Lib "kernel32.dll" Alias
"CopyFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName
As String, ByVal lpProgressRoutine As Long, lpData As Any, ByRef
pbCancel As Long, ByVal dwCopyFlags As Long) As Long
Public bCancel As Long
Public Function CopyProgress(ByVal TotalFileSize As Currency,
ByVal TotalBytesTransferred As Currency, ByVal StreamSize As Currency,
ByVal StreamBytesTransferred As Currency, ByVal dwStreamNumber As
Long, ByVal dwCallbackReason As Long, ByVal hSourceFile As Long, ByVal
hDestinationFile As Long, ByVal lpData As Long) As Long
' sesuaikan value pada progres bar
Form1.Progbar1.Value = ((TotalBytesTransferred * 10000) /
(TotalFileSize * 10000) * 100)
' perbolehkan user untuk membatalkan transfer
DoEvents
' Lanjutkan Transfer data
CopyProgressRoutine = PROGRESS_CONTINUE
End Function
Ok semoga kode diatas bisa membantu
Terima Kasih
Salam,
Aiska Hendra
