I am exporting an access query as an excel file and would like to create a folder in the Windows file system to put the file into. Currently the file just goes into the user's designated directory path. I would like to create a folder in this directory path, then put the exported file into that.

If I knew how to create the folder I think could handle the rest.

Any ideas on how to make this happen?

Thanks,
Coby.

Yes. You need to use the Scripting.FileSystemObject.

Dim objFSO As Variant
Dim objFolder As Variant

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\Sample")

However, if it already exists, you may run into problems. Try:

Dim objFSO As Variant
Dim objFolder As Variant

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists("C:\Sample") Then
   DoCmd.... transfer to this folder
Else
   Set objFolder = objFSO.CreateFolder("C:\Sample")
   DoCmd.... transfer to this folder
End If


If you name the path like this:

Dim sPath As String

sPath = "C:\Documents and Settings\UserName\My Documents\NewFolder"

Then the syntax is this:

Set objFolder = objFSO.CreateFolder(sPath)


Did that help?


mmcdonal

That worked perfectly! Could you recommend a good reference for info about the Fso (ie, literature or debugging library) where I could find all of the different methods as "CreateObject" as you have used here?

Coby.

Glad to hear it. Two books I would not be without:

Microsoft Windows 2000 Scripting Guide (yes, 2000. This stuff hasn't changed much)
ISBN: 0735618674

Advanced VBScript for Microsoft Windows Administrators.
ISBN: 2005937886

I would also look for some works on Windows Powershell since it will replace or augment this soon. This functionality should be available for awhile, though.

Sorry Wrox.


mmcdonal