如何获取一个文件的大小？

[nkym0626]

。。

[山东蓝鸟贵薪]

//获取文件的大小
function FileLength(Filename:string):integer;
var
fp:file of byte;
begin
AssignFile(fp,Filename);
Reset(fp);
.............
end;
这个就能直接读取文件的大小.........
代码不全,楼主有意与我联系索取完整代码

[天涯倦客]

AssignFile(f, myfile);
FileSize(f);

[cntigercat]

//获取文件的大小，单位为字节
function GetFileSize(const FileName: string): integer;
  function ReadFromTextFile(const FileName: string): string;
  var
    Size: integer;
    Stream: TStream;
  begin
    Result := '';
    if not FileExists(FileName) then Exit;

    Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
    try
      Size := Stream.Size - Stream.Position;
      SetString(Result, nil, Size);
      Stream.Read(Pointer(Result)^, Size);
    finally
      Stream.Free;
    end;
  end;
var
  sTemp: string;
begin
  Result := 0;
  if not FileExists(FileName) then Exit;

  sTemp := ReadFromTextFile(FileName);
  Result := Length(sTemp);
end;

[wsxcdx]

var
  F: file of Byte;
　nSize: Longint;
begin
  AssignFile(F, 'C:\MyFile.txt'); 
　Reset(F); 
  nSize := FileSize(F); 
  CloseFile(F); 
end;

[山东蓝鸟贵薪]

100分呀，我整理一下代码发给你， 你若要测试的源程序
可以直接联系我

[bdmh]

方法很多，可以用TSearchRec，还可以，用CreateFile，打开文件，然后用GetFileSize获取大小

[bdmh]

FFile_Handle:THandle;  
//FSourceFileName是文件名

FFile_Handle := CreateFile(PChar(FSourceFileName),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);  
  if FFile_Handle = INVALID_HANDLE_VALUE then Exit;  
  //获取文件尺寸   
  filesize := GetFileSize(FFile_Handle,nil);