Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
check and create folder for saveas
how do you chech if a folder exists and create one on A: drive is it is not
there ? Please help a newbie- Thanks :-} |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
check and create folder for saveas
Hi Sunil,
One way Sub Test() Dim sFolder As String sFolder = "C:\Mytest\New Dir" If Not FolderExists(sFolder) Then MkDir sFolder End If End Sub '----------------------------------------------------------------- Function FolderExists(Folder) As Boolean '----------------------------------------------------------------- Dim sFolder As String On Error Resume Next sFolder = Dir(Folder, vbDirectory) If sFolder < "" Then If (GetAttr(sFolder) And vbDirectory) = vbDirectory Then FolderExists = True End If End If End Function -- HTH RP "Sunil" wrote in message ... how do you chech if a folder exists and create one on A: drive is it is not there ? Please help a newbie- Thanks :-} |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
check and create folder for saveas
Another way is to just ignore the error if there's a folder already there.
on error resume next mkdir "a:\myfolder" on error goto 0 This assumes that you wouldn't have a filename that has that name. Sunil wrote: how do you chech if a folder exists and create one on A: drive is it is not there ? Please help a newbie- Thanks :-} -- Dave Peterson |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
check and create folder for saveas
If c:\mytest didn't exist, then I get an error when I try to make:
c:\mytest\new dir in one statement. Bob Phillips wrote: Hi Sunil, One way Sub Test() Dim sFolder As String sFolder = "C:\Mytest\New Dir" If Not FolderExists(sFolder) Then MkDir sFolder End If End Sub '----------------------------------------------------------------- Function FolderExists(Folder) As Boolean '----------------------------------------------------------------- Dim sFolder As String On Error Resume Next sFolder = Dir(Folder, vbDirectory) If sFolder < "" Then If (GetAttr(sFolder) And vbDirectory) = vbDirectory Then FolderExists = True End If End If End Function -- HTH RP "Sunil" wrote in message ... how do you chech if a folder exists and create one on A: drive is it is not there ? Please help a newbie- Thanks :-} -- Dave Peterson |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
check and create folder for saveas
Just another idea...
s = "C:\Demo" With CreateObject("Scripting.FileSystemObject") If Not .FolderExists(s) Then .CreateFolder (s) End With -- Dana DeLouis Win XP & Office 2003 "Bob Phillips" wrote in message ... Hi Sunil, One way Sub Test() Dim sFolder As String sFolder = "C:\Mytest\New Dir" If Not FolderExists(sFolder) Then MkDir sFolder End If End Sub '----------------------------------------------------------------- Function FolderExists(Folder) As Boolean '----------------------------------------------------------------- Dim sFolder As String On Error Resume Next sFolder = Dir(Folder, vbDirectory) If sFolder < "" Then If (GetAttr(sFolder) And vbDirectory) = vbDirectory Then FolderExists = True End If End If End Function -- HTH RP "Sunil" wrote in message ... how do you chech if a folder exists and create one on A: drive is it is not there ? Please help a newbie- Thanks :-} |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Disable/ignore compatibility check during SaveAs | Excel Worksheet Functions | |||
Creating a folder on SaveAs | Excel Discussion (Misc queries) | |||
SaveAS to a specific folder, with operator input of file name | Excel Discussion (Misc queries) | |||
How to: check if folder exist, if not, create | Excel Programming | |||
Create Folder and Text File in folder | Excel Programming |