eliminare tutti i file di una cartella

Hai un problema con Excel?

Nuova discussione

eliminare tutti i file di una cartella
di nichicanta data: 10/03/2014 14:09:23
Buongiorno amici, ho la necessità di eliminare tutti i file di una cartella in un determinato percorso poichè ogni mattina ricreo gli stessi file con i dati del giorno in corso.
In rete ho trovato il codice sottoriportato, l'ho adattato alle mie esigenze ma si verifica l'errore alla riga :With Application.FileSearch.
Vi chiedo inoltre ( io ho impostato solo pdf perchè non riesco a dire tutti i file) se c'è la possibilita di eliminare tutti i file con diverse estensioni es. txt,pdf,xls,xslx,xslm ecc. e per curiosità vi chiedo se fa differenza se, come estensione del file inserisco i caratteri in maiuscolo,
es: c'è differenza se scrivo mio.pdf oppure mio.PDF?
Grazie anticipatamente per il vostro aiuto e colgo l'occasione per salutravi ed augurarvi buona giornata.

Option Explicit

Sub test()
Dim fpath As String, ftype As String, i
fpath = "\10.220.16.222sssssssssssssssssaaaaaaaaUNA TANTUM ANNO 2011 DI € 207,00 PRO CAPITEPDF DETTAGLIPAGAMENTIREPARTI"
ftype = "*.pdf"
With Application.FileSearch
    .NewSearch
    .LookIn = fpath
    .SearchSubFolders = True
    .Filename = ftype
    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
            Kill .FoundFiles(i)
        Next i
    End If
End With
End Sub

di scossa data: 10/03/2014 14:28:20
Ma un semplice
kill "MioPercorso*.*"
di scossa data: 10/03/2014 14:29:06
oppure, più chirurgico
kill "MioPercorso*.pdf"
di nichicanta data: 10/03/2014 14:56:22
Ciao scossa, innanzitutto grazie per il tuo "chirurgico:kill "MioPercorso*.*" , l'ho adattato al mio scopo e funziona benissimo, avvevo già notato in un altro forum la tua precisa segnalazione per il mio scopo ma avevo già postato il codice allegato.
Ti chiedo, poichè il codice va in errore nel momento in cui non trova i files nella cartella, come faccio a verificare la presenza dei files o meno nella cartella da me creata e d avvisarmi con un msgbox?.
Grazie per il tuo gentile e cortese riscontro, ti saluto.
di nichicanta (utente non iscritto) data: 10/03/2014 17:02:36
Ok, risolto amici e se doveesse essere utile a qualcun altro il codice , lo riporto sotto.
Vi saluto con sincerità e affetto.
Sub verifica_esitenza_File() Dim pathname As String pathname = "C:Temp*.*" ' qui inserite il vostro percorso If Dir(pathname) = "" Then MsgBox "Cartella vuota" End if End Sub
di scossa data: 10/03/2014 20:01:43
Solo un dubbio: non è che il codice che ti ho suggerito l'hai lasciatomesso dentro al tuo ciclo for, vero?
di scossa data: 10/03/2014 20:02:43
errata: lasciatomesso
corrige: messo
di nichicanta (utente non iscritto) data: 11/03/2014 08:17:28
Ciao scossa, il tuo codice (che ti riporto) non l'ho affatto inserito nel ciclo for da me precedentemente postato, bensì da solo come lo vedi,.
P.S. ho cambiato parte del percorso per privacy.
Buona giornantta e buon lavoro a tutti.
Public Sub cancella_file() Kill "\10.220.16.222aaaaaaaaaaaaaaaaaaaaaaaaaaaaUNA TANTUM ANNO 2011 DI € 207,00 PRO CAPITEPDF DETTAGLIPAGAMENTIREPARTI*.*" End Sub

Vuoi Approfondire?