Yes.....
Makasih mas Vavai...
--- "Masim \"Vavai\" Sugianto"
<[EMAIL PROTECTED]> wrote:
> 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..
> >
> >
> >
> >
>
__________________________________
Start your day with Yahoo! - Make it your home page!
http://www.yahoo.com/r/hs
------------------------ 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/
