LazyNetworkAdmin.com - Create Folders from a list in an .xls Spreadsheet

Main Menu

Home

Knowledgebase

RSS Feeds

Links

Downloads

LNA Blogs

Cheyenne Harden's Blog

LazyNetworkAdmin Blog

Login Form

Syndicate

Home

RSS Feeds

Create Folders from a list in an .xls Spreadsheet

Written by Cheyenne Harden

I needed to create over 300 folders with specific file names.
These names were listed in an excel doc and I didn't want to create the folders by hand.
This script will create folders based on the listed text in an excel file.

----------COPY EVERYTHING BELOW THIS LINE for the Script----------
'This script will create folders based on the listed text in an excel file.
' Created by Chey Harden 7.6.07

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Test.xls") 'put the path to the .xls file here
objExcel.Visible = False

i = 1

Do Until objExcel.Cells(i, 1).Value = "" ' first value is row (i), second value is the column (1)

    strNewFolderName = objExcel.Cells(i, 1).Value

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder("C:\scripts\" & strNewFolderName) 'Location to create the folders

i = i + 1
Loop

----------COPY EVERYTHING ABOVE THIS LINE for the Script----------

PLEASE MAKE SURE NO WORD WRAPPING IS HAPPENING IN YOUR SCRIPT!!!

To make this script work you will need the items below!

1. Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Test.xls") 'put the path to the .xls file here
2. Do Until objExcel.Cells(i, 1).Value = "" ' first value is row (i), second value is the column (1)
3. Set objFolder = objFSO.CreateFolder("C:\scripts\" & strNewFolderName) 'Location to create the folders

This information is provided "AS IS" with no warranties expressed or implied.

Comments

Add New

john davies

| 87.127.48.xxx | 21-01-2008 12:15:31

Hi Chey

Great script did the job - any idea on how to get subfolders created after the master folder list ? ie create folder 1 - if folder 1 exists the create subfolders from column 2 ?

Regards John

Reply | Quote