Something along these lines. (Mapped to drive X)
Dim objNetwork, strLocalDrive, strRemoteShare, strConstantPath, strFolder
Set objNetwork = WScript.CreateObject(“WScript.Network”)
strLocalDrive = “X”
strConstantPath = “\\myserver\”
strFolder = InputBox(“Enter folder name”)
strRemoteShare = strConstantPath & strFolder
objNetwork.MapNetworkDrive strLocalDrive, strRemoteShare
The MapNetworkDrive method will also accept credentials if need be.