Discussion :

[colorid]

Bonjour,

Je cheche à supprimer les fichiers d'un répertoire.
J'ai trouvé sur le Net un code source dont je me suis inspiré pour écrire la fonction suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
function Tools_FUNC_DeleteFilesInDirectory(Dir: String): Boolean;
var
  Rep: TshFileOpStruct;
begin
  if not DirectoryExists(Dir) then Exit; //si le dossier existe
 
  if Dir[Length(Dir)] <> '\' then Dir := Dir + '\';
  Dir := Dir + '*.*';
 
  //régle les paramètre
  FillChar(Rep, SizeOf(Rep),#0);
  Rep.wFunc := FO_DELETE;
  Rep.pFrom := PChar(Dir);
  Rep.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  //supprime
  Result := ((ShFileOperation(Rep) = 0) and (not Rep.fAnyOperationsAborted));
end;

L'appel à cette fonction déclanche le message suivant :

Elément introuvable
Il n’existe plus dans .19. Vérifier l’emplacement de l’élément et réessayez.

Comme le message propose de recommencer je clique sur le bouton recommencer et la fonction s'exécute normalement

Quelqu'un peut-il expliquer ce phénomène et surtout me proposer une solution pour qu'au beau milieu d'une appli le message n'apparaisse pas et le fonction s'exécute.

A l'avance Merci

[ShaiLeTroll]

Essaye FO_SILENT

je te conseille aussi

Code :

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

Rep.pFrom := PChar(Dir + #0);

J'ai eu des soucis dans certains cas !

[colorid]

Avec Rep.pFrom := PChar(Dir + #0); je n'ai plus de message intempestif

Mille merci

[Andnotor]

Essaye FO_SILENT

je te conseille aussi

Code :

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

Rep.pFrom := PChar(Dir + #0);

J'ai eu des soucis dans certains cas !

C'est même obligatoire .

pFrom pourrait contenir plusieurs noms de fichiers sous forme AZT et puisqu'il n'y a pas d'information de taille (nombre de chaînes), la lecture se fait jusqu'à trouver une chaîne vide (#0).

[colorid]

Bonjour,

Avec

Code :

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

  Rep.pFrom := PChar(Dir + #0);

Celà fonctionne correctement sous Vista mais pas sous XP !

J'ai contourné le problème en utilisant une TFileListBox telque :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  i: integer;
  S: string;
  Sts: TStringList;
begin
 S:= ExtractFilePath(Application.exeName)+'Data\CALIB\';
 FileListBox.Directory:= S;
 Sts:= TStringList.Create;
   try
     Sts.Assign(FileListBox.Items);
     for i:=0 to Sts.Count-1 do DeleteFile(PEEKCOLOR_PATH+'Data\CALIB\'+Sts[i]);
     FileListBox.Clear;  
   finally
     Sts.Free;
   end;

Celà fonctionne quelque soit la version de Windows

Merci à tous

[Andnotor]

Tu aurais pu faire simplement comme ceci:

Code :

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

1
2
Dir := IncludeTrailingPathDelimiter(Dir) + '*.*'#0#0;
Rep.pFrom := PChar(Dir);