Logo Eng2ita
ENG2ITA Community Versione lo-fi
16/10/2018, 16:32 *
Benvenuto, Visitatore. Per favore, effettua il login o registrati.
Hai perso la tua email di attivazione?

Login con username, password e lunghezza della sessione
E' stata disabilitata la ricerca ai visitatori! 
   Home   Sitemap Regolamento del forum Login Registrati  
Pagine: 1 
  Stampa  
Questo topic non e' stato ancora votato!
Non hai ancora votato questo topic. Seleziona una valutazione:
Autore Topic: script per aggiungere data a nomi di files e directory  (Letto 1544 volte)
0 Utenti e 1 Visitatore stanno guardando questo topic.
paolo321
Hero Member
*****

Karma: 8
Offline Offline

Post: 553


« il: 02/04/2009, 18:54 »

Avevo postato la prima versione tempo fa... Visto in seguito che lo usavo quasi solo per drag and drop, ho aggiunto la possibilità di fare drag and drop di files e cartelle multipli...
Vorrei solo il vostro parere, se c'è qualche boiata dentro...
Io due prove le ho fatte, ma essendo fatto con modifiche successive su uno script pre-esistente non si sa mai, io non sono assolutamente un esperto di vbscript...

Codice:
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")

If (objArgs.Count < 1) Then
WScript.Echo "Missing Object Name"
Else
For I = 0 to objArgs.Count - 1
OldName = objArgs(I)
OldName = Trim(OldName)
'Remove ending backslash if present
If Right(OldName,1) = "\" Then
OldName = Left (OldName,Len(OldName)-1)
'WScript.Echo OldName 'FOR DEBUG
End If
If fso.FolderExists(OldName) = True Then
' Modify TimeStamp format if needed; this is _yyyy-mm-dd-hhmm
TimeStamp = Year(Now) & "-" & right("00" & Month(Now), 2) & "-" & right("00" & Day(Now), 2) & "-" & right("00" & Hour(Now), 2) & right("00" & Minute(Now), 2)
NewName = OldName & "_" &TimeStamp
'WScript.Echo NewName 'FOR DEBUG
fso.MoveFolder OldName, NewName
ElseIf fso.FileExists(OldName) = True Then
' Modify TimeStamp format if needed; this is _yyyy-mm-dd-hhmm
TimeStamp = Year(Now) & "-" & right("00" & Month(Now), 2) & "-" & right("00" & Day(Now), 2) & "-" & right("00" & Hour(Now), 2) & right("00" & Minute(Now), 2)
LastDot = InStrRev(OldName, ".")
If LastDot > 0 Then
OldExt = Right(OldName, Len(OldName) - LastDot + 1)
Else
OldExt = ""
End If
NewName = Left(OldName, Len(OldName) - Len(OldExt)) & "_" & TimeStamp & OldExt
'WScript.Echo LastDot 'FOR DEBUG
'WScript.Echo OldName 'FOR DEBUG
'WScript.Echo OldExt 'FOR DEBUG
'WScript.Echo NewName 'FOR DEBUG
fso.MoveFile OldName, NewName
Else
WScript.Echo "Object < " & OldName & " > NOT FOUND"
End If
Next
End If
Loggato
ENG2ITA Community
« il: 02/04/2009, 18:54 »

 Loggato
Pagine: 1 
  Stampa  
 
Salta a:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines | Sitemap XHTML 1.0 Valido! CSS Valido!

Eng2ita.net - Tutti i diritti riservati ©2006-2015   |   Privacy policy |   Licenza Creative Commons