creare directory

[riderjean]

c'è modo in win xp di creare in automatico 200 directory nominate da 1 a 200?
grazie 1000

[paparino72]

Si potrebbe creare un bat che sfrutta il comando MD di Dos con un ciclo del tipo do..loop...until.....o, meglio ancora, for...next

Dovrebbe essere semplice, ma io non ne sono capace. Hai provato con google?

[riderjean]

si credo si faccia come dici tu
ma non conosco la sintassi dos
ho provato a cercare un po ma non ho trovato...
speriamo qui nel forum
grazie cmq per la risposta

[MItaly]

Apri il Blocco Note, incollaci dentro questo codice

Const lowerFolder = 1 'numero della prima cartella
Const upperFolder = 200 'numero dell'ultima cartella
Const BIF_RETURNONLYFSDIRS = 1
Dim wshShell, fso
Dim objShell, objFolder
Dim inDir, counter
Set wshShell = CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objShell.BrowseForFolder _
    (0, "Seleziona la cartella in cui creare le sottocartelle:", BIF_RETURNONLYFSDIRS)
If objFolder Is Nothing Then
  WScript.Quit 1
Else     
  inDir=objFolder.Items.Item.Path
  On Error Resume Next
  Err.Clear
  fso.GetFolder(inDir)
  If err.Number <> 0 Then
    MsgBox "Cartella di input non valida.",16
      WScript.Quit 2
  End If
  On Error Goto 0
End If
For counter = lowerFolder To upperFolder
  fso.CreateFolder(fso.BuildPath(inDir, CStr(counter))) 
Next
MsgBox "Operazione completata.", 64
WScript.Quit 0

, vai su File->Salva con nome...->Spostati nella cartella in cui vuoi salvare lo script->Dalla casella "Salva come" scegli "Tutti i file"->Digita nella casella "Nome file" "createfolders.vbs"->Premi "Salva"->Chiudi Blocco Note. Quindi fai doppio click sul file così creato, nella finestra che si aprirà seleziona la cartella in cui vuoi creare le 200 sottocartelle e premi OK. Qualora ti servissero cartelle con numeri differenti intervieni sulle due costanti riportate all'inizio del codice.

[riderjean]

perfetto grande!!!

[MItaly]

Per così poco... in fondo ho riciclato 2/3 del codice da un altro script che avevo scritto...