Saya mau melengkapi pertanyaanya boleh ya, 1. Bagaimana jika yang kita copy itu adalah 1 folder yang isinya banyak file? 2. bagaimana caranya kalau copy file itu berdasarkan teks inputan (jadi user tinggal ketik folder atau file yang akan di copy) 3. Yg paling menyebalkan adalah kalau kita copy banyak file tiba-tiba terputus/error gimana caranya supaya copynya berlanjut tidak harus diulang lagi dari awal) 4. kalau copy file via LAN/jaringan apakah scrip dibawah bisa diterapkan?
maaf pertanyaannya banyak ya... salam, pm --- In [email protected], "Aiska" <aiska_hen...@...> wrote: > > --- In [email protected], Newbie Semarang <newbiesmg@> wrote: > > > > kalau tidak salah pake FILECOPY <path source> <path destination> > > > > -Newbie- > > > > On 1/16/09, Ditya Permana Adi <djendral_testa@> 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 >
