View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jacob Skaria Jacob Skaria is offline
external usenet poster
 
Posts: 8,520
Default Check the path for validity

Dim strFile as String
strFile = Trim(Range("C5"))

If Dir(Left(strFile, InStrRev(strFile, "\")), vbDirectory) = "" Then
MsgBox "Invalid Path"
End If

PS: Alternatively you can also use FSO FileSystemObject to validate...

If this post helps click Yes
---------------
Jacob Skaria


"Souny" wrote:

Good morning,

I have cells C5:C10 (merged cells) in my worksheet "Sheet1" where users can
type in a path, including the file name (e.g. "C:\File.xls"), that users want
to save the workbook.

I need some help to write a code to validate the path to make sure that the
path is correct. If the path is not correct, I want to message the users
that the path you have entered is not a correct path format.

This code will be part of if - then statement of my other code.

Please help.

Thanks.