Discussion :

[Didier L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci d'avance.

[Clorish]

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

ShellExecute .....

[Didier L]

Merci pour l'info.

Effectivement cela marche bien avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Clorish]

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.

[Nono40]

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

[Didier L]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Pedro]

Salut
c'est pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Plutot ?

[Didier L]

Non,

Toujours le même message :

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

[Pedro]

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

[Didier L]

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

[Pedro]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Form1.Handle;

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.Handle;

...

[Didier L]

Non

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    cmd.wnd:=Application.Handle;

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    cmd.wnd:=0;

Et j'ai toujours le même message.

[Nono40]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[Didier L]

Merci à toi oh grand Nono...