copy of file

[breukelen]

I am trying to copy a file by clicking a button :

Private Sub Command4_Click()
FileSystemObject.CopyFile "d:\neurotest.mdb", "d:\my documents\"
End Sub

The above does not work.
Would appreciate some help.

Gunter

 

[TCARPENTER]

Try this:

Private Sub Command4_Click()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "d:\neurotest.mdb", "d:\my documents\"
End Sub

HTH
Todd

 

[breukelen]

Thank you very much for your help.
Works fine.

best regards ,

Gunter