2013-07-12 95 views
0

掃描文件夾並僅列出在該特定日期創建的.csv文件。如何從當前使用vbscript的文件夾獲取所有.csv文件

option explicit 
dim fileSystem, folder, file, path, myDate 
path = "C:\vbs" 
Set fileSystem = CreateObject("Scripting.FileSystemObject") 
myDate = dateadd("d", -1, FormatDateTime(Now, 2)) 
Set folder = fileSystem.GetFolder(path) 
for each file in folder.Files 
    if file.DateCreated > myDate then 
    WScript.Echo file.Name & " created at " & file.DateCreated 
    If UCase(filesystem.GetExtensionName(objFile.name)) = "csv" then 
     Wscript.Echo objFile.Name 
    End If 
    End If 
next 

回答

2

If UCase(filesystem.GetExtensionName(objFile.name)) = "csv" then 

變換擴展爲大寫,但後來把它比作一個小寫的 「CSV」。

DateAdd的第三個參數應該是日期;現在(日期)不應轉換爲字符串。

+0

'DateAdd'與日期和日期字符串一起工作。然而,由於他只想要日期,所以他應該簡單地使用'DateAdd(「d」,-1,Date)'而不是將'Now'的輸出轉換爲只包含日期部分的字符串。 –

相關問題