Suppression de masse

[Heis Spiter]

Suite à un petit problème au niveau de mon serveur SMTP (spams). Il fallait que je supprime rapidement tous les spams, mauis pas supprimer les autres corrects mails en attente. J'ai donc rapidement programmé un petit truc :
- liste le répertoire
- ouvre les fichier
- cherche le critère
- si trouvé suppression du fichier.
Voila

Code : Tout sélectionner

Tofind$ = ".tw"
Repfind$ = "D:\Site\agsmail\_outbox"
NextD = 0
ExamineDirectory(2, Repfind$, "*.*")
NextD = NextDirectoryEntry()
If NextD = 1
  NomFichier$ = DirectoryEntryName()
  Open = ReadFile(1, Repfind$+"\"+NomFichier$)
  If Open
    While Eof(0) = 0
      Texte$ = ReadString()
      texte = FindString(Texte$, Tofind$, 0)
      If texte > 1
        delete = 1
        Break
      EndIf
    Wend
    CloseFile(0)
    If delete
      DeleteFile(Repfind$+"\"+NomFichier$)
      Debug Repfind$+"\"+NomFichier$+ "supprimé !"
    EndIf
  EndIf
EndIf
k = 1
While NextD
  NextD = 0
  delete = 0
  NomFichier$ = ""
  NextD = NextDirectoryEntry()
  If NextD = 1
    NomFichier$ = DirectoryEntryName()
    Delay(1)
    Open = ReadFile(1, Repfind$+"\"+NomFichier$)
    If Open
      While Eof(1) = 0
        Texte$ = ReadString()
        texte = FindString(Texte$, Tofind$, 0)
        If texte > 1
          delete = 1
          Break
        EndIf
      Wend
      CloseFile(1)
      If delete
       DeleteFile(Repfind$+"\"+NomFichier$)
       Debug Repfind$+"\"+NomFichier$+ "supprimé !"
      EndIf
    EndIf
  EndIf
  k = k+1
Wend