FileCopy ile Dosyaları Kopyalamak

Dosya Yedekleme

Exceli açıp Farklı Kaydet demek yerine, kapalı bir dosyayı alıp başka yere kopyalamanın en hızlı yoludur.

VBA Kodu:

Sub Yedekle()
    Dim kaynak As String: kaynak = "C:\Sablon.xlsx"
    Dim hedef As String: hedef = "D:\Yedek\Sablon_Kopya.xlsx"
    FileCopy kaynak, hedef
End Sub

Ne Göreceksiniz? C sürücüsündeki dosyanın birebir yedeği D sürücüsüne anında aktarılacaktır.