testing to see if a Directory exists

[DBinPhilly]

I'm starting to automatically save PDF copies of certain reports in predetermined locations. I need to copy a file to a particular directory (based upon various criteria), but if the directory does not exist, I want to create the directory on the fly first. Otherwise I will just proceed with the copy.

I'm sure there is a DOS command to do this, but I can't find it.

Your help would be gratefully appreciated.

 

[pr2-eugin]

Hello DBinPhilly,

You can use the method put forward by Allen Browne - "To Determine if a file or folder exists", then if it returns False use MkDir to create it..

 

[zoran.eremija]

fBackup = BPath & "\Backup"

If FolderExists(fBackup) = False Then
MkDir fBackup
End If

Function FolderExists(strPath As String) As Boolean
On Error Resume Next
FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory)
End Function

 

[DBinPhilly]

thanks. the method works as advertised and I'm on to the next problem

 

[pr2-eugin]

Happy to Help.. Good Luck...

 

[reeseburg]

Thank you for the post