'

' -----------------------
' STEP 1:  get user input
' -----------------------

	sContract=InputBox("Please enter your contract number")
	

' ------------------------------------------
' STEP 2:  create path names for new folders
' ------------------------------------------
	
	sAdjustments=sContract & "\Adjustments"
	sChangeorders=sContract & "\Change Orders"
	sChangeorders1=sChangeorders & "\Force Accounts"
	sCivilrights=sContract & "\Civil Rights"
	sConference=sContract & "\Conference"
	sContractorManagement=sContract & "\Contractor Management"
	sContractorPayments=sContract & "\Contractor Payments"
	sContractorPayments1=sContractorPayments & "\Monthly Construction Reports"
	sCorrespondence=sContract & "\Correspondence"
	sCorrespondence1=sCorrespondence & "\Incoming"
	sCorrespondence2=sCorrespondence & "\Outgoing"
	sCorrespondence3=sCorrespondence & "\FHWA"
	sEndofjob=sContract & "\End of Job"
	sEnvironmental=sContract & "\Environmental"
	sInspector=sContract & "\Inspector Misc. Forms"
	sMaterialsandtests=sContract & "\Materials and Tests Reports"
	sNotices=sContract & "\Notices"
	sPhotos=sContract & "\Photos"
	sPhotos1=sPhotos & "\Environmental"
	sPhotos2=sPhotos & "\Roadway"
	sPhotos3=sPhotos & "\Structures"
	sRailroad=sContract & "\Railroad"
	sStockpiledMaterials=sContract & "\Stockpiled Materials"
	sSurvey=sContract & "\Survey"
	sUtilities=sContract & "\Utilities"
		

' -----------------------
' STEP 3:  Create folders
' -----------------------

	SET oFS=CreateObject("Scripting.FileSystemObject")

	SET oDir=oFS.CreateFolder(sContract)
	SET oDir=oFS.CreateFolder(sAdjustments)
	SET oDir=oFS.CreateFolder(sChangeorders)
	SET oDir=oFS.CreateFolder(sChangeorders1)
	SET oDir=oFS.CreateFolder(sCivilRights)
	SET oDir=oFS.CreateFolder(sConference)
	SET oDir=oFS.CreateFolder(sContractorManagement)
	SET oDir=oFS.CreateFolder(sContractorPayments)
	SET oDir=oFS.CreateFolder(sContractorPayments1)
	SET oDir=oFS.CreateFolder(sCorrespondence)
	SET oDir=oFS.CreateFolder(sCorrespondence1)
	SET oDir=oFS.CreateFolder(sCorrespondence2)
	SET oDir=oFS.CreateFolder(sCorrespondence3)
	SET oDir=oFS.CreateFolder(sEndofjob)
	SET oDir=oFS.CreateFolder(sEnvironmental)
	SET oDir=oFS.CreateFolder(sInspector)
	SET oDir=oFS.CreateFolder(sMaterialsandtests)
	SET oDir=oFS.CreateFolder(sNotices)
	SET oDir=oFS.CreateFolder(sPhotos)
	SET oDir=oFS.CreateFolder(sPhotos1)
	SET oDir=oFS.CreateFolder(sPhotos2)
	SET oDir=oFS.CreateFolder(sPhotos3)
	SET oDir=oFS.CreateFolder(sRailroad)
	SET oDir=oFS.CreateFolder(sStockpiledMaterials)
	SET oDir=oFS.CreateFolder(sSurvey)
	SET oDir=oFS.CreateFolder(sUtilities)


' Remember, you can comment out (ignore) any line by placing
' a single quote at the beginning of that line
' Also, you can put comments at the end of a line (with a single quote)
' See the example above
'
' 
'