Create Folders From Text File and add Sub Folders

[Nu2Java]

Hello,

I am creating folders in a directory from a list of part numbers in a text file. Right now I am using a batch file that is run within each folder created manually, but is not very efficient. I have not gotten in to multiple directories and subdirectory creation. Here is what I am trying to do ...

Code for reading the text file with part numbers I want to create folders for:

dim objFileSys, objReadFile
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set objReadFile = objFileSys.OpenTextFile("C:\Folders\FolderFile.txt", ForReading)

Do until objReadFile.AtEndOfStream = True
    objFileSys.CreateFolder(objReadFile.ReadLine)

Loop
objReadFile.Close
Set objReadFile = Nothing
Set objFileSys = Nothing

But inside of each of those folders, I want to create sub-folders:

PROCESS-1
PROCESS-2
PROCESS-3
PROCESS-4

Any help is greatly appreciated

 

[PHV]

A starting point:

...
Do Until objReadFile.AtEndOfStream = True
    strFolder = objReadFile.ReadLine
    objFileSys.CreateFolder strFolder
    For i = 1 To 4
       objFileSys.CreateFolder strFolder & "\PROCESS-" & i
    Next
Loop
...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Nu2Java]

Thanks PHV .... This is just what I was looking for.