User-1563925586 posted
This code may solve your problem
Dim s As StreamWriter
Dim portfolioPath As String = My.Application.Info.DirectoryPath
If Not Directory.Exists("C:\Backup") Then
Directory.CreateDirectory("C:\Backup")
File.Create("C:\ Backup\PIS.Mdb").Close()
File.Create("C: \Backup\Backup log.rtf").Close()
s = New StreamWriter("C:\Backup\Backup log.rtf", True)
s.WriteLine("This backup was initially taken on - " & Date.Now)
s.Flush()
s.Close()
FileCopy(portfolioPath & "\PIS.mdb", "C:\Backup\PIS.Mdb")
s = New StreamWriter("C:\Backup\Backup log.rtf", True)
MsgBox("New directory and backup file created")
Read more: http://ram-a-singh.blogspot.com/2011/12/how-to-take-backup-from-database-vbnet.html#ixzz1hLF6Cnd6