Comment supprimer des fichiers en nombre ?

Bonjour,

Je recherche une commande ou une méthode qui me permette de supprimer plusieurs fichiers d'un coup sur le disque.
Actuellement j'ai une boucle qui utilise "DeleteFile", mais le nombre de fichier est trop important et le temps de traitement trop long.
Existe t'il quelque chose de similaire à la commande dos

Code:

---

1 2	Del H:\Test\Image*.*

---

Merci d'avance.

pkoi pas la commande dos elle meme ....
JEtte un coup d'oeil sur la Faq Section Execution d'application externe.

ShellExecute .....

Merci pour l'info. :wink:

Effectivement cela marche bien avec le code suivant :

Code:

---

1 2	ShellExecute (0, 'open', 'cmd.exe', '/C Del H:\Test\image*.*', '', SW_HIDE);

---

Mais n'y a t'il pas une fonction intégrée qui permette de supprimer des fichiers sans passer par "cmd.exe" :koi:

Ouais ..... "FormatDisk" .....

Non sans blague ... a part un FindFirst/Next combiné a un DeleteFile .... je vois pas.

De toute maniere si elle existait .. soit elle passe par la .... soit par cmd.exe ... je vois pas comment autrement .....

Pour gagner en temps .. essaye de te rapprocher au plus pres des API Windows (Windows.pas) pour chercher toi meme tes ficheirs sans passer par un FindFirst/Next qui eventuelement effectue du code en trop dont tu n'as pas besoin ... mais tu pourra pas plus a mon avis.

Si : ShFileOperation
Voir ici : http://nono40.developpez.com/sources/source0019.html

Merci Nono Pour l'info.

J'ai essayer d'utiliser l'API plutôt que ta fonction pascal afin d'alléger mon code.
Cependant j'ai une erreur à l'exécution dans le module Kernel32.

Voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TApercu.Button2Click(Sender: TObject); Var Cmd:TSHFileOpStruct; begin Try Cmd.wFunc:=FO_DELETE; Cmd.pfrom:='H:\Test\*.*'; Cmd.fFlags:=FOF_NOCONFIRMATION; ShFileOperation(cmd); Finally End; End;

---

Merci de l'aide.

Salut
c'est pas

Code:

---

1 2	Cmd.pFrom:=PChar('H:\Test\*.*');

---

Plutot ?

Non, :(

Toujours le même message :

"Violation d'accès à l'adresse 77E5A86B dans le module 'kernel32.dll'. Lecture de l'adresse 29BA0000." :?

Tu es sûr de bien remplir tous les champs nécessaires de Cmd?

Non car je ne sais pas quels sont les champs obligatoires.
Je me suis basé sur l'exemple du lien de Nono40. :?

Tu dois certainement avoir un Handle (HWND) à remplir non? Si c'est le cas, mets-le à

Code:

---

1 2	Form1.Handle;

---

ou

Code:

---

1 2	Application.Handle;

---

...

Non :(

J'ai essayé :

Code:

---

cmd.wnd:=Application.Handle;

---

et

Code:

---

cmd.wnd:=0;

---

Et j'ai toujours le même message. :?

Essaye ceci :
Les paramètre ne sont pas des PChar mais des chaines à DOUBLE zéro terminal...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TApercu.Button2Click(Sender: TObject); Var Cmd:TSHFileOpStruct; begin Try Cmd.wFunc:=FO_DELETE; Cmd.pfrom:='H:\Test\*.*'#0; // Un #0 ajouté volontairement Cmd.pto:=Nil; Cmd.fFlags:=FOF_NOCONFIRMATION; ShFileOperation(cmd); Finally End; End;

---

Merci à toi oh grand Nono... :hola: