Script VBS per rinominare estensioni file

[Al3x]

riprendo da dove avevamo lasciato
come puoi vedere lo script

Codice: Seleziona tutto

    x = inputbox("Inserire lettera Drive")
    set xxx = CreateObject("Wscript.shell")
    xxx.run("cd" & x
    "attrib -h %1\*.*
    ren %1\*.lnk *.vir")
    x = msgbox("fine")

presenta un errore alla terza riga e reclama la presenza di una parentesi di chiusura

[Berga95]

Appunto, come pensavo, non si può usare comandi a più di una riga
Un attimo... in un sito esterno mi pare di aver trovato qualcosa di utile...
Provo a riadattarlo al caso...

Codice: Seleziona tutto

x = inputbox("Inserire lettera Drive")                      '''inserisco lettera drive (c)
set fso = CreateObject("Scripting.filesystemobject")        ''' serve x i comandi successivi
set wsh = CreateObject("Wscript.shell")
set text = fso.CreateTextFile("C:\test.bat",True)          ''' creo un file da eseguire
text.WriteLine("cd " & x)                                    ''' contenuto file
text.WriteBlanckLines(1)                                    ''' va a capo
text.WriteLine("attrib -h %1\*.*")
text.WriteBlanckLines(1)
text.WriteLine("ren %1\*.lnk *.vir")
text.WriteBlanckLines(1)
text.close                                                '''finisco il file
wsh.run("C:\test.bat", 0, True)                           ''' lo eseguo


Poi per il resto (finestra Yes/No, messaggio finale) ci penseremo dopo...

[Berga95]

Naturalmente bisogna inserire il drive come C:\ ...