学步园

function Ty_GetDirInfo(s_Dir:String;id:byte):string;
var
  FSO,Folder,Drive:Variant;
begin
  FSO:=CreateOLEObject('Scripting.FileSystemObject');
  Folder:=FSO.GetFolder(s_Dir);
  Drive :=fso.GetDrive(fso.GetDriveName(s_Dir));
  case id of
    1:result:=Folder.files.count;       //文件总数
    2:result:=Ty_ByteToStr(Folder.size);//文件夹大小
    3:result:=Ty_ByteToStr(Drive.FreeSpace); //可用空间
    4:Result:=Ty_ByteToStr(Drive.TotalSize); //总空间
  end;
end;