Vérification de suppression de dossier+ fichier

Version imprimable

Bonsoir à tous,

Sur un projet, qui consiste a supprimer des dossiers, plus des fichiers, je cherche a faire une vérification pour savoir si ces derniers sont bien supprimés?
Dans ce cas, il sera affiché, X supprimé, ou dans le cas d'une erreur de suppression, X non supprimé.

Est-ce que un code de ce type, pourrait fonctionner:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure ScruterDossiers(Folder: string); // Chercher si les fichers (Tableau Files) existe dans le dossier procedure SearchInFolder; var I: Integer; F : TextFile; begin for I := Low(Files) to High(Files) do if FileExists(Folder + Files[i]) then Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !'); Writeln(F,Folder + Files[i] + ': trouvé !'); DeletFile(Files[i]); If FileExists(Files[i]) then begin Writeln(F, Files[i] + ':Non supprimé!'); Closefile(F); end;
Merci pour vos réponses.:yaisse2:

17/10/2007, 22h18
ero-sennin

Re,

Avant toute chose, si je cerne bien ce que tu souhaites faire, c'est :

- Si un fichier à était trouvé, mettre dans le "Fichier servant de log" l'endroit où il a était trouvé et l'effacer par la suite

- Si le fichier n'a pas était trouvé, mettre dans le "Fichier servant de log" Fichier bien supprimé .

Merci
17/10/2007, 22h39
belle5656
Re,

Si il est trouvé et supprimé:
- Le noter dans le log(cela fonctionne déjà)
- Le supprimer(cele fonctionne pour les fichiers)
- Noter que la suppression est effectuéé(cela fonctionne également).
Si il est trouvé, mais pas supprimé:
- Noter qu'il a été trouvé, mais pas supprimé
Si il n'est pas trouvé: auncune action.Cela fonctionne également.

Voilà,c'est le second point que je voudrais tenter d'éclaircir en faisant une vérif de ce qui est censé être supprimé.

Ma commande ne pourra passer?

Merci.:king:
18/10/2007, 07h15
Qwazerty
SAlut
Je dois pas comprendre la question non plus mais dans l'aide de DeleteFile tu as ca
"La fonction DeleteFile efface sur le disque le fichier intitulé FileName. Si le fichier ne peut être supprimé ou n'existe pas, la fonction renvoie false."

Donc il te suffi de concerver la valeur renvoyer par DeleteFile, et au moment de faire tes teste tu regardes si la DeleteFile t'a renvoyer True (fichier belle et bien supprimé) ou False (Fichier n'a pu etre supprimé).

Perso je ferai un truc comme ca
Code:

1 2 3 4 5 6 7 8 9 10 11 If DeletFile(Files[i]) Then Begin //La suppression a reussi Writeln(F, Files[i] + ':supprimé!'); End Else Begin //La suppression a echouée Writeln(F, Files[i] + ':Non supprimé!'); End;
A++
Qwaz

Salut

En se basant sur la remarque de Qwazerty, modifie la procédure imbriquée SearchInFolder ainsi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure ScruterDossiers(Folder: string);
  // Chercher si les fichers (Tableau Files) existe dans le dossier
  procedure SearchInFolder;
  var
    I: Integer;
  begin
    for I := Low(Files) to High(Files) do
      if FileExists(Folder + Files[i]) then
      begin
        Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !');
        if DeleteFile(Folder + Files[i]) then
          WriteLn(F, Folder + Files[i] + ': trouvé et supprimé.')
        else
          WriteLn(F, Folder + Files[i] + ': trouvé et NON supprimé.');
      end;
  end;
 
var
  S: TSearchRec;
begin
  // ...
end;

18/10/2007, 11h51
belle5656

Salut,

Merci de m'avir répondu!

Ok, ces deux codes fonctionnent! Mais..:(

Cl@udius, j'avais déjà tenter cela, mais il m'arrive une erreur car quand je trouve un fichier, cela doit être noté dans le .txt, ainsi que dans le memo1.

Seulement, quand je rajoute(ce qui est en gras) cela bloque, il me dit qu'il End Attendue, mais Else trouvé

Et si je mets End, avant Else, cela me scrute tout les fichiers, de tout les repertoires..

Citation:

begin
Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !'); WriteLn(F, Folder + Files[i] + ': trouvé!');
if DeleteFile(Folder + Files[i]) then
Form1.Memo1.Lines.Add(Folder + Files[i] + ': supprimé !');
WriteLn(F, Folder + Files[i] + ': supprimé.')
else
Form1.Memo1.Lines.Add(Folder + Files[i] + ': non supprimé !'); WriteLn(F, Folder + Files[i] + ': non supprimé.');
end;
end;

Tu peux mettre seulement une action dans pour une condition?

Quand tu as plusieurs lignes à exécuter dans des instructions if .. then .. else, il faut utiliser un begin .. end.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
  Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !');
  WriteLn(F, Folder + Files[i] + ': trouvé!');
  if DeleteFile(Folder + Files[i]) then
    begin
      Form1.Memo1.Lines.Add(Folder + Files[i] + ': supprimé !');
      WriteLn(F, Folder + Files[i] + ': supprimé.');
    end
  else
    begin
      Form1.Memo1.Lines.Add(Folder + Files[i] + ': non supprimé !');
      WriteLn(F, Folder + Files[i] + ': non supprimé.');
    end;

PS: Utilise la balise CODE plutot que la balise QUOTE.

@+ Claudius

Re,

Ok pour la balise code!:yaisse2:

Ca bloque..Je en sais pourquoi là..

Cela me note dans le Memo1 + .txt, tous les repertoires, avec le nom de fichier que je suis censé trouver.
Pourtant, bien sur, ces fichiers ne sont pas dans tous les dossiers du système!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure ScruterDossiers(Folder: string);
 
  // Chercher si les fichers (Tableau Files) existe dans le dossier
  procedure SearchInFolder;
  var
    I: Integer;
  begin
    for I := Low(Files) to High(Files) do
      if FileExists(Folder + Files[i]) then
      begin
       Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !');
       WriteLn(F, Folder + Files[i] + ': trouvé!');
        if DeleteFile(Folder + Files[i]) then
          Form1.Memo1.Lines.Add(Folder + Files[i] + ': supprimé !');
          WriteLn(F, Folder + Files[i] + ': supprimé.')
       end
        else
         begin
          Form1.Memo1.Lines.Add(Folder + Files[i] + ': non supprimé !');
          WriteLn(F, Folder + Files[i] + ': non supprimé!');
         end;
  end;

bonjour

Citation:

Envoyé par belle5656

Tu peux mettre seulement une action dans pour une condition?

si plusieurs actions, les mettre dans un bloc begin / end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
  begin
    for I := Low(Files) to High(Files) do
      if FileExists(Folder + Files[i]) then
      begin
       Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !');
       WriteLn(F, Folder + Files[i] + ': trouvé!');
        if DeleteFile(Folder + Files[i]) then begin
          Form1.Memo1.Lines.Add(Folder + Files[i] + ': supprimé !');
          WriteLn(F, Folder + Files[i] + ': supprimé.')
        end;
      end
        else
         begin
          Form1.Memo1.Lines.Add(Folder + Files[i] + ': non supprimé !');
          WriteLn(F, Folder + Files[i] + ': non supprimé!');
         end;
  end;

à+

Re,

Fais un petit effort de relecture de ton code tout de même :roll:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure ScruterDossiers(Folder: string);

  // Chercher si les fichers (Tableau Files) existe dans le dossier
  procedure SearchInFolder;
  var
    I: Integer;
  begin
    for I := Low(Files) to High(Files) do
      if FileExists(Folder + Files[i]) then
      begin
        Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !');
        WriteLn(F, Folder + Files[i] + ': trouvé!');
        if DeleteFile(Folder + Files[i]) then
          begin // Ajout
            Form1.Memo1.Lines.Add(Folder + Files[i] + ': supprimé !');
            WriteLn(F, Folder + Files[i] + ': supprimé.');
          end
        else
          begin
            Form1.Memo1.Lines.Add(Folder + Files[i] + ': non supprimé !');
            WriteLn(F, Folder + Files[i] + ': non supprimé!');
          end;
      end;
 // ...

Dans ce genre de situation, le débogage en pas-à-pas est une bonne manière de voir pourquoi ton code ne se déroule pas comme tu le souhaites.

@+

SAlut
Je crois que tu fais des erreur dans tes bouces et banban54 aussi ;p

Je te propose ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure ScruterDossiers(Folder: string);
 
  // Chercher si les fichers (Tableau Files) existe dans le dossier
  procedure SearchInFolder;
  var
    I: Integer;
  begin
    for I := Low(Files) to High(Files) do
      if FileExists(Folder + Files[i]) then
      begin
       Form1.Memo1.Lines.Add(Folder + Files[i] + ': trouvé !');
       WriteLn(F, Folder + Files[i] + ': trouvé!');
       if DeleteFile(Folder + Files[i]) then
       begin
          Form1.Memo1.Lines.Add(Folder + Files[i] + ': supprimé !');
         WriteLn(F, Folder + Files[i] + ': supprimé.'); // ne pas oublier le ; ici
       end
       else
       begin
         Form1.Memo1.Lines.Add(Folder + Files[i] + ': non supprimé !');
         WriteLn(F, Folder + Files[i] + ': non supprimé!');
       end;
  end;

A++

Ps .... bon ok trop lent :)
Qwaz

18/10/2007, 13h07
banban54

bonjour Qwazerty

Citation:

Envoyé par Qwazerty

SAlut
Je crois que tu fais des erreur dans tes bouces et banban54 aussi ;p

Je te propose ca

Ton code est identique au mien, il nous manque bien un "end;" à tous les deux,
mais je répondais à la question "Tu peux mettre seulement une action dans pour une condition?".
Quand au ";" sur la ligne précédant le "end else", il n'est pas obligatoire.

à+
18/10/2007, 13h13
belle5656
Ok,

Merci a tous,

Cl@udius,

Citation:

Fais un petit effort de relecture de ton code tout de même

Oui, tu as raison désolé.;)

Je dois être plus attentif a la re-lecture des codes.

Pour ton post de 09H05:
Code:

1 2 3 else WriteLn(F, Folder + Files[i] + ': trouvé et NON supprimé.'); end;
Dans cet exemple, il n'y a pas de begin après else donc cela confirme bien, qu'il faut Begin et End quand il y a plusieurs instructions pour une condition.
:king:

Merci à tous, je note comme résolu.
21/10/2007, 20h51
Qwazerty

Citation:

Envoyé par banban54

bonjour Qwazerty

Ton code est identique au mien, il nous manque bien un "end;" à tous les deux,
mais je répondais à la question "Tu peux mettre seulement une action dans pour une condition?".
Quand au ";" sur la ligne précédant le "end else", il n'est pas obligatoire.

à+

SAlut
J'etait en train de faire un message pour faire remarquer que non, les 2 codes ne revenaient pas au meme et j'ai relu ton message en effet j'ai oublié un End; a la fin et si toi tu rajoutes un end; au milieu on revient a la meme chose ;)
Mais bon de toutes facon Claudius nous a gratté :p
A++
Qwaz

Fuseau horaire GMT +2. Il est actuellement 22h18.

Partenaire : Hébergement Web