Checking to see if Directory exists and making it.

S

Steven M. Britton

How can I check to see if a directory exists and if it
doesn't make it and if it does export my file into it.
 
J

jmonty

Try something like this:

If Len(Dir("C:\Test", vbDirectory)) > 0 Then
FileCopy "C:\source.txt", "D:\destination.txt"
End If

substitute your file/directory names or
string variables for the directory and file
paths/names if you'd prefer.
 
S

Steven M. Britton

Seems my most important part of the question was
overlooked.

How can I check to see if a directory exists and if it
doesn't make it.
 
D

Douglas J. Steele

If Len(Dir("C:\Test", vbDirectory)) = 0 Then
' Directory doesn't exist. Create It
MkDir "C:\Test"
End If

Note that you cannot do

If Len(Dir("C:\Test\Subfolder", vbDirectory)) = 0 Then
' Directory doesn't exist. Create It
MkDir "C:\Test\Subfolder"
End If

if Test doesn't already exist.
 
Top