递归枚举目录下所有文件并显示大小KB/MB/GB自动换算

递归枚举目录下所有文件并显示大小KB/MB/GB自动换算functionFormatByteSize(constbytes:Int64):string;constB=1;//byteKB=1024*B;//kilobyteMB=1024*KB;//megabyteGB=1024*MB;//gigabytebeginifbytes>GBthenresult:=FormatFloat('#.##GB',bytes/GB)elseifbytes>MBthenresult:=Format