Newsgroup: it.comp.appl.access
Titolo: Script di eliminazione file antecedenti una certa data

Buongiorno a tutto il NG!
Ho uno stralcio di codice che dovrebbe permettere di eliminare da u
directory definita i files con data antecedente a 180 gg dalla data
corrente, però ho qualche problema a farlo correttamente funzionare.
Qualcuno può cortesemente darmi una mano? (segue codice) :
On Error GoTo Err_Comando_Stop_Click
Dim to_folder
Dim s
Set fsh = Application.FileSearch
Set fs = CreateObject("Scripting.FileSystemObject")
'a
    from_folder = "c:\temp\"
    With fsh
    .NewSearch
    .LookIn = from_folder
    .FileName = "*.txt"
    .SearchSubFolders = False
    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
        Set f = fs.GetFile(.FoundFiles(i))
        s = f.DateCreated
        If s < Now() - 180 Then fs.deletefile .FoundFiles(i)
        Next i
    Else
        MsgBox "Nessun file trovato"
        Exit Sub
    End If
    End With
    Set fs = Nothing
    Set fsh = Nothing
Exit_Comando_Stop_Click:
    Exit Sub
Err_Comando_Stop_Click:
    MsgBox Err.Description
    Resume Exit_Comando_Stop_Click
   </Script>
</job>
Vi ringrazio come sempre della vostra collaborazione!
Paolo

 ha scritto nel messaggio news:1117091351.5...@z14g2000cwz.googlegroups.com...


On Error GoTo Err_Comando_Stop_Click
Dim to_folder
Dim s




Exit_Comando_Stop_Click:
    Exit Sub

   </Script>
</job>

Paolo
[risposta]
Ma dove lo dovresti eseguire lo script? In quale ambiente? Access? Dos?
Che c'entrano i tag. </Script> e </job>?
Che problema ti presenta?
Ciao.
P.S. Non inviare messaggi in formato HTML...
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:d74bu7$1t7$1...@canarie.caspur.it...

Ciao Sergio e grazie della risposta, mi scuso per il formato ma ho postato
da Internet e non sapevo che venisse fuori in tal modo.
Riguardo il codice è un tentativo di fare una cancellazione di file
selettiva sulla data e mi piacerebbe fosse o su un click di un pulsante o fo
rse meglio su uno script vbs che potrei pianificare tramite win xp.
Se tu e l'NG potreste darmi una mano ve ne sarei proprio grato.
Buonaserata!
Paolo

 ha scritto nel messaggio news:epmle.2138$Wb....@tornado.fastwebnet.it...

Questo è un esempio:
Dim obj, file, cartella
Set obj = WScript.CreateObject("Scripting.FileSystemObject")
Set cartella = obj.GetFolder("c:\temp")
WScript.Echo "nella cartella: " & cartella.Name
For Each file In cartella.Files
    If file.DateCreated < Now() - 180 Then
        WScript.Echo  "nome: " & file.Name & vbcrlf &  "creato il: " & file.DateCreated & vbcrlf &  "modificato il: " & 
file.DateLastModified  & vbcrlf &  "ultimo accesso: " & file.DateLastAccessed & vbcrlf &  "- - - - - - - - - - - - - -"
        'obj.DeleteFile "c:\temp\" & file.Name, True
    End If
Next
Set obj = Nothing
Set file = Nothing
Se vengono visualizzati i file che ti interessa cancellare togli l'apostrofo (commento) alla riga obj.DeleteFile... E chiaramente 
togli (o commenta) le righe con WScript.Echo...
Ciao.
-- 
Sergio MAZZA 

 ha scritto nel messaggio
news:d76idd$5rb$1...@canarie.caspur.it...

Sergio ciao e buonasera a tutti, che dire .funziona perfettamente! e ti
ringrazio davvero di cuore...
Solo una  domanda supplementare ....se posso.....se volessi eliminare solo i
file .txt presenti in quella dir come dovrei fare?
Grazie davvero
Paolo

 Paolo
Dovresti testare l'estensione del file che in quel momento hai a disposizione. Il ciclo:
For Each file In cartella.Files
...
viene eseguito:
Per Ogni (oggetto)file presente in (oggetto)cartella
Quindi ottieni un oggetto file che ha delle proprietą, tra queste c'č la "Name" che restituisce il nome del file+estensione; quindi 
o con le funzioni di VBA Left, Mid, Right, Instr ti costruisci un modo per leggerla o utilizzi sempre VBScript tramite la funzione 
GetExtensionName.
es.
For Each file In cartella.Files
    if obj.GetExtensionName(file.Name)="txt" then
...
Trovi informazioni e manuale in italiano di VBScript qui: 
www.microsoft.com/italy/scripting.
..
Ciao.
-- 
Sergio MAZZA