[Risolto] Eliminare tutti i file presenti in una cartella

[vuott]

 
mi sono impantanato nel problema di come eliminare tutti i file eventualmente presenti in una cartella.

Una cosa di questo genere:

Codice: [Seleziona]

Kill "/percorso_della_cartella/*.*"

non funziona.

Non vorrei utilizzare il solito "Deus ex machina", chiamato Shell, che scende dall'alto e risolve sempre ogni cosa...   .
In questo caso potrei fare:

Codice: [Seleziona]

Shell "rm /percorso_della_cartella/*.*"

e la cosa ovviamente funziona.

Vorrei (è più ragionevole ! No ?) utilizzare solo le funzioni di Gambas.

Suggerimenti ?

[vuott]

Nel frattempo non ho dormito   , ed mi sono dato questa risposta:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

 Dim ogniFile As String

  For Each ogniFile In Dir("/percorso_della_cartella/", "*.*")

  ' leggo con sadica curiosità i nomi, comprese estensioni, dei file che eliminerò:
      Print ogniFile

  ' distruggo ciascun file "con estensione" presente nella directory:
      Kill "/percorso_della_cartella/" & ogniFile
  
  Next

' ma poiché mi era sfuggito qualche file "senza" estensione...
  For Each ogniFile In Dir("/percorso_della_cartella/", "*")

      Print ogniFile

  '...distruggo anche quelli superstiti:
      Kill "/percorso_della_cartella/" & ogniFile
  
  Next
    
 Print "Ora tutti kaput !"

End

e funziona.  

In vero, ho notato che funziona anche più brevemente così:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

 Dim ogniFile As String

  For Each ogniFile In Dir("/percorso_della_cartella")

      Print ogniFile

  ' distruggo ciascun file (con o senza estensione) presente nella directory:
      Kill "/percorso_della_cartella/" & ogniFile
  
  Next

End

...magari, se avete anche altre soluzioni, possono sempre essere utili (nel frattempo metto "Risolto", ma potete sempre aggiungere altre soluzioni).