Copy a file from one location to another 1

[northernbeaver]

Im trying to copy a file from one location to another on a click of a button. Im running access 2000. I have tried using the following code

Dim fs As New Scripting.FileSystemObject
Set fs = New FileSystemObject



strFilter = ahtAddFilterItem(strFilter, "CAD DWG (*.DWG)", "*.DWG")
strInputFileName = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=False, _
                DialogTitle:="Please select an input file...", _
                Flags:=ahtOFN_HIDEREADONLY)
fs.CopyFile Me.CadLink, strInputFileName

but when I try to run the code I get the error "user defined type not defined" I assume that means I have to have something referenced in my references. the app that Im creating will eventually be distributed on cd so I have to be carefull as to what I use to copy the file. is there a better way?

 

[PHV]

Why using the FSO instead of the native VBA instruction ?
FileCopy Me.CadLink, strInputFileName

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886