yedekleme

[aydın3838]

selam
benim bilgisayarda 2003 yüklü
yedekleme ile ilgili
alttaki kodları 2007 de deneyip sonucunu söyleyebilirmisiniz
yardımcı olacak arkadaşlara
şimdiden teşekkürler

Sub yedekle()
Dim varyedek, yol1, yol2, adi, dosadi
Dim LogFile As String

On Error Resume Next
adi = ActiveWorkbook.Name
yol1 = ThisWorkbook.Path & "\" & adi
yol2 = ThisWorkbook.Path & "\yedek\"
If Dir(yol2, vbDirectory) = Empty Then
MkDir yol2
Else
End If
Set varyedek= CreateObject("Scripting.FileSystemObject")
varyedek.copyfile yol1, yol2 & adi & " - " & Replace(FormatDateTime(Now, 0), ":", ".") & ".xls"

End Sub

 

[Korhan Ayhan]

Merhaba,

Ben 2010 versiyonda denedim ve sorun yaşamadım. Sadece koddaki düzenden dolayı dosya uzantısınıda dosya adında gösteriyor. Bunuda kodunuzu aşağıdaki şekilde düzenlediğinizde önlemiş olursunuz.

Sub yedekle()
    Dim varyedek, yol1, yol2, adi, uzanti
    
    Set varyedek = CreateObject("Scripting.FileSystemObject")
 
    On Error Resume Next
    adi = ActiveWorkbook.Name
    uzanti = "." & varyedek.GetExtensionName(adi)
    adi = Replace(adi, uzanti, "")
    yol1 = ThisWorkbook.Path & "\" & adi & uzanti
    yol2 = ThisWorkbook.Path & "\yedek\"
    If Dir(yol2, vbDirectory) = Empty Then MkDir yol2
 
    varyedek.copyfile yol1, yol2 & adi & " - " & Replace(FormatDateTime(Now, 0), ":", ".") & uzanti
End Sub

 

[aydın3838]

sayın Korhan Ayhan
çok teşekkürler