Discussion :

[michel71]

Bonjour,

j'essais de supprimer des fichiers qui sont listés dans une ListBox

Code :

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

1
2
3
4
5
6
7
8
9
10
for i:=0 to ListBox3.Count-1 do
begin
            provi:=ExtractFilePath(Application.ExeName)+'dab00\'+ nomprovi + ListBox3.Items[i] + '.del';
            AssignFile(fich_provi,provi);
            try
            CloseFile(fich_provi);
            except
            end;
            Erase(fich_provi);
end;

je récupère bien mes noms de fichier (j'ai vérifié) mais j'ai une erreur E/S 32 au moment du "Erase" que je ne comprend pas.
Merci

[MedGIR]

A mon avis l'erreur vient d'ici:

provi:=ExtractFilePath(Application.ExeName)+'dab00\'+ nomprovi + ListBox3.Items[i] + '.del';

Perso je ferais ca, car j'imagine que c'est des fichiers dans un sous répertoire que tu veux supprimer

Code :

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

provi:=IncludePathDelimiter(ExtractFilePath(Application.ExeName))+'dab00\'+ nomprovi + ListBox3.Items[i] + '.del';

Et je ne ferais pas erase mais DeleteFile

[Rayek]

Code :

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

provi:=IncludePathDelimiter(ExtractFilePath(Application.ExeName))+'dab00\'+ nomprovi + ListBox3.Items[i] + '.del';

IncludePathDelimiter est inutile, ExtractFilePath laisse le \ à la fin.

Et je ne ferais pas erase mais DeleteFile

+1, et j'enlèverai la partie qui ouvre puis ferme le fichier qui ne sert à rien.

[MedGIR]

Citation:
Envoyé par MedGIR Voir le message
Code :

provi:=IncludePathDelimiter(ExtractFilePath(Application.ExeName))+'dab00\'+ nomprovi + ListBox3.Items[i] + '.del';

IncludePathDelimiter est inutile, ExtractFilePath laisse le \ à la fin.

Quand l'appli est dans un répertoire réseau... chez moi cela fonctionne pas tant que IncludePathDelimiter n'est pas indiqué

[Rayek]

1- Soit ta fonction IncludePathDelimiter est d'une unité à toi car elle n'exite pas dans SysUtils (c'est IncludeTrailingPathDelimiter)

2- Normalent avec chemin reseau cela ne devrait pas fonctionner avec ExtractFilePath (voir ligne en orange ci dessous)

Unité
SysUtils

Syntaxe


[Delphi] function ExtractFilePath(const FileName: string): string;


Description
La chaîne renvoyée est composée des caractères de gauche de FileName, jusqu'aux deux points ou la barre oblique inverse qui séparent le chemin du nom et de l'extension. La chaîne renvoyée est vide si FileName ne contient pas de partie lecteur et répertoire.

Vu qu'un chemin réseau n'a pas de partie lecteur (\\MonServeur\MonRépertoire\), ca ne devrait pas fonctionner d'où ton problème avec EXtractFilePath seul

[edit]
En fait pour les chemins/répertoires réseaux tu devrais utiliser ExpandUNCFileName qui est fait exactement pour cela ^^

[michel71]

merci à vous.

En effet en utilisant "DeleteFile" au lieu de "Erase" je n'ai plus d'erreur E/S 32 mais seul le dernier fichiers de la liste est supprimer ?

J'avoue que je suis un peu perdu devant ce problème

[michel71]

Ci-joint le nouveau code

Code :

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

1
2
3
4
5
6
7
 
for i:=0 to ListBox3.Count-1 do
begin
            provi:=ExtractFilePath(Application.ExeName)+'dab00\'+ nomprovi + ListBox3.Items[i] + '.del';
            DeleteFile(provi);
 
end;