Check folder exists if not create 2

[Ronnieatwarton]

I need to save tables to a database and save them in a specific folder.
When a save button is pressed I want to check to see if it already exisits, if it does i want to save the database but not overwrite any others (date stamp added?)
If the folder does not exist, then I would like to ask the user where he would like to place it, but not give the option to name it.
any ideas?

 

[alvechurchdata]

Use the File Scripting Object:

strFolder = strUserPath & "\" & strFolderName
set fso = createobject("scripting.filesystemobject")
fso.createfolder(strFolder)

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[lupins46]

I need to save tables to a database and save them in a specific folder"

What?
Tables are a part of an mdb file; they can't be saved independently of the mdb file which contains them.

 

[VBslammer]

Don't forget the good ole BASIC commands:
[tt]
If Dir("C:\MyFolder", vbDirectory) = "" Then
If MsgBox("Folder does not exist, create it?", _
vbQuestion + vbOKCancel, "Alert:") = vbOK Then
MKDIR "C:\MyFolder"
End If
End If
[/tt]

VBSlammer

"You just have to know which screws to turn." - Professor Bob