Checking for subfolders and creating
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
|