Any code for Creating a folder

[brettvba]

Does anyone have any code for checking to see if a folder exists and if not creating one?

[Qroozn]

Are you trying to get your script to "save as"?

[Russell Hauf]

Look up Dir and MkDir.

If Dir("c:temp",vbDirectory) = vbNullString Then 
    ' Folder does not exist, create one:
    MkDir "c:temp"
End If

p.s. The backslashes should be single - I can't remember how to not have them automatically doubled...

[ This Message was edited by: Russell Hauf on 2002-05-21 15:56 ]

[brettvba]

Yeah
i found some code in an earlier post

Sub foldercheck()

On Error GoTo ErrorCheck
Dim foldername As String

foldername = "c:YourFolderName"

ChDir foldername
GoTo FolderCheckEnd

ErrorCheck:
If Err.Number = 76 Then GoTo MakeDir
If Err.Number <> 76 Then MsgBox ("A Error happened while changing to " + foldername + " or while making that folder and the error is " + Str(Err.Number))
End

MakeDir:
MkDir foldername
Resume


FolderCheckEnd:
End Sub

seems to work well

[brettvba]

On 2002-05-21 15:55, Russell Hauf wrote:
Look up Dir and MkDir.

If Dir("c:temp",vbDirectory) = vbNullString Then 
    ' Folder does not exist, create one:
    MkDir "c:temp"
End If

p.s. The backslashes should be single - I can't remember how to not have them automatically doubled...

[ This Message was edited by: Russell Hauf on 2002-05-21 15:56 ]

or Russells which is clearly alot tider

If Dir("c:temp",vbDirectory) = vbNullString Then MkDir "c:temp"

[NateO]

I'll throw out another way:

Sub Chk()

Dim RootDir As String, fso As Object, Nme As String

Set fso = CreateObject("Scripting.FileSystemObject")

RootDir = "c:temp"

Nme = "MyFolder"

If Not fso.folderexists(RootDir & Nme) Then

    fso.createfolder (RootDir & Nme)

End If

set fso = nothing

End Sub

_________________
Cheers, NateO

[ This Message was edited by: nateo on 2002-05-21 16:50 ]