Vbscript 文件的上次修改日期-写入文本文件

这个脚本工作得很好（尽管20多个论坛都说它做不到，所以它可能会帮助其他人）

它检查文件夹中的最新文件，并在弹出窗口中告诉我日期

我想它检查文件，并保存到一个.txt文件

`Option Explicit  
Dim fso, path, file, recentDate, recentFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
For Each file in fso.GetFolder("c:\check").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 report has been run before"
Else
WScript.Echo "This report was last run at "  & " " & 
recentFile.DateLastModified
End If

---

它另存为.vbs

如果我理解正确，文件位于.vbs中，您希望将其另存为.txt。下面是如何操作

我不知道你说的支票是什么意思

Option Explicit 

Dim fso, path, file, recentDate, recentFile

Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing

For Each file in fso.GetFolder("c:\check").Files

    If (recentFile is Nothing) Then
        Set recentFile = file
    ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
        Set recentFile = file
    End If

    'replace extension in full path - not case sensitive
    file_name_txt = Replace(File.Path, ".vbs", ".txt", 1, -1, vbTextCompare)

    'Warning - moving the file will delete the source
    file.move file_name_txt

    'You may also use file.copy to keep the original
    'file.copy file_name_txt, True '(overwrite)

Next

If recentFile is Nothing Then
    WScript.Echo "No report has been run before"
Else
    WScript.Echo "This report was last run at " & recentFile.DateLastModified
End If