klasörü farklı isim ile kopyalama

[cancan1221]

Merhaba,

(C:\STOK PROGRAMI 2018\MALZEME_KAYIT_1205) isimli klasörüm var.
bu klsörü alıp,
(C:\STOK PROGRAMI 2018\backup_malzeme_kayıt_1205_gün_ay_yıl) şeklinde
kopyalama yapmam gerekiyor.

yardımcı olabilirmisiniz?

 

[askm]

Aşağıdaki şekilde deneyin.

sub askm()
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
eski="C:\STOK PROGRAMI 2018\MALZEME_KAYIT_1205"
yeni="C:\STOK PROGRAMI 2018\backup_malzeme_kayıt_1205_" & Format(date,"dd.mm.yyyy"
objFSO.copyFolder eski,yeni true
end sub

 

[cancan1221]

Aşağıdaki şekilde deneyin.

sub askm()
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
eski="C:\STOK PROGRAMI 2018\MALZEME_KAYIT_1205"
yeni="C:\STOK PROGRAMI 2018\backup_malzeme_kayıt_1205_" & Format(date,"dd.mm.yyyy"
objFSO.copyFolder eski,yeni true
end sub

teşekkürler, hocam çalışıyor. eline sağllık.

 

[askm]

Yeni klasörü oluşturdunuz mu. Otomatik mi oluşturacak. Aldığınız hata sanırım dosya olmadığı için.
Otomatik oluşacaksa.

Sub askm()
Dim askm As Object
Set askm = CreateObject("Scripting.FileSystemObject")
eski = "C:\STOK PROGRAMI 2018\MALZEME_KAYIT_1205"
yeni = "C:\STOK PROGRAMI 2018\backup_malzeme_kayıt_1205_" & Format(Date, "dd.mm.yyyy")
MkDir yeni
askm.copyFolder eski, yeni
End Sub

 

[cancan1221]

Yeni klasörü oluşturdunuz mu. Otomatik mi oluşturacak. Aldığınız hata sanırım dosya olmadığı için.
Otomatik oluşacaksa.

Sub askm()
Dim askm As Object
Set askm = CreateObject("Scripting.FileSystemObject")
eski = "C:\STOK PROGRAMI 2018\MALZEME_KAYIT_1205"
yeni = "C:\STOK PROGRAMI 2018\backup_malzeme_kayıt_1205_" & Format(Date, "dd.mm.yyyy")
MkDir yeni
askm.copyFolder eski, yeni
End Sub

sorunu çözdüm teşekkür ederim yardımlarınız için.

 

[askm]

Rica ederim. Kolay gelsin.