Web Developer

' ElencanteVBS v 3.0


Set oggetti = WScript.Arguments
Dim conta, inizio, serie, pois, a, z, msg
conta = oggetti.Count
If conta = 0 Then
    MsgBox "Devi trascinare qui, col mouse, i files da rinominare!",0,"Uso sbagliato"
    WScript.Quit
ElseIf conta = 1 Then
    MsgBox "Richiesto un numero minimo di 2 files selezionati per procedere!",0,"Uso sbagliato"
    WScript.Quit
End If
inizio = InputBox("Indicare il numero di partenza:", "Selezionati " & conta & " files", 1)
If inizio = false Then
    MsgBox "Operazione deliberatamente annullata!",0,"Operazione annullata!"
    WScript.Quit
End If
If IsNumeric(inizio) = false Then
    MsgBox "Era richiesto un valore numerico positivo.",0,"Operazione annullata!"
    WScript.Quit Else
    If inizio < 0 Then
        MsgBox "Era richiesto un valore numerico positivo.",0,"Operazione annullata!"
        WScript.Quit
    End If
End If
serie = (inizio - 1) + conta
pois = Len("S" & serie) - 1
a = Mid("S" & ((10 ^ pois) + inizio), 3)
z = Mid("S" & ((10 ^ pois) + serie), 3)
msg = InputBox("Inserire il nome ricorsivo dei files:" & VbCrlf & VbCrlf & "( il valore $ verra' sostituito dalla cifra crescente )", "Lista Files dalla cifra '" & a & "' alla cifra '" & z & "'", "NomeFile$.*")
If msg = false Then
    MsgBox "Operazione deliberatamente annullata!",0,"Operazione annullata!"
    WScript.Quit
End If
If InStr(msg, "$") = 0 Then
    MsgBox "Era richiesto il simbolo $ come punto di inserzione del valore numerico crescente.",0,"Operazione annullata!"
    WScript.Quit
End If
Dim n, d, e, p, c, u, cartella, exo, ext, Fso
d = InStrRev(msg, ".")
u = Mid(msg, d+1)
e = Mid(msg, 1, d-1)
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
For I = 0 to conta - 1
    c = InStrRev(oggetti(I), "")
    cartella = Mid(oggetti(I), 1, c)
    p = InStrRev(oggetti(I), ".")
    exo = Mid(oggetti(I), p+1)
    ext = u
    If u = "*" Then ext = exo
    If u = "-" Then ext = LCase(exo)
    If u = "+" Then ext = UCase(exo)
    n = Mid("S" & ((10 ^ pois) + inizio + I), 3)
    Fso.MoveFile oggetti(I), cartella & Replace(e, "$", n) & "." & ext
    'MsgBox oggetti(I) & VbCrlf & VbCrlf & cartella & Replace(e, "$", n) & "." & ext, 0, "prova" & I
Next
MsgBox "Operazione terminata!", 0, "Fine"