dosya kopyalamak

[mveysel]

makro yardımıyla ağ üzerinden başka bir bilgisayardaki(sabit bir yerde) dosyayı(yada klasör içerisindeki bütün dosyaları) kendi bilgisayarıma (sabit bir yere) kopyalamak mümkün müdür?

 

[halit3]

makro yardımıyla ağ üzerinden başka bir bilgisayardaki(sabit bir yerde) dosyayı(yada klasör içerisindeki bütün dosyaları) kendi bilgisayarıma (sabit bir yere) kopyalamak mümkün müdür?

küçük bir örnek klasör ve dosya yolunu kendinize uyarlayınız.

klasör için

Sub klasör_kopyala()
kopyalanan = "[URL="file://\\deneme\shareddocs\microsoft"]\\deneme\shareddocs\microsoft[/URL]" ' ağ üserindeki bilgisayarın klasörün yolu
kayıt_edilen = "D:\Yeni Klasör"
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
DosyaSistemi.CopyFolder kopyalanan, kayıt_edilen
End Sub

dosya için

Sub dosya_kopyala()
kopyalanan = "[URL="file://\\deneme\shareddocs\microsoft\deneme.xls"]\\deneme\shareddocs\microsoft\deneme.xls[/URL]" ' ağ üserindeki bilgisayarın dosya yolu
kayıt_edilen = "D:\Yeni Klasör\deneme.xls"
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
DosyaSistemi.CopyFile kopyalanan, kayıt_edilen
End Sub

 

[mveysel]

teşekkürler

 

[halit3]

iyi çalışmalar