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..
__________________________________
Yahoo! FareChase: Search multiple travel sites in one click.
http://farechase.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Get fast access to your favorite Yahoo! Groups. Make Yahoo! your home page
http://us.click.yahoo.com/dpRU5A/wUILAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
