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...