Dosya içlerini kopyalama

[Sa.NaL]

Merhaba "D:\YAPILAN İŞLER\" klasörü içindeki xls uzantılı dosyaları "\\SEZGİN-PC\Paylaşılan Dosyalarım\İŞLER\" İçine kopyalayacak kodu verebilirmisiniz?

 

[ECYavuz]

Sub Dosya_Kopyala()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "D:\YAPILAN İŞLER\*.xls", "C:\SEZGİN-PC\Paylaşılan Dosyalarım\İŞLER\"
End Sub

şeklinde deneyin.

 

[Sa.NaL]

2ci adres ağda bi adres bişey olurmu?
"\\SEZGİN-PC\Paylaşılan Dosyalarım\İŞLER\" buraya kopyalaması gerekiyor