Newsgroup: it.comp.lang.pascal
Titolo: problemaaaaaaaaaa!!!!!!

scusate mi potreste dire come faccio a creare un programma che ogni 10
giorni cancelli un determinato file che si trova in una determinata
cartella???
E se non si potesse fare allora come faccio a creare un programma che mi
cancella un determinato file (che mi stà proprio sul cu....o)?????
vi ringrazio

 ha scritto nel messaggio
news:oUHm9.41292$e31.9...@twister2.libero.it...

Mo mi viene semplice semplice
        program CancellaIlFileCheMiDaTantoFastidio;
        uses crt;
        function esistefile(s : string) : boolean;
        var f : file
        begin
            {$i-}
             assign(f,s);
             reset(f);
             close(f);
             {i+}
              esistefile:=(IORESULT=0);
        end;
        var f : text;
              f2 : file of integer;
              ferase : file;
              day : integer;
              filename : string;
        begin
            if EsisteFile('path.txt') and  EsisteFile('giorni.dat') then
               begin
                   assing(f2,'giorni.dat');
                   reset(f2);
                   read(f2,day);
                   day:=day-1;
                    if day<0 then
                       begin
                           assign(f,'path.txt');
                           reset(f);
                           readln(f,filename);
                           close(f);
                            if EsisteFile(filename) then
                               begin
                                    assign(ferase,filename);
                                    erase(ferase);
                                    writeln(filename,' cancellato !');
                                    day:=10;
                               end
                            else
                                    writeln('Il file ',filename,' non
esiste');
                            seek(f2,0); write(day);
                            close(f2);
                        end;
                end
            else
                begin
                    (* qua crei i due file path.txt
                         e giorni.dat chiedendo prima il path del file
ricordandoti che
                         non è supportato il nome lungo quindi devi inserire
i path con i relativi ~
                         magari controlli anche esistenza del file con
esistefile e poi crei un file di integer
                        dove scrivi il numero di giorni *)
                end;
end.
Metti il programma nel menu di Avvio di Windows o nell autoexec.bat ed il
gioco è fatto !
Ciao ReDiCuori
--
L'informatica è un arte
---------------------------------------------------------
 
www.pascallike.too.it
 
http://utenti.lycos.it/pascallike
 il sito sulla programmazione pascal e non solo
---------------------------------------------------------


Lo chiami semplice? Ora no ho tempo domani ci metto un po' le mani...
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596

 ha scritto nel messaggio
news:anfv4o$e90m4$2...@ID-99656.news.dfncis.de...



Non intendo quello intendo che è troppo prolisso come codice...
per esempio perche usare 2 file di cfg invece di 1 solo
Pultroppo anche oggi rimando a domani...
