[AccessD] Does a directory exist?

What is the proc Status_Msg?

Arthur

On Fri, Jun 24, 2011 at 11:50 AM, Darrell Burns <dhb at flsi.com> wrote:

> Here's a function that I use...
>
> Private Function VerifyFolder(path) As Integer
>    On Error GoTo VerifyFolder_err
>    Set fso = CreateObject("Scripting.FileSystemObject")
>    Set Folder = fso.GetFolder(path) 'throws exception if folder doesn't
> exist
>    VerifyFolder = True
>    Exit Function
> VerifyFolder_err:
>    Status_Msg "Folder does not exist: " + path, stMsgForm, 3
>    VerifyFolder = False
> End Function
>