Using Excel to create directories?

[kyrgan]

Hello all,

I have an issue where I need to save a file to a certain directory.

What I would like to do, using VBA is to check and see if the dir exists, and if it does not, go ahead and create it.

In this same vein, how would one go about deleting a dir (empty or full)

Thanks!
K.

 

[John_w]

Look at the Dir, MkDir and RmDir statements.

 

[kyrgan]

Found this previous post from Vog.

Thanks for the point in the right direction John!

Function DirExists(sSDirectory As String) As Boolean
If Dir(sSDirectory, vbDirectory) <> "" Then DirExists = True
End Function

Sub test()
If Not DirExists(Range("A3").Value) Then MkDir Range("A3").Value
MkDir Range("A3").Value & "\" & Range("A2").Value
ActiveWorkbook.SaveAs Filename:=Range("A3").Value & "\" & Range("A2").Value & "\" & Range("A1").Value
End Sub