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

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

sayın attoz112;

çok teşekkür ederim yardımlarınız için sayenizde bir sorunum daha ortadan kalktı ve bu örnekleriniz sayesinde hem Access hemde kod bilgimi geliştiriyorum tekrar teşekkür ederim