Programma per eliminare file

[nman]

........ Se non esiste il programma che sto cercando, a
questo punto, esiste uno che mi elenchi tutte le estensioni che ci sono in queste 18000 cartelle??? .......

Se prima era complicato, elencare lo è ancor di più
perché devi eliminare tutte le estensioni multiple


In effetti il programma che cerchi gia pronto mi sa che non esiste,
Se tu avessi tutti i tuoi file nella stessa carrtella ti basterebbe un .bat
ma mi sa che i tuoi file sono smiscelati in centinaia di sottocartelle a livelli multipli

Se te la cavicchi con il VBA di Access (ma anche di Excel oppure con dei semplici file .vbs)
potresti adattare quanto sotto che per il momento ti scrive nella finestra immediata (di VBA)
a solo titolo di esempio il percorso e data ultima modifica di tutti i file

Facci sapere

Option Compare Database
Option Explicit  

Dim objSFSO As Object         ' Scripting.FileSystemObject  

Private Sub x03Start()
' qui definisco esclusivamente la cartella di partenza (Root) e lancio le danze  

Dim objCaPa As Object    ' La Cartella di partenza oggetto  

Set objSFSO = CreateObject("Scripting.FileSystemObject")
Set objCaPa = objSFSO.GetFolder("D:\Post2\Archivio13\Roo1")   ' <<<---- Scrivi qui il percorso della cartella di partenza  

Call x11File(objSFSO.GetFolder(objCaPa))        ' <<------- questa per i file della sola cartella di Root
Call x05SoCa(objSFSO.GetFolder(objCaPa))  

Set objCaPa = Nothing
Set objSFSO = Nothing  

End Sub  




Private Sub x05SoCa(ByRef objCart As Object)
' questa si "avvita" su se stessa e cicla TUTTE le cartelle e sottocartelle  

Dim objSoCa As Object    ' La Sottocartella Generica
     
On Error Resume Next
    For Each objSoCa In objCart.SubFolders
        DoEvents
        Call x11File(objSoCa)        ' <<------- questa per i file delle sottocartelle
        Set objCart = objSFSO.GetFolder(objSoCa.Path)
        Call x05SoCa(objSoCa)
    Next
     
    If Not objCart Is Nothing Then Set objCart = Nothing
     
End Sub  



Private Sub x11File(ByRef objCCC As Object)
On Error Resume Next  

Dim objFile As Object    ' il File
    For Each objFile In objCCC.Files
        Debug.Print "   " & objFile.DateLastModified & "   " & objFile.Path
        ' Qui puoi fare tutto quello che vuoi con i tuoi file  ' <<<---------<<<----------<<<
    Next objFile
End Sub

[carlomarangoni]

No credo ci sia un SW che analizzi tante cartelle e ti elenchi i file per estensione e anche in questo caso avresti un elenco interminabile di file che ti farebbe perdere la testa, conosco vari file manager, ma una funzione come la intendi tu non esiste, ad ognuno bisogna sempre dire cosa cercare.

Potresti fare un file batch come ti ho detto prima che ti snelirebbe un po' il lavoro