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.
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
"Steven M. Britton" <(E-Mail Removed)> wrote in message
news:1ce8601c45322$9a80c3e0$(E-Mail Removed)...
> 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.
>
> >-----Original Message-----
> >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.
> >
> >
> >
> >>-----Original Message-----
> >>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.
> >>.
> >>
> >.
> >