Newsgroup: it.comp.aiuto
Titolo: Ordinare Cartelle in base a Data del Nome delle Cartelle Stesse

Salve ragazzi, ho delle cartelle che contengono delle foto. Ognuna di
queste cartelle ha come nome una data cosě formulata: ad es.
05-03-2004.
Vorrei sapere se c'č un modo, un particolare formato in cui scrivere
la data, per far sě che chiedendo a Windows Xp di ordinarle per NOME,
il sistema riconosca la data in quanto tale e disponga le cartelle in
base all'ordine cronologico corrispondente alle date inserite nel nome
delle cartelle.
Potrei naturalmente chiedere al sistema di ordinare le cartelle per
data, ma in base a quando la cartella č stata copiata o creata tale
criterio, non soddisfa la mia esigenza di vedere le cartelle ordinate
cronologicamente.
Sarň enormemente grato a tutti quanti sapranno  e avranno la
gentilezza di aiutarmi.
Lorenzo

 delle cartelle.
Inserisci il nome (che vuoi in formato data) con il seguente metodo AAAAMMGG
cioè Anno Mese e giorno
Poi ordina per nome e avrai quanto desideri
Renzo
P.S. Se al nome AAAAMMGG aggiungi anche una descrizione sarà ancora più
completo
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

...

Grazie Renzo, il tuo consiglio funziona perfettamente e ha risolto
ogni mio problema.

"Lorenzo"
'Cosi' e' come il tuo sistema vede le date
Msgbox Date()
Msgbox Now()
wscript.echo fnCurrentDateTime
 Function fnCurrentDateTime
 ' returns ISO-style (yyyymmddhhmmss)
  strTmp = ""
  aryNow =Array(Year(Date),Month(Date),Day(Date), _
            Hour(Now),Minute(Now),Second(Now))
  For counter = 0 to 5
   if len(aryNow(counter)) = 1 then aryNow(counter)= "0" & aryNow(counter)
   if counter > 0 then strTmp = strTmp & "."
   strTmp = strTmp & aryNow(counter)
   'Msgbox strTmp
  Next
  fnCurrentDateTime = strTmp
 End Function
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Date.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

...

Grazie Fosco, mi hai aperto ancora di piů gli occhi su come funzionano
le cose. Ma non ho capito bene:
1. Posso quindi cambiare a mio piacimento l'ordine anno, mese etc. che
č sopra rappresentato?
2. In pratica cosě ottengo un file che va eseguito una volta per tutte
e modifica le impostazioni del sistema? O un file che devo andare a
copiare o sovrascrivere da qualche parte?
Ti sarei grato se chiarissi questi miei dubbi residui.
Lorenzo

 e modifica le impostazioni del sistema?
No un file che non tocca le impostazioni del sitema ma che
imposta la data per tuoi usi e consumi esempio sempre vbs :
Set fso = CreateObject("Scripting.FileSystemObject")
sYr = Right(CStr(Year(Date)), 4)
sMo = Right("0" & CStr(Month(Date)), 2)
sDa = Right("0" & CStr(Day(Date)), 2)
 If Not fso.FolderExists("C:\Prova") then
  fso.CreateFolder("C:\Prova")
 End If
sFolder = "C:\Prova" & "\" & sYr & "-" &"-" & sMo&"-"  & sDa
sFolder1 = "C:\Prova" & "\" & sMo& "-" &"-" & sYr &"-"  & sDa
sFolder2 = "C:\Prova" & "\" &sDa & "-" &"-" & sMo&"-"  &  sYr
fso.CreateFolder( sFolder)
fso.CreateFolder( sFolder1)
fso.CreateFolder( sFolder2)
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Folders.vbs)
'se ti da' errore disattiva l'antivirus
'Adesso vai in c:\prova e vedi il risultato
'questo rinomina la stessa c:\Prova con c:\Test >> data
sYr = Right(CStr(Year(Date)), 4)
sMo = Right("0" & CStr(Month(Date)), 2)
sDa = Right("0" & CStr(Day(Date)), 2)
  s =sYr &"-"&sMo&"-"&sDa
Set fso = CreateObject("Scripting.FileSystemObject")
sTarget="C:\Prova"
sRen="Test"
  set oRen= fso.GetFolder(sTarget)
 sTemp = sRen & "  "& s
  WScript.Echo "new name is: " & sTemp
  oRen.Name = sTemp
Questo sotto e' l'help del WSH(*.vbs) con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
--
Fosco

...

Grazie davvero Fosco, sei stato chiarissimo ed assolutamente esauriente.