Hello, I am trying to create subfolders underneath a root folder. I have say 10000 folders being created fine using the attached code.I am trying to figure out how to have subfolders created under each folder I have created using the excel spreadsheet data.
This is the structure i am looking to acheive.
SubFolder ( not part of xls data) just a folder that I will name
perhaps more subfolders here as well
So my code so far takes the data from xls and creates the 10000 folders i want.Underneath each of these 10000 folders I want to create other folders for each.
The bottom code snippet is what I am thinking but cant seem to get it right... can anyone help at all..
Thanks Very much
strComputer = "."
strRoot = "z:\clients\10000\"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Clients10.xls")
objExcel.Visible = False
i = 1
Do Until objExcel.Cells(i, 1).Value = ""
strNewFolderName = objExcel.Cells(i, 1).Value
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strRoot & strNewFolderName)
i = i + 1
Set objFolder=objFSO.GetFolder(strRoot & strFolder)
For Each item In arrFolders
If objFSO.FolderExists(strRoot & strFolder & "\" & item) Then
WScript.Echo "Folder " & strRoot & strFolder &_
"\" & item & " already exists"