[Delphi]Data modyfikacji pliku

Siema
Procedura ma sprawdzać datę modyfikacji pliku i nie ma problemu jeżeli chodzi o plik w bieżącym katalogu
to działa:
plik := FileOpen('jakis.plik',fmOpenRead);
data := FileDateToDateTime(FileGetDate(plik));

a to się wywala:
plik := FileOpen(GetCurrentDir + '\Katalog\jakis.plik',fmOpenRead);
data := FileDateToDateTime(FileGetDate(plik));

Co skopałem?

Witam

teles40 napisał(a)

a to się wywala:
plik := FileOpen(GetCurrentDir + '\Katalog\jakis.plik',fmOpenRead);
data := FileDateToDateTime(FileGetDate(plik));

Co skopałem?

Powinno działać tak jak i poprzedni kod chyba, że podajesz błędną ścieżkę do pliku.
Pozdrawiam

Mi też się wydawało że powinno działać ale tak nie jest.
Szczeka że nieprawidłowy parametr.

O ile wiem,GetCurrentDir zwraca stringa ze znaczkiem \ na końcu, więc niepotrzebnie go dodajesz w tym stringu następnym.

to też nie to, jakieś inne sugestie?

Sam sobie sprawdź co źle robisz:

ShowMessage(GetCurrentDir + '\Katalog\jakis.plik');

// lub sprawdzając istnienie katalogu
if not DirectoryExists(GetCurrentDir + '\Katalog\') then
  ShowMessage('ścieżka jest nieprawidłowa !')
else
  ShowMessage('ścieżka prawidłowa');

Nie ośmieliłbym się postawić pytania gdybym uprzednio nie sprawdził tak oczywistych rzeczy. [!!!]

Może zamień z GetCurrentDir na ExtractFilePath(Application.ExeName)

Z tym że ExtractFilePath zwróci na koncu także znak \

Jeżeli ścieżka jest poprawna to musi działać! Przecież wszystkim działa dlaczego niby tobie akurat nie?

plik := FileOpen(GetCurrentDir + '\Katalog\jakis.plik',fmOpenRead);
if plik > 0 then
begin
  data := FileDateToDateTime(FileGetDate(plik));
  FileClose(plik);
end
else
  ShowMessage('Błąd otwarcia pliku');

Jestem w 100% pewny, że podałeś złą ścieżkę lub plik, który chcesz otworzyć jest używany i dlatego próba jego otwarcia kończy sie niepowodzeniem.

I co się od kalafiorów wyzywacie ;)
Ścieżka jest prawidłowa tylko plik jest już otwarty (baza danych)

Pytanie brzmi: czy i jak można odczytać datę z owartego pliku?