Copy a file with command button using code?

[scs]

I'm looking for some simple code to copy a file by clicking on a command
button. I'd like to copy C:\Documents and Settings\All Users\Documents\IBI
Update\filename.mdb to \\Inspiron700m\shareddocs\filename.mdb. The file
will not be in use. The file will exist so I need to overwrite. Thanks for
any help. If possible could you please include error handling?

TIA
Steve

 

[Guest]

Look at the CopyFile at the end of the sub - the "True" is for overwrite (see
VBA help on CopyFile for more details). Sorry - the error-trapping is pretty
light in this example - it just displays the error code & description.

Private Sub Button1_Click()
On Error GoTo ErrorHandler
Dim FileSysObj As Object
Set FileSysObj = CreateObject("Scripting.FileSystemObject")
Dim OldFileName As String
Dim NewFileName As String
OldFileName = "C:\Documents and Settings\All
Users\Documents\IBIUpdate\filename.mdb"
NewFileName = "\\Inspiron700m\shareddocs\filename.mdb"
FileSysObj.CopyFile OldFileName, NewFileName, True
Exit Sub
ErrorHandler:
MsgBox "Error #" & Err.Number & ": " & Err.Description
End Sub

 

[scs]

Thanks very much. Works perfect.

Look at the CopyFile at the end of the sub - the "True" is for overwrite
(see
VBA help on CopyFile for more details). Sorry - the error-trapping is
pretty
light in this example - it just displays the error code & description.

Private Sub Button1_Click()
On Error GoTo ErrorHandler
Dim FileSysObj As Object
Set FileSysObj = CreateObject("Scripting.FileSystemObject")
Dim OldFileName As String
Dim NewFileName As String
OldFileName = "C:\Documents and Settings\All
Users\Documents\IBIUpdate\filename.mdb"
NewFileName = "\\Inspiron700m\shareddocs\filename.mdb"
FileSysObj.CopyFile OldFileName, NewFileName, True
Exit Sub
ErrorHandler:
MsgBox "Error #" & Err.Number & ": " & Err.Description
End Sub