Solved

Scripting or batch file to create folders

Posted on 2008-06-19
6
421 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article was inspired by a question here at Experts Exchange (http://www.experts-exchange.com/Software/Photos_Graphics/Images_and_Photos/Q_28629170.html). The requirements stated in that question are (1) reduce the file size of a large number of…
How to remove superseded packages in windows w60 or w61 installation media (.wim) or online system to prevent unnecessary space. w60 means Windows Vista or Windows Server 2008. w61 means Windows 7 or Windows Server 2008 R2. There are various …
Come and listen to Percona CEO Peter Zaitsev discuss what’s new in Percona open source software, including Percona Server for MySQL (https://www.percona.com/software/mysql-database/percona-server) and MongoDB (https://www.percona.com/software/mongo-…
This video Micro Tutorial shows how to password-protect PDF files with free software. Many software products can do this, such as Adobe Acrobat (but not Adobe Reader), Nuance PaperPort, and Nuance Power PDF, but they are not free products. This vide…

688 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