ミ,,゚Д゚彡DelフサギコのフサフサDelphi談話室�G
■ このスレッドは過去ログ倉庫に格納されています
0273デフォルトの名無しさん
NGNGDelphi でも FileSystemObjectのFolderのSize を使えば取得できますが。
つーか FileSystemObject って VB の機能ではないからね。
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
fso, folder : OleVariant;
begin
fso := CreateOleObject('Scripting.FileSystemObject');
folder := fso.GetFolder('c:\');
Label1.Caption := folder.size;
end;
■ このスレッドは過去ログ倉庫に格納されています