VBScript 检查文件夹中的文件并通过电子邮件发送过去 1 小时未更新的文件名答案

【问题标题】：VBScript to check files in folder and email the file name not updated past 1 hourVBScript 检查文件夹中的文件并通过电子邮件发送过去 1 小时未更新的文件名
【发布时间】：2013-07-30 07:57:23
【问题描述】：

我需要帮助，我是 VBScript 新手。我需要一个 vbscript，它可以检查包含 10 到 20 个 .csv 文件的文件夹，需要检查日期和时间并发送超过 15 分钟到 1 小时未更新的文件的报告。

文件位于网络共享上。 (\用户\文件)

感谢您的回复和指导。

我确实根据需要更改了代码，但仍需要更多帮助。

   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 中写入文件名 + 文件的最后修改日期。目前它正在写入文件名。谁能指导我？

【问题讨论】：

-1 因为帖子显示零研究工作。也许从这里开始：w3schools.com/asp/asp_ref_filesystem.asp

标签： javascript visual-studio-2010 vba vbscript vb6

【解决方案1】：

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

【讨论】：

感谢您的回复 n 指南。我确实根据需要更改了代码，但仍然需要更多帮助。

【解决方案2】：

查找文档。如果你有交换，你必须设置不同的属性。

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"

【讨论】：