----------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.

---

Add this page to your favorite Social Bookmarking websites