[boudyonline]

اخي الفاضل :
هذا مثال بسيط ولكن بطريقة مختلفة ... حيث يتم تسجيل تاريخ ووقت الملف كجزء من اسمه وليس كمجلد جديد
ولكن قد تعجبك الفكرة

كود :

Try


'System.IO.File.Copy("enrollment.mdb", String.Format("D:\{0:yyyyMMdd}.mdb", Date.Today))

Using openDialog As New OpenFileDialog()
openDialog.CheckFileExists = True
openDialog.CheckPathExists = True
openDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"

Using saveDialog As New SaveFileDialog()
saveDialog.CheckFileExists = False
saveDialog.CheckPathExists = True
saveDialog.FileName = Date.Now.ToString("yyyyMMdd") & ".mdb"
saveDialog.Filter = "Microsoft Access Database (*.mdb)|*.mdb"

If openDialog.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso saveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
If File.Exists(openDialog.FileName) Then File.Copy(openDialog.SafeFileName, saveDialog.FileName)
End If
End Using
End Using

Catch ex As Exception

MsgBox(ex.Message)

End Try