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

[superhjw]

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

[chenkandy]

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

[hongqi162]

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;

[hongqi162]

用win3.1下的DriveComboBox1，DirectoryListBox1，FileListBox1

procedure 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;

[superhjw]

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