(02/09/2015, 18:12)atoz112 yazdı: sayın ustaoglu,

sayın atoz112;

öncelikle yapmış olduğunuz yardımlarınızdan dolayı çok teşekkür ederim.

bana vermiş olduğunuz yedekleme kodu çok işime yarıyor ve stabil olarak çalışıyor. Ancak dün yaşadığım bilgisayarla ilgili problem den dolayı firmaya ait ufak yedeklerin alındığı bulut sunucu mevcut (yandex disk) buraya yedeklerimi almak istiyorum ancak kodta yaptığım düzeltme olmuyor yaptığım düzeltme şu şekilde;

1-)klasör oluşturmak için



Dim klasoryeri As String

klasoryeri = CurrentProject.Path & "C:\Users\Muhasebe2\YandexDisk\STS" & "STS Yedekleri"

If Len(Dir(klasoryeri, vbDirectory)) = 0 Then

MkDir (klasoryeri)

MsgBox ("STS Yedekleri Klasörü Oluşturulmuştur."), vbInformation, "STS [Bilgi]"

End If



'2-)Dosyayı,oluşturulan klasöre kopyalamak için



Dim dosyakopyala As Object

If Len(Dir(CurrentProject.Path & "C:\Users\Muhasebe2\YandexDisk\STS" & "STS Yedekleri\" & "STS-" & Format(Date, "dd.mm.yyyy") & ".accdb", vbDirectory)) = 0 Then

    Set dosyakopyala = CreateObject("Scripting.FileSystemObject")

    dosyakopyala.copyfile CurrentProject.Path & "\" & "STS.accdb", CurrentProject.Path & "C:\Users\Muhasebe2\YandexDisk\STS" & "STS Yedekleri" & "\STS-" & Format(Date, "dd.mm.yyyy") & ".accdb"

    MsgBox ("Programın Yedeği Başarıyla Alınmıştır."), vbInformation, "STS [Bilgi]"

Else

    MsgBox ("Programın Bugün Yedeği Alınmıştır." & Chr(10) & "Yeni Yedek İçin Lütfen Önce Eski Yedeği Silin"), vbCritical, "STS [Uyarı]"

End If

kodunda orjinal hali şöyle;

'1-)klasör oluşturmak için



Dim klasoryeri As String

klasoryeri = CurrentProject.Path & "/" & "STS Yedekleri"

If Len(Dir(klasoryeri, vbDirectory)) = 0 Then

MkDir (klasoryeri)

MsgBox ("STS Yedekleri Klasörü Oluşturulmuştur."), vbInformation, "STS [Bilgi]"

End If



'2-)Dosyayı,oluşturulan klasöre kopyalamak için



Dim dosyakopyala As Object

If Len(Dir(CurrentProject.Path & "\" & "STS Yedekleri\" & "STS-" & Format(Date, "dd.mm.yyyy") & ".accdb", vbDirectory)) = 0 Then

    Set dosyakopyala = CreateObject("Scripting.FileSystemObject")

    dosyakopyala.copyfile CurrentProject.Path & "\" & "STS.accdb", CurrentProject.Path & "\" & "STS Yedekleri" & "\STS-" & Format(Date, "dd.mm.yyyy") & ".accdb"

    MsgBox ("Programın Yedeği Başarıyla Alınmıştır."), vbInformation, "STS [Bilgi]"

Else

    MsgBox ("Programın Bugün Yedeği Alınmıştır." & Chr(10) & "Yeni Yedek İçin Lütfen Önce Eski Yedeği Silin"), vbCritical, "STS [Uyarı]"

End If

nerde hata yapıyorum ?? klasör yolunu değiştirince click yordamı iptal oluyor kod görünüyor ancak tıklama da bir işlem yapmıyor.

yardımlarınız için şimdiden teşekkürler.