[vb6] Kill ed parametri

[fidello]

Le mie scarse nozioni mi portano a capire che con kill nomedcartella\*.* dovrei cancellare tutto il contenuto della cartella, ma se nella cartella ho dei file che hanno tutti come nome il "now" di quando sono stati creati e volessi cancellare solo quelli di x giorni precedenti ad oggi come fare?
grazie

[SimoneVB]

Supponiamo che tali file siano stati nominati in questo modo:

sFile = "D:\" & Format$(Now(), "dd-mm-yyyy hh:nn:ss") & ".txt"

Il primo file che avresti creato oggi si chiamerebbe

sPrimoFileDiOggi = Format$(Now(), "dd-mm-yyyy") & " 00:00:01.txt"

Puoi eliminare tutti quelli dei giorni precedenti così:

  sRicercaFile = Dir$("D:\*.*")
  
  While sRicercaFile <> ""
    If sRicercaFile < sPrimoFileDiOggi Then Kill "D:\" & sRicercaFile
    sRicercaFile = Dir$
  Wend

Ciao
Simo