VBScript檢查文件夾中的文件和電子郵件的文件名未更新過去1小時

-3

我需要幫助，我是VBScript的新手。我需要一個VBScript可以檢查包含10至20的.csv文件，需要檢查的日期&時間，併發送的文件沒有被更新，更多的則過去15分鐘到1小時報告的文件夾。VBScript檢查文件夾中的文件和電子郵件的文件名未更新過去1小時

文件位於網絡共享上。（\用戶\文件）

感謝您的答覆n導覽。

我確實改變了代碼爲我的需求，還需要一些更多的幫助。

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文件的最後修改日期。目前它的文件名是。任何人都可以引導我嗎？

來源

2013-07-30 user2633138

-1，因爲後顯示零的研究工作。也許從這裏開始：http://www.w3schools.com/asp/asp_ref_filesystem.asp –

FileSystemObject的是你的朋友在這裏，學會愛FSO，如果你是在VBScript中的文件工作。

這個例子應該幫助 - 顯示自爲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

來源

2013-07-30 08:08:28 SinisterPenguin

感謝您的回覆n指南。我確實根據自己的需要更改了代碼，仍然需要更多的幫助。 – user2633138

查找文檔。如果你有交換，你必須設置不同的屬性。

Set emailObj  = CreateObject("CDO.Message") 
emailObj.From  = "[email protected]" 

emailObj.To  = "[email protected]" 

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"

來源

2014-03-27 07:47:34

VBScript檢查文件夾中的文件和電子郵件的文件名未更新過去1小時

回答

相關問題