批处理能否批量显示文件属性修改日期（要显示到秒）？

xiongdeqin

问题如题，如下代码能批量显示文件属性中修改日期，但是没有显示几点几分几秒修改的，只显示几点几分。

求教，怎么才能显示 几点几分几秒？

1. @echo off&setlocal EnableDelayedExpansion
   
2. for /f "delims=" %%f   in ('dir /b /s D:\TEST') do (
   
3.     set fileDateTime=%%~tf
   
4.     set fileName=%%~dpnxf
   
5.     echo !fileName!----!fileDateTime!
   
6. )
   
7. pause

复制代码

hfxiang

for /f "usebackq tokens=*" %a in (`forfiles /p . /m *.* /c "cmd /c echo @path,@fdate,@ftime"`) do @echo %a

WHY

1. PowerShell "dir *.* -Recurse | forEach{$_.FullName + '----' + $_.LastWriteTime.ToString('yyyy/MM/dd HH:mm:ss')}"

复制代码

Batcher

回复 1# xiongdeqin


test.bat

1. ' 2>nul 3>nul&@echo off&cls
   
2. ' &start wscript.exe /nologo /e:vbs %0&exit
   
3. set objFSO = CreateObject("Scripting.FileSystemObject")
   
4. ' 结果写入哪个文件
   
5. set objDstFile = objFSO.OpenTextFile("C:\Test\To\Result.txt",2,True)
   
6. ' 获取哪个文件夹下的文件
   
7. set objFiles = objFSO.GetFolder("C:\Test\From").Files
   
8. for each objFile in objFiles
   
9.     objDstFile.Write objFile & " --- " & objFile.DateLastModified & vbcrlf
   
10. next
    
11. objDstFile.Close

复制代码

WHY

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. set "p=%~p0"
   
5. 
   
6. for /f "tokens=1*" %%i in ('wmic DataFile Where "Drive='%~d0' And Path='%p:\=\\%'" Get LastModified^,Name^|find ""') do (
   
7.     set "dtm=%%i"
   
8.     for /f "delims=" %%k in ("%%j") do (
   
9.         echo;%%~fk----!dtm:~0,4!/!dtm:~4,2!/!dtm:~6,2! !dtm:~8,2!:!dtm:~10,2!:!dtm:~12,2!
   
10.     )
    
11. )
    
12. pause

复制代码