Copying Any type of file(access, excel, word...)

[cid]

CommonDialog1.Filter = "Access Database (*.mdb)|*.mdb|"
CommonDialog1.ShowOpen
MsgBox "Now that you have picked the database you would like to copy, please show me where to save it.", vbOKOnly, "Title"
CommonDialog2.Filter = "Access Database (*.mdb)|*.mdb|"
CommonDialog2.ShowSave
FileCopy CommonDialog1.FileName, CommonDialog2.FileName

The first two lines let the user pick the file they would like to copy, the message box lets the user know that it is time to save the file, and the 3rd part of the line basically copies the filenames that were generated by commondialog.

Isnt the awesomemost code in the world but it will help those in need of quick copying.