Yups you can do that through a simple script.
Following is a sample for reading a text file containing foldernames . ex.
folderA
folderB
folderC

and creating folders where the exe/project is placed, u can set fldrPATH as per ur requirements

dim fs,a
dim fldrNM as string
'opening the flat file for reading
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.opentextfile(Text1.Text, 1, True)
Do While a.AtEndofstream <> True
 fldrNM = a.ReadLine
 fldrPATH = app.path & "\" & fldrNM
 'creating the folder
 fs.createFolder (fldrPATH)
Loop
a.Close
Set fs = Nothing