Klasör Kopyalama Makrosu Ağda Çalışmıyor

[asi_kral]

Selamun Aleyküm
Klasör kopyalama makrosu ağ daki yol da çalışmıyor yardımcı olabilir misiniz
Sub KodBank() Dim XX,YOL Set XX = CreateObject("Scripting.FileSystemObject") YOL = ThisWorkbook.Path & "\" COPY = "\\MUHASEBE_ORJINA\F - Muhasebe" XX.CopyFolder COPY , YOL & Date End Sub

 

[Korhan Ayhan]

Bu bölümü değiştirip deneyiniz.

COPY = "\\MUHASEBE_ORJINA\F - Muhasebe\*"

 

[asi_kral]

Merhaba Korhan Bey
Maalesef olmadı.
run-time error '76'
path not found

hatası vermekte

 

[Korhan Ayhan]

İlgili klasörle ilgili olarak yetkileriniz var mı? Bunu kontrol edin.

Emin değilim ama belki ağ yolunda IP adresi kullanarak bağlantı kurmanız gerekebilir.

 

[asi_kral]

İlgili klasörle ilgili olarak yetkileriniz var mı? Bunu kontrol edin.

Emin değilim ama belki ağ yolunda IP adresi kullanarak bağlantı kurmanız gerekebilir.

COPY = "\\MUHASEBE_ORJINA\F - Muhasebe\XXX"

şeklinde yazınca çalışıyor ama tamamı olunca çalışmıyor.

 

[Korhan Ayhan]

Tamamı derken "F - Muhasebe" altında alt klasörler var sanırım. Siz hepsini mi kopyalamaya çalışıyorsunuz?

 

[asi_kral]

Tamamı derken "F - Muhasebe" altında alt klasörler var sanırım. Siz hepsini mi kopyalamaya çalışıyorsunuz?

Evet hepsini kopyalamak istiyorum.
15 Adet - Klasör var ( içlerinde başka klasörlerde mevcut )
18 Adet word ve excel var
Sayılar ve çeşitler değişiklik gösterebilir