Got it. Onward to assigning security and this is a done deal. Thanks for everyone's help on this!Sean
It's a little "chunky" but it works. Here is what I did:
cls
USE S: /DEL
USE S: \\sti_nt02\clients
color b+/n
:start
cls
color g+/n
? "Type the name of the company to create folders for the press Enter : "
? "Press Enter only to end."
color w+/n
? gets $coname
if $coname = ""
goto end
endif
color g+/n
? "Is this a [C]urrent for [F]ormer client? : "
color w+/n
? gets $gen
if $gen = "C"
goto current
else
goto former
endif
:current
s:
CD ..
CD "Current Clients"
MD $coname
CD $coname
MD "Awards"
MD "Case Studies"
CD "Case Studies"
MD "Drafts"
MD "Final"
CD ..
MD "Contributed Articles"
CD "Contributed Articles"
MD "Drafts"
MD "Final"
CD ..
MD "Editorial Calendars"
MD "General Correspondence"
MD "Graphics"
MD "Media Lists"
MD "Media Training"
MD "Meetings"
MD "Miscellaneous"
MD "Pitches"
MD "Presentations"
MD "Press Kit"
CD "Press Kit"
MD "Drafts"
MD "Final"
CD ..
MD "Press Release"
CD "Press Release"
MD "Drafts"
MD "Final"
CD ..
MD "Speaking Opportunities"
MD "Status Reports"
MD "Strategies"
MD "Tradeshow-Tours"
MD "Trimetrics"
MD "White Papers"
CD "White Papers"
MD "Drafts"
MD "Final"
CD \
goto start
:former
s:
CD ..
CD "Former Clients"
MD $coname
CD $coname
MD "Awards"
MD "Case Studies"
MD "Contributed Articles"
MD "Editorial Calendars"
MD "General Correspondence"
MD "Graphics"
MD "Media Lists"
MD "Media Training"
MD "Meetings"
MD "Miscellaneous"
MD "Pitches"
MD "Presentations"
MD "Press Kit"
MD "Press Release"
MD "Speaking Opportunities"
MD "Status Reports"
MD "Strategies"
MD "Tradeshow-Tours"
MD "Trimetrics"
MD "White Papers"
CD \
goto start
:end