[AccessD] [Spam]8.31 Re: Does a directory exist?

Re: Status_Msg 
I place a view-only textbox control at the top of every form called
"StatusMsg" for displaying instructions, warnings, error messages, etc. The
arguments are: txtMsg as string, FormName as string, ColorCode as integer.
Colorcode controls the font colors...1=Green, 2=Yellow, 3=Red. The
background is dark. 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: Friday, June 24, 2011 9:05 AM
To: Access Developers discussion and problem solving
Subject: [Spam]8.31 Re: [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
>
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com