Creating a directory

[mick.smith1]

Hi
I can use "Application.CurrentProject.Path & "\Template" to check that
a directory exists on a users hard drive. What i am having trouble
finding is the code to add a directory to the users C:/ drive if it
doesn't exist.

Any help would be appreciated.

[Randy Harris]

* mi*********@gmail.com:

Hi
I can use "Application.CurrentProject.Path & "\Template" to check that
a directory exists on a users hard drive. What i am having trouble
finding is the code to add a directory to the users C:/ drive if it
doesn't exist.

Any help would be appreciated.

This works from me:

Dim GSQ_dir As String
Dim fs
On Error GoTo SaveFailed
GSQ_dir = CurrentProject.Path & "\GSQ_Queries"
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.folderexists(GSQ_dir) Then
fs.createfolder (GSQ_dir)
End If

Hope it helps.

--
Randy Harris
tech at promail dot com
I'm pretty sure I know everything that I can remember.

[mick.smith1]

Randy

It's exactly what I'm looking for. Thanks for your help, it's
appreciated.

Mick

[Rick Brandt]

mi*********@gmail.com wrote:

Hi
I can use "Application.CurrentProject.Path & "\Template" to check that
a directory exists on a users hard drive. What i am having trouble
finding is the code to add a directory to the users C:/ drive if it
doesn't exist.

Any help would be appreciated.

Access/VBA has the built in MkDir command for creating directories.

--
Rick Brandt, Microsoft Access MVP
Email (as appropriate) to...
RBrandt at Hunter dot com

[rkc]

mi*********@gmail.com wrote:

Hi
I can use "Application.CurrentProject.Path & "\Template" to check that
a directory exists on a users hard drive. What i am having trouble
finding is the code to add a directory to the users C:/ drive if it
doesn't exist.

Any help would be appreciated.

Call MkDir (folder)

[mick.smith1]

Thanks rkc

rkc wrote:

mi*********@gmail.com wrote:

Hi
I can use "Application.CurrentProject.Path & "\Template" to check that
a directory exists on a users hard drive. What i am having trouble
finding is the code to add a directory to the users C:/ drive if it
doesn't exist.

Any help would be appreciated.

Call MkDir (folder)