Application.CurrentProject.Name kısmının "." dan sonrasını ayırıp tekrar sona eklemek lazım değil mi şöyle olur mu
Sub projeYedekle()
Dim fso As FileSystemObject
Dim DB As New Access.Application
Dim gun, zaman, strFrom, strTo, strToDate, strToTime As String
Dim sSourcePath, sSourceFile, sBackupPath, sBackupFile As String
gun = Format(Date, "yyyymmdd")
zaman = Format(Date, "yyyymmdd") & "" & Format(Time, "hhmm")
sSourceFile = Application.CurrentProject.Name
sBackupFile = Split(sSourceFile, ".")(0) & "_" & zaman & "." & Split(sSourceFile, ".")(1)
strFrom = Application.CurrentProject.Path & "\" & Application.CurrentProject.Name
strTo = Application.CurrentProject.Path & "\yedek\" & Application.CurrentProject.Name
strToDate = Application.CurrentProject.Path & "\yedek\" & gun & "_" & Application.CurrentProject.Name
strToTime = Application.CurrentProject.Path & "\yedek\" & sBackupFile 'zaman & "_" & Application.CurrentProject.Name
If Len(Dir(Application.CurrentProject.Path & "\yedek", vbDirectory)) = 0 Then
MkDir Application.CurrentProject.Path & "\yedek"
End If
Set fso = New FileSystemObject
fso.copyFile strFrom, strToTime, True
Set fso = Nothing
Beep
MsgBox "Backup was successful and Saved" & "Backup completed"
End Sub
Son Düzenleme: 23/01/2020, 12:07, Düzenleyen: accessman.