Einzelnen Beitrag anzeigen

Delphi.Narium

Registriert seit: 27. Nov 2017
2.415 Beiträge
 
Delphi 7 Professional
 
#8

AW: Exception bei AssignFile mit langem Dateipfad

  Alt 28. Dez 2017, 13:27
Was liefert Dir denn ein FileExists('C:\Windows.old\WINDOWS\SoftwareDistribution\Download\4890056fe7c9079e4389ab89db94aaa5\amd64_Microsoft-Windows-Client-Features-Package~~AMD64~~10.0.17063.1000\amd64_dual_buttonconverter.inf_31bf3856ad364e35_10.0.17063.1000_none_d7273a158fb55cdb\buttonconverter.inf'); ?

Gibt es die Datei überhaupt?

Ansonsten versuchs doch mal so:
Delphi-Quellcode:
function GetFileSize(fileName : wideString) : Int64;
var
  sr : TSearchRec;
begin
  if FindFirst(fileName, faAnyFile, sr) = 0 then
     result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
  else
     result := -1;
  FindClose(sr);
end;
Siehe: https://www.thoughtco.com/file-size-...delphi-1057888
  Mit Zitat antworten Zitat