Klasör Kopyalama...

[tuarek]

Excel kullanarak klasör kopyalamak mümkünmü? Yada nasıl yapılabileceği konusunda bilgisi olan varmı?

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. C:\stok isimli klasör, C:\stok1 ismiyle kopyalanır.

Sub Klasorkopyala()
CreateObject("Scripting.FileSystemObject").CopyFolder "C:\stok", "C:\stok1"
End Sub

 

[tuarek]

Teşekkürler Sn. leventm

Saygılar.

 

[gokhan83]

Merhaba; bu kopyalama makrosunu klasörün adını o günün tarihi olarak değiştirip yapması için nasıl bir düzeltme yapmak gerekiyor.

 

[Muzaffer Ali]

Aşağıdaki gibi yapabilirsiniz

Sub Klasorkopyala()
CreateObject("Scripting.FileSystemObject").CopyFolder "C:\stok", "C:\" & date
End Sub

 

[gokhan83]

Necdet Bey teşekkür ederim. İşimi gördü.

 

[Muzaffer Ali]

Necdet Bey teşekkür ederim. İşimi gördü.

Rica ederim Abdullah bey.

 

[gokhan83]

Kusura bakmayın aceleden mesajı Necdet Bey gönderdi zannettim. ilginiz için tekrar teşekkür ederim.

 

[Muzaffer Ali]

Kusura bakmayın aceleden mesajı Necdet Bey gönderdi zannettim. ilginiz için tekrar teşekkür ederim.

Rica ederim. Espiri anlayışınıza da ben teşekkür ederim