X
xhj12077021
Unregistered / Unconfirmed
GUEST, unregistred user!
硬盘的大小和可用空间大小可以这样得到：
var
freeavail,totalbyte,totalbyte1:int64;
totalfree1,totalfree:tlargeinteger;
begin
getdiskfreespaceex(pchar(edit1.text),freeavail,totalbyte,@totalfree);
totalfree1:=totalfree div 1024 div 1024 ;
totalbyte1:=totalbyte div 1024 div 1024 ;
label1.Caption:='可用空间:'+formatfloat('###,###',totalfree1)+'MB';
label2.Caption:='总空间:'+formatfloat('###,###',totalbyte1)+'MB';
我想得到D:/OPERView 文件夹的大小。这个文件夹下有文件夹和文件。我只想得到除abc,def,wsd文件夹以外所有文件的大小，
请问怎么得到？
（我的目的就是得到文件的大小，然后和硬盘剩余空间比较大小，）
var
freeavail,totalbyte,totalbyte1:int64;
totalfree1,totalfree:tlargeinteger;
begin
getdiskfreespaceex(pchar(edit1.text),freeavail,totalbyte,@totalfree);
totalfree1:=totalfree div 1024 div 1024 ;
totalbyte1:=totalbyte div 1024 div 1024 ;
label1.Caption:='可用空间:'+formatfloat('###,###',totalfree1)+'MB';
label2.Caption:='总空间:'+formatfloat('###,###',totalbyte1)+'MB';
我想得到D:/OPERView 文件夹的大小。这个文件夹下有文件夹和文件。我只想得到除abc,def,wsd文件夹以外所有文件的大小，
请问怎么得到？
（我的目的就是得到文件的大小，然后和硬盘剩余空间比较大小，）