Check for/Create a folder 1

[evalesthy]

I am sending a file to a backup location (in this instance a Zip Disk on D. The process works fine using "FileCopy, strSource, strDest". However, what I would like to do is put the file in a specific folder (e.g. send 'Daily Backup' to folder named "Daily" on the Zip, etc.). What I don't know how to do is to check for the existence of the folder at the target destination and if it does not exist then create it. Help will be greatly appreciated.

 

[Mongooses]

You can check for the folder first by:

Dim myDir
myDir = Dir("D:\Daily", vbDirectory)

If myDir = "" Then
'Need to create Directory
MkDir ("D:\Daily&quot
End If

HTH
JC