Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

Script VBS per rinominare estensioni file

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

Script VBS per rinominare estensioni file

Messaggioda Al3x » dom lug 18, 2010 9:03 am

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

Immagine
è primavera finalmente! [:)]
Avatar utente
Al3x
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 7411
Iscritto il: sab gen 10, 2009 12:51 pm
Località: http://127.0.0.1/

Re: Script VBS per rinominare estensioni file

Messaggioda Berga95 » lun lug 19, 2010 12:22 pm

Appunto, come pensavo, non si può usare comandi a più di una riga [B)]
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...
Non è morto ciò che in eterno può attendere - e col passare di strani eoni - anche la morte può morire.
~ H.P. Lovecraft
Avatar utente
Berga95
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 3342
Iscritto il: sab set 12, 2009 12:56 pm

Re: Script VBS per rinominare estensioni file

Messaggioda Berga95 » lun lug 19, 2010 12:44 pm

Naturalmente bisogna inserire il drive come C:\ ... [ciao]
Non è morto ciò che in eterno può attendere - e col passare di strani eoni - anche la morte può morire.
~ H.P. Lovecraft
Avatar utente
Berga95
Membro Ufficiale (Gold)
Membro Ufficiale (Gold)
 
Messaggi: 3342
Iscritto il: sab set 12, 2009 12:56 pm


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 0 ospiti

Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising