Solved

Scripting or batch file to create folders

Posted on 2008-06-19
6
416 Views
Last Modified: 2012-06-22
I am looking to create a standard folder structure with a prompt for the name of the root folder in a script or a batch file. Also i want to be able to run this on existing folders to fill in the missing folders.
0
Comment
Question by:Bruce_S_C
  • 3
  • 2
6 Comments
 
LVL 14

Accepted Solution

by:
sungenwang earned 500 total points
ID: 21825756
Below is a script that will create a series of folders within the root folder selected by the user:
<selected_folder>\folder1
<selected_folder>\folder1\folder1a
<selected_folder>\folder1\folder1b
<selected_folder>\folder2
<selected_folder>\folder3

You can modify the Call MyCreateFolder() function to suit your need.

sew

strRootFolder = MyGetFolder("Please select your root folder", "C:\")

If strRootFolder = "" Then WScript.Quit

strRootFolder = strRootFolder & "\"
 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Call MyCreateFolder(strRootFolder & "folder1")

Call MyCreateFolder(strRootFolder & "folder1\folder1a")

Call MyCreateFolder(strRootFolder & "folder1\folder1b")

Call MyCreateFolder(strRootFolder & "folder2")

Call MyCreateFolder(strRootFolder & "folder3")
 
 

Function MyCreateFolder(strFolder)

	If Not objFSO.FolderExists(strFolder) Then

		objFSO.CreateFolder(strFolder)

	End If

End Function
 
 

Function MyGetFolder(strMessage, strRootPath)

	Set objShell = CreateObject("Shell.Application")

	Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, strMessage, NO_OPTIONS, strRootPath)

	

	On Error Resume Next

	MyGetFolder = objFolder.Self.Path

	On Error Goto 0

End Function

Open in new window

0
 

Author Comment

by:Bruce_S_C
ID: 21825968
Just to be sure this can be run on a current structure and it will not error if the folder is there?
0
 
LVL 14

Expert Comment

by:sungenwang
ID: 21827586
No. These lines will create folder only if it's not there:

      If Not objFSO.FolderExists(strFolder) Then
            objFSO.CreateFolder(strFolder)
      End If

sew
0
 

Author Comment

by:Bruce_S_C
ID: 21830704
How would i add in folder permissions?
0
 
LVL 14

Assisted Solution

by:sungenwang
sungenwang earned 500 total points
ID: 21831819
I am not a network expert, but this solution deals with adding permission to a folder using Microsoft's vbscript XCacls.vbs.
http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/Server/2003_Server/Q_22613039.html

sew
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
Use this article to create a batch file to backup a Microsoft SQL Server database to a Windows folder.  The folder can be on the local hard drive or on a network share.  This batch file will query the SQL server to get the current date & time and wi…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
This video explains how to create simple products associated to Magento configurable product and offers fast way of their generation with Store Manager for Magento tool.

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now