[系统相关] 获取某个路径（包含子文件夹）下的文件名、时间、路径、大小

花无缺不缺

求助大神，我这里百度找了2段代码，
源代码1：优点：有名称、时间、路径、大小。缺点：文件大小为字节数，无法换算为MB  GB
源代码2：优点：大小可以换算为MB,GB。缺点：无时间、路径。
我的诉求是：文件名、时间、路径、大小（mb的显示mb，gb的显示gb），请大神帮忙看看



源代码1

for /f "delims=" %%a in ('dir/s/b/c D:\1\*') do ( 
echo %date%;%time%>>E:\输出.txt
echo  文件路径：%%~a >>  E:\输出.txt
echo 文件大小：%%~za字节 >>   E:输出.txt
)
复制代码

源代码2

@if(0)==(0) echo off & dir /b /s /on/a-d  D:\1\*  | CScript -NoLogo -E:JScript %0    >文件名_大小.txt &  pause & exit @end
var fso=new ActiveXObject("Scripting.FileSystemObject");
var k=1024, m=1048576, g=1073741824;
while (!WScript.StdIn.AtEndOfStream){
    var name = WScript.StdIn.ReadLine();
    var f =fso.GetFile(name)
    WSH.Echo(f.name,filesize(f.size),f.date,f.time)
};

function filesize(size) {
    switch(true){
        case size>g :
            size = (size/g).toFixed(2) + ' GB';
            break;
        case size>m :
            size = (size/m).toFixed(2) + ' MB';
            break;
        case size>k :
            size = (size/k).toFixed(2) + ' KB';
            break;
        default :
            size = size + ' 字节';
    };
    return size;
}
复制代码

xczxczxcz

适用于数量不是太多，以免影响速度。若10万以上可以不用。须换NET版才能提速。
POWERSHELL 运行。

$Lists = New-Object System.Text.StringBuilder;
$files = ls 'D:\1\' -r | ?{$_.Directory};
$m = $files.Count.tostring().Length;
Foreach ( $i in $files )
{
	$index++;
	$ref = $i.Length;
	switch ( $ref.tostring().length )
	{
		{$_ -le 3} { $length = "{0:0.000} Byte" -f ($ref);break}
		{$_ -le 6} { $length = "{0:0.000} KB" -f ($ref/1KB);break}
		{$_ -le 9} { $length = "{0:0.000} MB" -f ($ref/1MB);break}
		$_ { $length = "{0:0.000} GB" -f ($ref/1GB)}
	}
	$n = '[' + $index.tostring().padleft($m,' ') + ']';
	[void]$Lists.AppendLine($n+' '+$i.name);
	[void]$Lists.AppendLine(' '*($m+3)+$length);
	[void]$Lists.AppendLine(' '*($m+3)+$i.LastWriteTime);
	[void]$Lists.AppendLine(' '*($m+3)+$i.FullName);
	[void]$Lists.AppendLine('');
}
[IO.File]::WriteAllLines("$pwd\输出.log",$Lists,[text.encoding]::Default);
复制代码

花无缺不缺

回复 2# xczxczxcz


    可以运行，感谢