Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Checking for subfolders and creating
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 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Creating username and passwords | Excel Worksheet Functions | |||
if function checking for numerical data vs alpha characters | Excel Worksheet Functions | |||
Creating custom list with a comma in it | Excel Discussion (Misc queries) | |||
Creating an invoice with a lookup list | Excel Discussion (Misc queries) | |||
Eliminate creating list that returns blank cells | Excel Worksheet Functions |