Does [Sub]Directory Exist?

[OldBirdman]

I want to manage images to use on my form, multiple images per record (row in primary table). I will

put these images in a folder, not as part of a table. There may be 12,000 rows in the table, and 20+

images/row.

I have no problem displaying the pictures. imgDisplayPhoto.Picture = Path & strPicName & ".jpg"

works very well if I hardcode Path. i.e. Form_Load has the statement: Path = "C:\MyProgram\Images\"

I can trap any errors, and display my default picture ("No Image Exists") if none exists.

My users might have the pictures in one-of-three places. 1-With the program; 2-Sub-Directory of the

Program Directory (Preferred); 3-Somewhere else. The user states where the pictures are. This is

straightforward and simple, and not my question.

After the user states where the pictures are located, I want to verify that the path is valid. Also, on

subsequent uses of the program, I need to know if the [Sub-]Directory still exists. It seems that

FolderExists and/or FileExists and/or DriveExists Method would solve my problem.

Access Help has "object.FileExists(filespec)" where "object is Required. Always the name of a

FileSystemObject". What is a FileSystemObject? Access Help is not crystal clear (no surprise), and

http://msdn2.microsoft.com/en-us/library/d6dw7aeh.aspx doesn't help.

I need a statement, function, or method that gives the answer to the question "Does the Folder " &

FolderName & " Exist?", and if the answer is to use FolderExists, how do I use it (give an example)?

[ADezii]

I want to manage images to use on my form, multiple images per record (row in primary table). I will

put these images in a folder, not as part of a table. There may be 12,000 rows in the table, and 20+

images/row.

I have no problem displaying the pictures. imgDisplayPhoto.Picture = Path & strPicName & ".jpg"

works very well if I hardcode Path. i.e. Form_Load has the statement: Path = "C:\MyProgram\Images\"

I can trap any errors, and display my default picture ("No Image Exists") if none exists.

My users might have the pictures in one-of-three places. 1-With the program; 2-Sub-Directory of the

Program Directory (Preferred); 3-Somewhere else. The user states where the pictures are. This is

straightforward and simple, and not my question.

After the user states where the pictures are located, I want to verify that the path is valid. Also, on

subsequent uses of the program, I need to know if the [Sub-]Directory still exists. It seems that

FolderExists and/or FileExists and/or DriveExists Method would solve my problem.

Access Help has "object.FileExists(filespec)" where "object is Required. Always the name of a

FileSystemObject". What is a FileSystemObject? Access Help is not crystal clear (no surprise), and

http://msdn2.microsoft.com/en-us/library/d6dw7aeh.aspx doesn't help.

I need a statement, function, or method that gives the answer to the question "Does the Folder " &

FolderName & " Exist?", and if the answer is to use FolderExists, how do I use it (give an example)?

One way to find out if a Folder exists is the following:

1. Create a Reference to the Microsoft Scripting Runtime.
2. Copy and Paste this Public Function to a Standard Code Module:
   

   Public Function fDoesPathExist(strPathToFolder As String) As Boolean
   Dim fs
    
   Set fs = CreateObject("Scripting.FileSystemObject")
    
   fDoesPathExist = fs.FolderExists(strPathToFolder)
   End Function

3. Check for the existence of a Folder with similar code to that posted below:
   

   'Pass the Folder's Path (fully qualified) to the Function
   If fDoesPathExist("C:\Folder_1\Folder_2\Folder_3") Then
     Debug.Print "Folder does exist"
   Else
     Debug.Print "Folder does not exist"
   End If

4. You could also use the Dir$() Function in similar fashion:
   

   If Dir$("C:\Windows\System32", vbDirectory) <> "" Then
     Debug.Print "Folder exists"
   Else
     Debug.Print "Folder does not exist"
   End If

[OldBirdman]

Beautiful Answer! Thank you very much. I now have a standard function to test for the existance of a Folder or File from a string variable.

One logical place to store my images would be a SubFolder in the folder that contains the program. Is there any way to know the Path of the program from VB code?

Example: Program is C:\Access\ViewPics\ViewPics.mdb pictures would be at C:\Access\ViewPics\Images. I need a function that returns "C:\Access\ViewPics"

[ADezii]

Beautiful Answer! Thank you very much. I now have a standard function to test for the existance of a Folder or File from a string variable.

One logical place to store my images would be a SubFolder in the folder that contains the program. Is there any way to know the Path of the program from VB code?

Example: Program is C:\Access\ViewPics\ViewPics.mdb pictures would be at C:\Access\ViewPics\Images. I need a function that returns "C:\Access\ViewPics"

1. CurrentProject.Path will always return the Path to the Active Database as in:
   

   ? CurrentProject.Path ==> C:\Access\ViewPics

2. 'To return the Path to the Images Directory:
   

   ? CurrentProject.Path & "\Images\" ==> C:\Access\ViewPics\Images\

[OldBirdman]

Again, THANK YOU !!!
I spent several hours in MSAccess Help, www.Microsoft. . . , Google, and theScripts Search trying to find this.
Thank you very much again.

OldBirdman

[ADezii]

Again, THANK YOU !!!
I spent several hours in MSAccess Help, www.Microsoft. . . , Google, and theScripts Search trying to find this.
Thank you very much again.

OldBirdman

You are always welcome.