[TP] Nettoyage des fichiers récents

Version imprimable

Salut les amis je suis entrain de développer un programme , ce programme cherche les fichiers qui sont ajoute au dossier recent et prefetch et il les effaces
Voici le syntaxe

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program chercher;
uses dos,crt;
var fichier:searchrec;
procedure prefetch;
var t:string;

begin
     textcolor(red);
           writeln('prefetch');
           delay(500);
           textcolor(white);

     findfirst('c:\windows\prefetch\*.*',archive,fichier);
     while doserror =0 do
           begin

           writeln(fichier.name);
           erase(fichier.name)//le probleme c'est dans cette ligne

                      findnext(fichier);
           end;
     end;

procedure recent;
begin
     textcolor(red);
           writeln('recent');
           delay(500);
           textcolor(white);

     findfirst('C:\Docume~1\Admini~1\Recent\*.*',archive,fichier);
     while doserror =0 do
           begin
            writeln(fichier.name);

             erase(fichier.name)//le probleme c'est dans cette                                     ligne
                      findnext(fichier);
           end;
     end;

begin
clrscr;
prefetch;
recent;
readln;
end.

et merci pour votre aide

05/04/2007, 15h16
droggo

Luw,

Avec quel compilateur travailles-tu ?

:lol: Leitmotiv :lol: : essaye de faire une indentation régulière et cohérente, ça facilite la lecture et la maintenance du code
05/04/2007, 15h33
amine6441

Je travaille sur le turbo pascal
Et le problème c'est quand j'ajoute la procédure erase ça ce copile pas
erase c'est une fonction pour effacer les fichiers

Hao,

Je n'ai plus Turbo Pascal pour vérifier, mais

Citation:

Envoyé par la doc FreePascal dit

Description: Erase removes an unopened file from disk. The file should be assigned with Assign, but not opened with Reset or Rewrite

Sous freePascal, ceci fonctionne
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 26 27 28 29 30 uses dos,crt; procedure prefetch; const path = 'c:\windows\prefetch\'; var r : searchrec; f : file of byte; {on évite ainsi le problème de savoir quel est le type du fichier } begin textcolor(red); writeln('prefetch'); textcolor(white); findfirst(path+'*.*',archive,r); while doserror =0 do begin writeln(r.name); assign(f,path+r.name); erase(f); //erase(fichier.name);//le probleme c'est dans cette ligne findnext(r); end; dos.findclose(r); end; begin prefetch; Readln; end.
la constante path est là pour permettre l'accès aux fichiers trouvés par FindFirst/FindNext, car SearchRec ne contient que le nom du fichier, pas le chemin+nom.

Ne pas oublier d'utiliser FindClose à la fin, sinon il y a fuite de mémoire.

Je ne pense pas que ce code pose problème pour Turbo Pascal. S'il y en a, dis-le, et j'irai récupérer Turbo Pascal pour essayer.

Ici, édité

Vérification faite, ça marche avec Turbo Pascal 7, sauf qu'il faut enlever

Code:

dos.findclose(r);

Je ne me souvenais pas de ça :lol:

05/04/2007, 18h03
amine6441

Merci pour votre aide