filecopy? 1

[jonclark]

I keep on getting the following error when i use filecopy;
Runtime error '76';
Path not Found
Here is the code that i am trying;
Private Sub cmdOK_Click()
Dim sfile_dir As String
dim sfile_name as string
sfile_dir = "C:\temp\catimp\"
sfile_name = "G:\wes\file.exp"
If (Dir(sfile_dir & "catimp&quot) = "catimp" Then
sfile_check = True
Else
MkDir sfile_dir
End If
intMsg = MsgBox(sfile_name)
FileCopy sfile_name, sfile_dir
End Sub
Please help
Jon

 

[JohnYingling]

Try
If Len(Dir(sfile_dir & "catimp&quot) > 0 then

http://WWW.VBCompare.Com

 

[jonclark]

John,
That cleaned up alot but i still get the error when vb hits the filecopy command.
Any other ideas?
Jon

 

[jonclark]

I figured it out.
My problem is that i was copying file G:\wes\xxx to a directory. when i renamed the file it worked perfectly.
Thanks for having a great database to search from
Jon