codicefacile

Programmazione per TUTTI…

VBS – Rinominare FILE aggiungendo la data al nome

Piccolo scriptino in VBS che rinomina tutti i file presenti in una cartella e li rinomina aggiungendo la data e l’ora…

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LocalTime")
For Each objItem in colItems
Wscript.Echo "renaming in corso…"
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM Cim_Datafile WHERE Name = " _
& "’c:\\cartella\\file_da_rinominare.estensione")
For Each objFile in colFiles
errResult = objFile.Rename("c:\\cartella\\file_rinominato" & objItem.Year & objItem.Month & objItem.Day & objItem.Hour & objItem.Minute & objItem.Second & ".estensione")
Wscript.Echo errResult
Next
Next

Ciao Ciao…

Annunci

Navigazione ad articolo singolo

Rispondi

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...

%d blogger hanno fatto clic su Mi Piace per questo: