[AccessD] Does a directory exist?

	The FileSystemObject supports a FolderExists (as well as a
FileExists) function. 

	Regards,  

	Steve Goodhall, MSCS, PMP 
248-505-5204

----- Original Message -----
 From:Access Developers discussion and problem solving 
To:"Access Developers discussion and problem solving" 
Cc:
Sent:Fri, 24 Jun 2011 12:04:58 -0400
Subject:Re: [AccessD] Does a directory exist?

What is the proc Status_Msg?

Arthur

On Fri, Jun 24, 2011 at 11:50 AM, Darrell Burns wrote:

> Here's a function that I use...
>
> Private Function VerifyFolder(path) As Integer
> On Error GoTo VerifyFolder_err
> Set fso = CreateObject("Scripting.FileSystemObject") [1]
> Set Folder = fso.GetFolder(path) [2] '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 [3]
http://databaseadvisors.com/mailman/listinfo/accessd [4]
Website: http://www.databaseadvisors.com [5]


Links:
------
[1] http://scripting.filesystemobject/
[2] http://sitemail.gate.com/http:/
[3] mailto:AccessD at databaseadvisors.com
[4] http://databaseadvisors.com/mailman/listinfo/accessd
[5] http://www.databaseadvisors.com/