Path/File Access Error 75 trying to copy file

[sharky12345]

I'm trying to come up with a routine that allows a user to browse to a file and then copy it to the same path as the active workbook - this is what I have so far;

Dim SourceFile, DestinationFile

SourceFile = Application.GetOpenFilename(FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Select exisiting File")
DestinationFile = ThisWorkbook.Path
FileCopy SourceFile, DestinationFile

With the above though I keep getting an error 75, Path/File Access Error and it fails on this line;

FileCopy SourceFile, DestinationFile

I can manually copy it no problem, so what's the issue?

 

[Domenic]

ThisWorkbook.Path only returns the path. So you'll need to include the filename. Try...

DestinationFile = ThisWorkbook.Path & "\" & Mid(SourceFile, InStrRev(SourceFile, "\") + 1)

I would suggest you amend your code as follows...

Dim SourceFile As String
Dim DestinationFile As String


SourceFile = Application.GetOpenFilename(FileFilter:="PDF Files (*.pdf), *.pdf", Title:="Select exisiting File")
If SourceFile = "False" Then Exit Sub


DestinationFile = ThisWorkbook.Path & "\" & Mid(SourceFile, InStrRev(SourceFile, "\") + 1)


FileCopy SourceFile, DestinationFile

Hope this helps!

 

[sharky12345]

Thank you Domenic!