[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[系统相关] 批处理能否批量显示文件属性修改日期(要显示到秒)?

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

求教,怎么才能显示 几点几分几秒?
  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
复制代码

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

评分人数

TOP

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

评分人数

TOP

回复 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
复制代码
1

评分人数

我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

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

评分人数

TOP

返回列表