Jolly71
05-11-2010, 08:14
sto avendo problemi con il controllo sull'esistenza di una cartella e la relativa creazione.
dovrei controllare solo una volta se nella cartella corrente esiste la cartella "salvataggi" e se non esiste crearla e assegnarla come cartella predefinita per salvare successivamente.
il codice che ho scritto io č questo :
flag := '0';
dirlavoro :='\salvataggi';
// Controllo e set cartella
while flag = '0' do
begin
nomedir := GetCurrentDir;
nomedir := nomedir+dirlavoro;
if not DirectoryExists(nomedir)then CreateDir(nomedir);
saveDialog1.InitialDir := nomedir;
flag := '1';
end;
Cosė come l'ho scritto se non esiste la cartella funziona, ma le volte successive lui mi crea in salvataggi una nuova cartella salvataggi ogni volta che lo eseguo.
spero ci sia una soluzione.
grazie a tutti per l'aiuto e le risposte.
dovrei controllare solo una volta se nella cartella corrente esiste la cartella "salvataggi" e se non esiste crearla e assegnarla come cartella predefinita per salvare successivamente.
il codice che ho scritto io č questo :
flag := '0';
dirlavoro :='\salvataggi';
// Controllo e set cartella
while flag = '0' do
begin
nomedir := GetCurrentDir;
nomedir := nomedir+dirlavoro;
if not DirectoryExists(nomedir)then CreateDir(nomedir);
saveDialog1.InitialDir := nomedir;
flag := '1';
end;
Cosė come l'ho scritto se non esiste la cartella funziona, ma le volte successive lui mi crea in salvataggi una nuova cartella salvataggi ogni volta che lo eseguo.
spero ci sia una soluzione.
grazie a tutti per l'aiuto e le risposte.