Datetime 批处理脚本：将目录中最旧文件的日期写入文本文件

我试图将目录中最旧文件的修改日期写入文本文件。目前，我可以按照从最早到最新的顺序写入所有文件名（我将它们命名为创建日期，但是），但似乎不能将其限制为仅输出最早的文件名，或者确实获得修改或创建的日期/时间。我的目录是远程的，以防发生差异，我当前的尝试如下：

dir "\\dirxxxx\xxxxxxx\xxxxx\xxxxx\xxxxx\*.*" /b /a-d /o-d`

你知道如何在同一目录下获取写入文本文件的文件的创建或修改日期吗？

试试以下方法：

for /f "delims=" %i in ('dir /b/o-d/a-d') do set "oldesttime=%~ti"
>"log.txt" echo %oldesttime%

试试这个：

for /f "delims=" %i in ('dir /b/o-d/a-d') do set "oldesttime=%~ti"
>"log.txt" echo %oldesttime%

---

解决方案：改用vbs

Option Explicit  
Dim fso, path, file, recentDate, recentFile, objFileHandle
Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
For Each file in fso.GetFolder("\\xxxxxx\xxxxxxx").Files
  If (recentFile is Nothing) Then
    Set recentFile = file
  ElseIf (file.DateLastModified < recentFile.DateLastModified) Then
    Set recentFile = file
  End If
Next

If recentFile is Nothing Then
  WScript.Echo "no recent files"
Else
  WScript.Echo recentFile.DateLastModified

  Set objFileHandle = fso.OpenTextFile("\\Vxxxxxx\xxxxx", 2, "True")
  objFileHandle.Write(recentFile.DateLastModified)
  objFileHandle.Close
End If

选项显式
Dim fso、路径、文件、recentDate、recentFile、objFileHandle
设置fso=CreateObject（“Scripting.FileSystemObject”）
Set recentFile=Nothing
对于fso.GetFolder（“\\xxxxxx\xxxxxxx”）.Files中的每个文件
如果（recentFile为Nothing），则
设置recentFile=file
ElseIf（file.datelastmedited

解决方案：改用vbs

Option Explicit  
Dim fso, path, file, recentDate, recentFile, objFileHandle
Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
For Each file in fso.GetFolder("\\xxxxxx\xxxxxxx").Files
  If (recentFile is Nothing) Then
    Set recentFile = file
  ElseIf (file.DateLastModified < recentFile.DateLastModified) Then
    Set recentFile = file
  End If
Next

If recentFile is Nothing Then
  WScript.Echo "no recent files"
Else
  WScript.Echo recentFile.DateLastModified

  Set objFileHandle = fso.OpenTextFile("\\Vxxxxxx\xxxxx", 2, "True")
  objFileHandle.Write(recentFile.DateLastModified)
  objFileHandle.Close
End If

选项显式
Dim fso、路径、文件、recentDate、recentFile、objFileHandle
设置fso=CreateObject（“Scripting.FileSystemObject”）
Set recentFile=Nothing
对于fso.GetFolder（“\\xxxxxx\xxxxxxx”）.Files中的每个文件
如果（recentFile为Nothing），则
设置recentFile=file
ElseIf（file.datelastmedited

谢谢-在哪里设置文件位置？对于/f“delims=“%i in（'dir”\\dirxxxx\xxxxxxx\xxxxx\xxxxx\xxxxx**”/b/o-d/a-d'），在双引号中的参数之前或之后设置“oldest=%i”echo%oldest%Yes，您的两条注释不起作用吗

对于/f“delims=“%%i in（'dir/b/o-d/a-d”C:\path name“'）是否设置了“最旧的=%%~i”

我将其回显给我，但没有放入文件中。

>“file.txt”echo%oldest%

谢谢-我在哪里设置文件位置？对于/f“delims=“%i in（'dir”\\dirxxxx\xxxxxxx\xxxxx\xxxxx\xxxxx**”/b/o-d/a-d'），在双引号中的参数之前或之后设置“oldest=%i”echo%oldest%Yes，您的两条注释不起作用吗

对于/f“delims=“%%i in（'dir/b/o-d/a-d”C:\path name“'）请设置“最旧的=%%~i”

我将其回显给我，但不会进入文件。

>“file.txt”echo%oldest%