salva questo in un file con estensione .vbs e lancialo...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."
ti chiede path e nome della cartella e la crea...se ti può essere utile...
![]()


Rispondi quotando