Run sub based on InputBox value

Is this the complete script?  What are r, w and x?

The snippet below uses Do Until Loops for input verification, then uses a Select Case statement to run the appropriate command.

Please have a look through it, and if you have any questions please let me know.

dim iBernieFolder
dim oExec
dim WshShell

Set WshShell = Wscript.CreateObject("Wscript.Shell")

Do Until iBernieFolder = "R" OR iBernieFolder = "W" OR iBernieFolder = "X"
	iBernieFolder = Ucase(InputBox("Enter Letter of Permissions to set for new folder" & VbCr & "(R, W or X)"))
Loop


Do until Len(strProjectName) > 0
	strProjectName = InputBox("Enter the Employee Resources Folder Name to Create (ie. 09069.0 Richmond, etc):")
Loop


Select Case iBernieFolder
	Case "R"
		strSource = "\\Mch10\public\Projects\_ProjectFolderTools\Employee Resources Folders\R_NTFS"
		strDest1 = "\\Mch10\public\Employee Resources\SHARED\_Engineering" & "\" & strProjectName
		strParameters = chr(34) & strSource & chr(34) & chr(32) & chr(34) & strDest1 & _ 
				chr(34) & chr(32) & "/E /COPYALL /V /LOG:copy.log /R:10 /W:30" & strDest1
		Set oExec = WshShell.Exec ("\\mch10\public\Projects\_ProjectFolderTools\robocopy.exe" & chr(32) & strParameters)
		Set WshShell = Nothing	


	Case "W"
		strSource = "\\Mch10\public\Projects\_ProjectFolderTools\Employee Resources Folders\W_NTFS"
		strDest1 = "\\Mch10\public\Employee Resources\SHARED\_Engineering" & "\" & strProjectName
		strParameters = chr(34) & strSource & chr(34) & chr(32) & chr(34) & strDest1 & _
				chr(34) & chr(32) & "/E /COPYALL /V /LOG:copy.log /R:10 /W:30"
		Set oExec = WshShell.Exec ("\\mch10\public\Projects\_ProjectFolderTools\robocopy.exe" & chr(32) & strParameters)
		Set WshShell = Nothing

	Case "X"
		strSource = "\\Mch10\public\Projects\_ProjectFolderTools\Employee Resources Folders\X_NTFS"
		strDest1 = "\\Mch10\public\Employee Resources\SHARED\_Engineering" & "\" & strProjectName
		strParameters = chr(34) & strSource & chr(34) & chr(32) & chr(34) & strDest1 & _
				chr(34) & chr(32) & "/E /COPYALL /V /LOG:copy.log /R:10 /W:30"
		Set oExec = WshShell.Exec ("\\mch10\public\Projects\_ProjectFolderTools\robocopy.exe" & chr(32) & strParameters)
		Set WshShell = nothing
End Select

MsgBox 	"ATTENTION:  Do not close console/command prompt window!  The window will close when the " & _ 
	"copy of " & strPackage & " is complete. On a VPN connection this can take up to 2:30 " & _
	"minutes or longer (depending on your network/Internet connection and traffic at Redmond) to " &_ 
	"complete. Please click OK now."

Select allOpen in new window

Hey Psy053!

   My apologies for the delay in responding to you! I tested your script, after a very slight modification, it worked a treat (see code attached).

For additional points, would you mind modifying to allow the following?
Ability to click Cancel on the Input boxes and the process end gracefully.

Thanks!
Greg

dim iBernieFolder 
dim oExec 
dim WshShell 
 
Set WshShell = Wscript.CreateObject("Wscript.Shell") 
 
Do Until iBernieFolder = "R" OR iBernieFolder = "W" OR iBernieFolder = "X" 
        iBernieFolder = Ucase(InputBox("Enter Letter of Permissions to set for new folder" & VbCr & "(R, W or X)")) 
Loop 
 
 
Do until Len(strProjectName) > 0 
        strProjectName = InputBox("Enter the Employee Resources Folder Name to Create (ie. 09069.0 Richmond, etc):") 
Loop 
 
 
Select Case iBernieFolder 
        Case "R" 
                strSource = "\\Mch10\public\Projects\_ProjectFolderTools\Employee Resources SHARED Engineering Folder Template\R_NTFS" 
                strDest1 = "\\Mch10\public\Employee Resources\SHARED\_Engineering" & "\" & strProjectName 
                strParameters = chr(34) & strSource & chr(34) & chr(32) & chr(34) & strDest1 & _  
                                chr(34) & chr(32) & "/E /COPYALL /V /LOG:copy.log /R:10 /W:30"
                Set oExec = WshShell.Exec ("\\mch10\public\Projects\_ProjectFolderTools\robocopy.exe" & chr(32) & strParameters) 
                Set WshShell = Nothing   
 
 
        Case "W" 
                strSource = "\\Mch10\public\Projects\_ProjectFolderTools\Employee Resources SHARED Engineering Folder Template\W_NTFS" 
                strDest1 = "\\Mch10\public\Employee Resources\SHARED\_Engineering" & "\" & strProjectName 
                strParameters = chr(34) & strSource & chr(34) & chr(32) & chr(34) & strDest1 & _ 
                                chr(34) & chr(32) & "/E /COPYALL /V /LOG:copy.log /R:10 /W:30" 
                Set oExec = WshShell.Exec ("\\mch10\public\Projects\_ProjectFolderTools\robocopy.exe" & chr(32) & strParameters) 
                Set WshShell = Nothing 
 
        Case "X" 
                strSource = "\\Mch10\public\Projects\_ProjectFolderTools\Employee Resources SHARED Engineering Folder Template\X_NTFS" 
                strDest1 = "\\Mch10\public\Employee Resources\SHARED\_Engineering" & "\" & strProjectName 
                strParameters = chr(34) & strSource & chr(34) & chr(32) & chr(34) & strDest1 & _ 
                                chr(34) & chr(32) & "/E /COPYALL /V /LOG:copy.log /R:10 /W:30" 
                Set oExec = WshShell.Exec ("\\mch10\public\Projects\_ProjectFolderTools\robocopy.exe" & chr(32) & strParameters) 
                Set WshShell = nothing 
End Select 
 
MsgBox  "ATTENTION:  Do not close console/command prompt window!  The window will close when the " & _  
        "copy of " & strPackage & " is complete. On a VPN connection this can take up to 2:30 " & _ 
        "minutes or longer (depending on your network/Internet connection and traffic at Redmond) to " &_  
        "complete. Please click OK now."

Select allOpen in new window

Great Job! Thanks! Points upgraded and awarded.