codice:
Dim pathCartella, nomeCartella
pathCartella=InputBox("Inserisci la path del file","Path")
nomeCartella=InputBox("Inserisci il nome della cartella\nse vuoto di default sarà 'Nuova Cartella'","Nome Cartella")

if len(nomeCartella)=0 then
	nomeCartella = "Nuova Cartella"
end if

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder (pathCartella+"\"+nomeCartella)
MsgBox "La cartella è stata creata."
salva questo in un file con estensione .vbs e lancialo...

ti chiede path e nome della cartella e la crea...se ti può essere utile...