Kaydetmeden dosyanın yedeğini çıkarmak.

[Orion1]

Aşağıdaki kodla dosyanın bir yedeğini çıkarıyorum.
Fakat dosynın son hali yedek olarak çıkıyor.
Kaydetmeden dosyanın yedeğini çıkarabilirmiyim?

ThisWorkbook.SaveAs ("c:\Deneme.xlk")

 

[Ferhat Pazarçevirdi]

VB'deki standart FileCopy komutunu kullanabilirsiniz veya File System Object (FSO) komutlarını deneyebilirsiniz ..

FileCopy "Kaynak_Dosya_Yolu", "Hedef_Dosya_Yolu"

FileCopy "C:\Deneme\Kaynak.xls","C:\Kaynak.xls"

veya

FSO.GetFile("Kaynak_Dosya_Yolu").Copy "Hedef_Dosya_Yolu"

Dim FSO as Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.GetFile("C:\Deneme\Kaynak.xls").Copy "C:\Kaynak.xls"
Set FSO = Nothing

 

[Orion1]

Ferhat Bey teşekkür ederim.
Aşağıdaki yöntem ile oldu.

FSO.GetFile("Kaynak_Dosya_Yolu").Copy "Hedef_Dosya_Yolu"