用户选择的是文件就得到文件大小，是文件夹就得到文件夹大小？

Question

UP.
用OPENDIALOG好像不行，不能选择文件夹，只能选择文件，有没有可以选择文件夹的？

Answer 1

FileExists(const Directory: string):
   判斷是否是文件,如果是得話,有文件sum代碼
DirectoryExists
   判斷是否是目錄,如果是得話,有計算目錄下所有文件sum代碼
如果文件夾下有別的文件夾,你能需要深度遍利統計

Answer 2

var size:integer;
stream :Tmemorystream;
begin
 stream := TMemoryStream.Create;
 if OpenDialog1.Execute then
 begin
   stream.LoadFromFile(OpenDialog1.FileName);
   size := stream.Size;   //获得文件大小
   edit1.Text:=inttostr(size);
 end;

Answer 3

用win3.1下的DriveComboBox1，DirectoryListBox1，FileListBox1procedure TForm1.FileListBox1Click(Sender: TObject);
var size:integer;
stream:Tmemorystream;
begin
  stream:=TMemoryStream.Create;
  stream.LoadFromFile(FileListBox1.FileName);//获得文件大小
  size:=stream.Size;
  edit1.Text:=inttostr(size);
end;procedure TForm1.DirectoryListBox1Click(Sender: TObject);
var size:integer;
FindData: TWin32FindData;
begin
  size:=FindData.nFileSizeLow; //获得文件夹大小
  edit1.Text:=inttostr(size);
end;

Answer 4

： hongqi162(失踪的月亮) (
   非常感谢！
   请问月亮，文件类型。比如exe扩展的，叫EXE文件
    有的叫配置文件，像资源管理器中的那样，这个如何实现？