Javascript VBScript检查文件夹中的文件并通过电子邮件发送文件名，该文件名在1小时后未更新

我需要帮助，我不熟悉VBScript。 我需要一个vbscript，它可以检查一个文件夹，其中包含10到20个.csv文件，需要检查日期和时间，并发送报告哪些文件在过去15分钟到1小时内没有更新

文件位于网络共享上。（\Users\files）

感谢您的回复和指南

我确实根据自己的需要修改了代码，但仍然不需要更多的帮助

   DirCheck="W:\RC"

   set fso=CreateObject("Scripting.FileSystemObject")

    Set FOL = fso.GetFolder(DirCheck)

    Set output = fso.CreateTextFile("C:\Temp\output.txt",True) 

    For each fil in FOL.files
        strExtension=Fso.GetExtensionName(fil.name)
        If UCase(strExtension)="CSV" Then
        output.WriteLine fil.name

     End If
    Next

    Set fso=Nothing

---

我希望它在output.txt中写入文件名+文件的最后修改日期。当前正在写入文件名。有谁能指导我吗？

FileSystemObject是您的朋友，如果您使用VBScript处理文件，请学会热爱FSO

此示例将提供帮助—显示自上次修改CSV文件以来的时间（以分钟为单位）—只要运行脚本的用户对共享具有读取权限，该示例将在共享上运行

DirCheck="C:\test"

set fso=CreateObject("Scripting.FileSystemObject")

Set FOL = fso.GetFolder(DirCheck)

For each fil in FOL.files
    strExtension=Fso.GetExtensionName(fil.name)
    If UCase(strExtension)="CSV" Then
        strFileName=fil.name
        wscript.echo("File : " & strFileName)
        Wscript.echo("Mins since last modificaion: " & DateDiff("n",fil.DateLastModified,now))
    End If
Next

Set fso=Nothing

---

查一下文件。如果有exchange，则必须设置不同的属性

Set emailObj      = CreateObject("CDO.Message")
emailObj.From     = "ndy@gail.com"

emailObj.To       = "ndy@gail.com"

emailObj.Subject  = "Test CDO"
emailObj.TextBody = "Test CDO"

emailObj.AddAttachment "c:\windows\win.ini"

Set emailConfig = emailObj.Configuration

emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = true 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "ndy"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "password"
emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Done"

---

-1因为这篇文章没有显示任何研究成果。也许从这里开始：谢谢你的回复。我确实根据自己的需要修改了代码，但仍然不需要更多的帮助。