Creating Directories

Keith · Jun 23, 2004

I am looking for a way to check if a directory exists on a
machine. If it dosn't I want to create it.

Can anybody help?

Norman Jones · Jun 23, 2004

Hi Keith,

On Error Resume Next
MkDir "C:\YourNewFolderName"
On Error GoTo 0

papou · Jun 23, 2004

Hi Keith
On Error Resume Next
ChDir "C:\Papou"
If Err <> 0 Then MkDir "C:\Papou"

HTH
Cordially
Pascal

sarasta · Jun 23, 2004

Well, I've coded that way :

Set a = CreateObject("Scripting.FileSystemObject")

If a.folderexists("c:\temp") Then

Else
a.createfolder ("c:\temp")
End I

Creating Directories

Keith

Norman Jones

papou

sarasta