Aktif olan dosyanın adını değiştirerek klasöre kopyalamak

[acolkesen1]

Merhaba, Aşağıdaki kodla, APARTMAN klasörü içindeki bütün dosyaları YEDEK klasörü içine kopyalıyorum. Ancak dosya adı belirttiğim zaman yani, klasör içinden tek bir dosyayı kopyalamak istediğim zaman hata veriyor. (klasör adından sonra gelen * yerine dosya adını yazıyorum. )

Sub YEDEK_AL ()
Dim ds
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CopyFile "D:\APARTMAN\*.xls", "C:\YEDEK"
End Sub
Aslında yapmak istediğim şu; APARTMAN klasörü içindeki APT-08 dosyasını yine aynı klasör içine, adını değiştirerek kopyalamak istiyorum.Dosya adını Örn:sayfa1 a1 hücresinden alacak. İlgilenen arkadaşlara teşekkür ederim..

 

[Zeki Gürsoy]

Dosyayı yeniden adlandırmak için "Name" kullanbilirsiniz.

Name "D:\Apartman\EskiAd.xls", "D:\Apartman\" & Sayfa1.[a1] & ".xls"

Ayrıca dosya taşımak için de kullanılır.

 

[acolkesen1]

Sayın anemos, ilginize teşekkür ederim.Verdiğiniz bilgi bir başka çalışmamda da işime yarıyacak. Diğer arkadaşlara yardımcı olmak için belirtmek istiyorum, aşağıdaki kodlarla da aktif olan dosyayı kopyalamak mümkün oldu. Tekrar teşekkür eder,iyi günler dilerim.

Sub YEDEK_AL ()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "D:\APARTMAN\" & [sayfa1!a1]
End Sub