Submitted By: Dave Kalata
This script creates a folder in the current directory.
Set objFSO = CreateObject("Scripting.FileSystemObject") CreateDir "Scripts" Sub CreateDir(Dir) Dim TempDir, i On Error Resume Next If Not objFSO.FolderExists(Dir) Then For i = 1 to Len(Dir) If Mid(Dir,i,1) = "\" Then objFSO.CreateFolder(TempDir) TempDir = TempDir & Mid(Dir,i,1) Next End If objFSO.CreateFolder(Dir) End Sub
Set objFSO = CreateObject("Scripting.FileSystemObject") CreateDir "Scripts" Sub CreateDir(Dir) Dim TempDir, i On Error Resume Next If Not objFSO.FolderExists(Dir) Then For i = 1 to Len(Dir) If Mid(Dir,i,1) = "\" Then objFSO.CreateFolder(TempDir) TempDir = TempDir & Mid(Dir,i,1) Next End If objFSO.CreateFolder(Dir) End Sub