|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Bannato
Iscritto dal: Jan 2006
Messaggi: 103
|
Esiste comando di win 7 o sofware per rinom tutti file in maiuscolo ?
Ciao a tutti vi chiedo un'informazione: esiste un comando di windows 7 o un tool/software che consente di rinominare in maiuscolo in un colpo solo automaticamente tutti i nomi dei file immagine jpg presenti all'interno della stessa cartella ? Rimango in attesa di una vostra risposta buona serata
|
![]() |
![]() |
![]() |
#2 |
Senior Member
Iscritto dal: Jan 2007
Città: quel ramo del lago di como, che volge a mezzogiorno... ^^
Messaggi: 19625
|
uno script in bat sarebbe semplice ma non ho la testa di farlo ora. ^^
vai di Advanced Renamer. (click)
__________________
|
![]() |
![]() |
![]() |
#3 |
Bannato
Iscritto dal: Jan 2006
Messaggi: 103
|
Grazie mille.Potreste scrivermi o linkarmi istruzioni passo passo in italiano di advanced renamer solo per rinominare in maiuscolo tutti i file jpg all'interno dello stessa cartella ?
|
![]() |
![]() |
![]() |
#4 |
Senior Member
Iscritto dal: May 2005
Messaggi: 8697
|
Salva questo script con estensione VBS:
Codice:
' x_Master_x Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") For Each f In fso.GetFolder(".").Files If fso.GetExtensionName(f) = "jpg" Then f.Name = UCase(fso.GetBaseName(f)) & "." & fso.GetExtensionName(f) & "_" f.Name = Left(f.Name, Len(f.Name)-1) End If Next WshShell.SendKeys "{F5}"
__________________
. Thread Ufficiali: EasyCrypt ~ Old Files Manager ~ OSD Clock The real me is no match for the legend . |
![]() |
![]() |
![]() |
#5 |
Bannato
Iscritto dal: Jan 2006
Messaggi: 103
|
Grazie mille. Quindi apro il notepad ,copio e incollo lo script e lo salvo con estensione .vbs ? Oppure devo usare un altro programma per poi salvare lo script in .vbs ? Devo scrivere lo script con o senza ' x_Master_x ? Praticamente devo scriverlo cosi ?
Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") For Each f In fso.GetFolder(".").Files If fso.GetExtensionName(f) = "jpg" Then f.Name = UCase(fso.GetBaseName(f)) & "." & fso.GetExtensionName(f) & "_" f.Name = Left(f.Name, Len(f.Name)-1) End If Next WshShell.SendKeys "{F5}" |
![]() |
![]() |
![]() |
#6 | |
Senior Member
Iscritto dal: May 2005
Messaggi: 8697
|
Quote:
P.S. Cortesemente puoi editare dal tuo post la parte del codice? Grazie.
__________________
. Thread Ufficiali: EasyCrypt ~ Old Files Manager ~ OSD Clock The real me is no match for the legend . |
|
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 21:51.