Vista - creating complete file path

Hello,

The FileSystemObjects CreateFolder() can only create one folder at a time.
e.g.

CreateFolder(c:\temp)
CreateFolder(c:\temp\tempsub)
...


How can I create a given path "c:\temp\tempsub" at a time (or in a loop)?

Thank You

Joachim

Joachim Hofmann schrieb:see
http://www.visualbasicscript.com/fb.aspx?m=38936

"Joachim Hofmann" <speicher@xxxxxx> wrote in message
news:%235vEfmLFJHA.2456@xxxxxxI created me a function for this purpose a long time ago & just slot it
into any scripts I need this functionality in. Just use syntax like
'CreatePath "C:\One\Two\Three\Four", False'.

Function CreatePath(ByVal sPathName, ByVal bQuitOnFail)
Dim oFSO, sPath, sString, aPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
aPath = Split(sPathName, "\")
On Error Resume Next
For Each sString in aPath
If Len(sString) Then
sPath = sPath & String(Abs(Len(sPath) > 0),"\") & sString
If Not oFSO.FolderExists(sPath) Then
oFSO.CreateFolder(sPath)
End If
End If
Next
On Error Goto 0
CreatePath = oFSO.FolderExists(sPathName)
If bQuitOnFail And Not CreatePath Then
MsgBox "Unable to create Folder:" & vbCrLf & sPathNAme, vbExclamation,
"Quitting!"
If Not TypeName(oIE) = "Object" Then oIE.Quit
WScript.Quit
End If
End Function

ekkehard.horner wrote:time.loop)?Excellent subroutine, but mind the typo in the example calling line.
(Remove the close parenthesis preceding the ampersand.)

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)

"Todd Vargo" <tlvargo@xxxxxx> wrote in message
news:O6%23lfUUFJHA.768@xxxxxxSo you are saying to change this:

SmartCreateFolder(WSHShell.ExpandEnvironmentStrings ("%SystemDrive%") &
"\Program Files\Name1\Name2" )

to this:

SmartCreateFolder(WSHShell.ExpandEnvironmentStrings ("%SystemDrive%" &
"\Program Files\Name1\Name2" )

? Now we have more opening parens than closing ones - surely a syntax error
in either case.

I would propose this:

SmartCreateFolder(WSHShell.ExpandEnvironmentStrings ("%SystemDrive%" &
"\Program Files\Name1\Name2" ))

But then we could reduce the concatenation of two literal strings to one
literal string, i.e.:

SmartCreateFolder(WSHShell.ExpandEnvironmentStrings
("%SystemDrive%\Program Files\Name1\Name2" ))

And we could further reduce the redundant outer parens:

SmartCreateFolder WSHShell.ExpandEnvironmentStrings
("%SystemDrive%\Program Files\Name1\Name2" )

/Al

"Al Dunbar" <AlanDrub@xxxxxx> wrote in message
news:u3JmXmUFJHA.612@xxxxxxOr even:

SmartCreateFolder
WSHShell.ExpandEnvironmentStrings("%ProgramFiles%\Name1\Name2" )

/Al

Todd Vargo schrieb:[...][...]I can't rule out that the line was changed recently, but as it is now

SmartCreateFolder(WSHShell.ExpandEnvironmentStrings ("%SystemDrive%") & "\Program
Files\Name1\Name2" )

the close parenthesis preceding the ampersand is needed for the call of
..ExpandEnvironmentStrings.

According to the rule "no parameter list parentheses when callg a sub", the
*first* pair of () should be removed.

"ekkehard.horner" <ekkehard.horner@xxxxxx> wrote in message
news:48cb53a8$0$3551$9b4e6d93@xxxxxx-online.net...oops, my bad, I was looking at it sideways and misconstruing the writer's
intent. That said, expandenvironmentstrings expands as batch does, and does
not need to be limited to one evn var per call.

/Al

Al Dunbar wrote:Good points but %SystemDrive% and %ProgramFiles% variables do not exist in
Windows 98, therefore I had only read the code without testing.

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)