The following sub will create, if necessary, a folder for you and will put you in the folder. I am assuming you already know what you are going to put in the folder and how to do it.
Public Sub sBuildFolder(PathName As String)
If Len(Dir(PathName, vbDirectory)) = 0 Then
MkDir PathName
End If
ChDir PathName
End Sub
Robert Berman
Data Base consultant
Vulcan Software Services
thornmastr@yahoo.com