I use the following to save a file to folder. How can I have it check
to see if the filepath exists and it exits then msgbox indicated that file
is there and exit sub routine, and if not exists, go ahead and create the
path?

ActiveWorkbook.SaveAs Filename:="\\my path directory\" & NewFileName & ".xls"

see
http://j-walk.com/ss/excel/tips/tip54.htm
--
p45cal


"abdrums" wrote:

> I use the following to save a file to folder. How can I have it check
> to see if the filepath exists and it exits then msgbox indicated that file
> is there and exit sub routine, and if not exists, go ahead and create the
> path?
>
> ActiveWorkbook.SaveAs Filename:="\\my path directory\" & NewFileName & ".xls"
>

try something like this:

If Dir("\\my path directory\" & NewFileName & ".xls") = "" Then
ActiveWorkbook.SaveAs Filename:="\\my path directory\" & NewFileName &
".xls"
Else
MsgBox "File already exists!"
Exit Sub
End If



--
Hope that helps.

Vergel Adriano


"abdrums" wrote:

> I use the following to save a file to folder. How can I have it check
> to see if the filepath exists and it exits then msgbox indicated that file
> is there and exit sub routine, and if not exists, go ahead and create the
> path?
>
> ActiveWorkbook.SaveAs Filename:="\\my path directory\" & NewFileName & ".xls"
>

Not sure if you are talking about file or path to exist. You have some
suggestions already, but here's another.
You can use the Windows API to check/create a path:

<API-Guide>
Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal
lpPath As String) As Long

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error
information, call GetLastError.
</API-Guide>

NickHK

"abdrums" <(E-Mail Removed)> wrote in message
news:AD02684E-12EE-42A7-BE51-(E-Mail Removed)...
> I use the following to save a file to folder. How can I have it check
> to see if the filepath exists and it exits then msgbox indicated that file
> is there and exit sub routine, and if not exists, go ahead and create the
> path?
>
> ActiveWorkbook.SaveAs Filename:="\\my path directory\" & NewFileName &
".xls"
>