Ty_GetDirInfo

来源:互联网 发布:网络海外代购兼职 编辑:程序博客网 时间:2024/06/05 06:08
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;

 
原创粉丝点击