ilgili butonun içeriğini aşağıdaki ile değiştiriniz lütfen.bilginize.
Kod:
'1-)klasör oluşturmak için
Dim klasoryeri As String
klasoryeri = CurrentProject.path & "\" & "ydk"
If Len(Dir(klasoryeri, vbDirectory)) = 0 Then
MkDir (klasoryeri)
MsgBox ("KLASÖR oluşturuldu"), vbInformation, "KLASÖR OLUŞTURMA BİLGİSİ"
End If
'2-)Dosyayı,oluşturulan klasöre kopyalamak için
Dim dosyakopyala As Object
If Len(Dir(CurrentProject.path & "\" & "ydk\" & "yedek-" & Format(Date, "dd.mm.yyyy") & ".accdb", vbDirectory)) = 0 Then
Set dosyakopyala = CreateObject("Scripting.FileSystemObject")
dosyakopyala.copyfile CurrentProject.path & "\" & "KlasoreYedekle-ATOZ.accdb", CurrentProject.path & "\" & "ydk" & "\yedek-" & Format(Date, "dd.mm.yyyy") & ".accdb"
MsgBox ("DOSYA kopyalandı"), vbInformation, "DOSYA KOPYALAMA BİLGİSİ"
Else
MsgBox ("DOSYA zaten mevcut"), vbInformation, "DOSYA KOPYALAMA BİLGİSİ"
End If