How do i save a image to the same folder my .xls file is located?

[Mr. GetRight]

I want to allow the user to tell me where a file(.pdf, .tif,.gif, .doc, etc)
is located. After that I want the progrem to verfy the file exist, then save
a new copy to the same path as my .xls docment and under a new name. Can you
Help?

 

[Dave Peterson]

How about letting the user choose the file. Then you know that it exists.

Option Explicit
Sub testme()
Dim myFileName As Variant
Dim JustFileName As String
Dim NewPath As String

myFileName = Application.GetOpenFilename(filefilter:="All Files, *.*")

If myFileName = False Then
'user hit cancel
Exit Sub
End If

JustFileName = Mid(myFileName, InStrRev(myFileName, "\") + 1)

NewPath = ThisWorkbook.Path 'activeworkbook.path????

FileCopy Source:=myFileName, _
Destination:=NewPath & "\" & JustFileName

End Sub

 

[Mr. GetRight]

Works Perfectly! Thanks a Million!

How about letting the user choose the file. Then you know that it exists.

Option Explicit
Sub testme()
Dim myFileName As Variant
Dim JustFileName As String
Dim NewPath As String

myFileName = Application.GetOpenFilename(filefilter:="All Files, *.*")

If myFileName = False Then
'user hit cancel
Exit Sub
End If

JustFileName = Mid(myFileName, InStrRev(myFileName, "\") + 1)

NewPath = ThisWorkbook.Path 'activeworkbook.path????

FileCopy Source:=myFileName, _
Destination:=NewPath & "\" & JustFileName

End Sub