PDA

Visualizza la versione completa : [Pascal]Controllare l' esistenza di un file


tiratardi
30-01-2009, 18:40
Salve...

Ho riscontrato dei problema nella creazione di un programma che dovrebbe controllare l' esistenza di una cartella in una specifica directory. (tipo voglio vedere se in C:\ esiste una cartella chiamata Pluto).
Se il file esiste non fa niente; altrimenti crea la cartella in quella directory.

Io ho fatto questo...ma...



Program asd;
Var Folder : File;
Begin
Assign(Folder, 'C:\Folder');
{$I-}
Reset(Folder);
{$I+}
If IOResult <> 0
Then
writeln('Errore, file non trovato') //e quindi la creazione della cartella

Else
Begin
Write('Trovato');
End;
Readln;
End.

Cosė facendo la cartella, se pur creata, non viene trovata.
Cosa che non succede se il controllo lo faccio con un file qualsiasi.

Mi potreste aiutare?

Grazie :)

denis76
30-01-2009, 22:29
Guarda qua
http://www.delphibasics.co.uk/RTL.asp?Name=DirectoryExists

vale per Delphi ed fpc

neroneelfico
15-02-2009, 21:27
Program asd;
Var Folder : File;
Begin
Assign(Folder, 'C:\Folder');
{$I-}
Reset(Folder);
{$I+}
If IOResult = 2
Then
writeln('Errore, file non trovato') //e quindi la creazione della cartella

Else
Begin
Write('Trovato');
End;
Readln;
End.

IOResult diventa 2 se non lo trova altrimenti 0 se lo trova. Buona fortuna ciao

Loading