Checking for subfolders and creating

[Gizmo63]

Hi all,

I've seen this answered somewhere before but can't seem to find it now.

I'm looking for some VBA coding to check is a subfolder exists on a preset
path and create it if it doesn't.
I have created code to get files and report errors if they're not there so I
guess it'll be something along similar lines.
The path to the level above the desired subfolder is a known variable e.g
folderpath = "s:\merch\plandata\rangeplans"

I need to check for existance of the next level:
subfolderpath = "s:\merch\plandata\rangeplans\initials
and create the subfolder if it isn't there.

Thanks for your help.

Giz

[Die_Another_Day]

Here's something from Tom
Function DirectoryExist(sstr As String)
'Tom Oglivy
Dim lngAttr As Long
DirectoryExist = False
If Dir(sstr, vbDirectory) <> "" Then
lngAttr = GetAttr(sstr)
If lngAttr And vbDirectory Then _
DirectoryExist = True
End If
End Function

Sub Test()
Dim dirstr As String
Dim wb As Workbook

Set wb = ActiveWorkbook

dirstr = "C:\MyDir"
If Not DirectoryExist(dirstr) Then
MkDir dirstr
wb.SaveAs dirstr & "\ron.xls"
Else
wb.SaveAs dirstr & "\ron.xls"
End If
End Sub

Charles

Gizmo63 wrote:
> Hi all,
>
> I've seen this answered somewhere before but can't seem to find it now.
>
> I'm looking for some VBA coding to check is a subfolder exists on a preset
> path and create it if it doesn't.
> I have created code to get files and report errors if they're not there so I
> guess it'll be something along similar lines.
> The path to the level above the desired subfolder is a known variable e.g
> folderpath = "s:\merch\plandata\rangeplans"
>
> I need to check for existance of the next level:
> subfolderpath = "s:\merch\plandata\rangeplans\initials
> and create the subfolder if it isn't there.
>
> Thanks for your help.
>
> Giz