Eseguire operazioni sui files più vecchi di n giorni L'esempio di questa pagina è disponibile anche nel file Zip da scaricare. Questo programma genera un oggetto (folder.files) contenente la collezione dei files presenti in una cartella specificata. Per ogni oggetto "file" della collezione è possibile recuperare alcune sue proprietà che sono descritte nell'help di Vbscript. Attributes Property - setta o legge informazioni sugli attributi (sola lettura, archivio, nascosto, ecc). DateCreated - data di creazione del file o della directory. DateLastAccessed - ultimo accesso al file. DateLastModified - data di ultima modifica, usata ad esempio in questo script per identificare i files vecchi. Drive Property - lettera del drive in cui è presente il file. Name Property - il solo nome del file. ParentFolder - nome della directory padre in cui è contenuto il file. Path Property - percorso completo del file, ma senza nome file. ShortName, ShortPath Property - nome e percorso nel vecchio formato DOS 8+3. Size - dimensione del file. Type - tipo di file come specificato in "gestione risorse", ad esempio "Documento di Adobe Acrobat", "Documento di Microsoft Word", "Documento di testo". Si basa sull'estensione del nome del file. Nell'esempio che segue utilizzo la proprietà DateLastModified per sapere se il file è rimasto immodificato da 30 giorni. In caso positivo posso cancellarlo (con delete) oppure spostarlo in una diversa directory utilizzando il metodo Move.  Per utilizzare questo script bisogna togliere l'apice '  di commento prima del comando desiderato. Questo perchè potrebbe portare accidentalmente alla cancellazione di alcuni file. Può essere usato per fare manutenzione ad una serie di documenti messi a disposizione degli utenti. Ad esempio se si desidera tenere in evidenza solo file recenti e mantenere il materiale più vecchio in una cartella separata. '************************************************ ' File:    Cancella o sposta files più vecchi di n giorni.vbs ' Author:  Giovanni Cenati ' ' Cancella i file più vecchi di 30 giorni ' presenti in una cartella. ' Oppure li sposta in una cartella diversa. ' Moves or deletes files older than 30 days. '************************************************ Set fso = CreateObject("Scripting.FileSystemObject") 'Punta alla cartella da analizzare. Set folder = fso.GetFolder("C:\MeseCorrente") 'Crea una collezione dei files contenuti nella cartella. Set files = folder.Files For Each file in files     'Se la differenza tra la data di oggi e la     'data di ultima modifica del file è maggiore di 30 giorni...     If DateDiff("d", file.DateLastModified, Now) > 30 Then         'allora cancella il file.         'file.Delete         'oppure spostalo in una cartella di archivio.         'file.Move "C:\MesiPrecedenti\"     End If Next Giovanni Cenati
	© Cenati Giovanni 2004/2010 - http://digilander.libero.it/Cenati - Reventlov at Katamail com home | e-mail e contatti | Introduzione al sito | Cosa e' e come imparare VbScript