Re: [Programmer-VB] Copy Folder antar Computer dalam network?

Wed, 23 Nov 2005 00:54:23 -0800

Mas Jenar,

Ada satu kesalahan utama, Mas Jenar melakukan copy nama share foldernya. Mestinya nama dari folder didalam share.

Ex :

Nama Share Komputer Client1 untuk drive C adalah DRC
Nama Share Komputer Client2 untuk drive D adalah DRD

Melakukan copy dari folder c:\data di komputer 1 ke folder d:\data di komputer 2 adalah sbb :
Dim FSO As New FileSystemObject
Dim sAlamat, tAlamat As String
Dim nlp As String


Private Sub Command1_Click()
    
     sAlamat = "\\client1\DRC\data"
     tAlamat = "\\client2\DRD\data"
        
    FSO.CopyFolder sAlamat, tAlamat, True
 
    MsgBox "Copying File Success from " & sAlamat & "
To " & tAlamat, vbInformation, "Information"

End Sub
Deklarasi Recordset tidak saya perlukan dunk :-).
Tahu kan bedanya... Di Windows Explorer-pun, nama folder share tidak dapat dicopy (kecuali pakai XP, CMIIW).

Salam,


Vavai


Jenar Suseno wrote: 
Aku mau bikin program untuk copy data dari komputer1
ke keomputer lain dalam jaringan. AKu pernah dapet
dari millis, setelah aku coba dalam 1 komputer udah
sukses, tapi kl antar komputer dalam network kok belum
bisa ya....

Aktikan project reference nya. Microsoft Scripting
Runtime
 
Yang sudah bisa dalam 1 komputer :

Dim rs_data As ADODB.Recordset
Dim FSO As New FileSystemObject
Dim sAlamat, tAlamat As String
Dim nlp As String
 
Private Sub Command1_Click()
    
     sAlamat = "C:\DATA"
     tAlamat = "D:\DATA"
        
    FSO.CopyFolder sAlamat, tAlamat, True
 
    MsgBox "Copying File Success from " & sAlamat & "
To " & tAlamat, vbInformation, "Information"

End Sub


yang masih error :

Dim FSO As New FileSystemObject
Dim sAlamat, tAlamat As String
Dim nlp As String
 
Private Sub Command1_Click()
    
     sAlamat = "\\client1\datashare"
     tAlamat = "\\client2\Kumpulan"
        
    FSO.CopyFolder sAlamat, tAlamat, True
 
    MsgBox "Copying File Success from " & sAlamat & "
To " & tAlamat, vbInformation, "Information"

End Sub

Mohon masukan dari temen2..


Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke