如何使用vbscript从当前文件夹中获取所有.csv文件

扫描文件夹并仅列出在特定日期创建的.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

你的

将扩展名转换为大写，然后将其与小写的“csv”进行比较

---

的第三个参数应该是日期；现在（日期）不应转换为字符串。

DateAdd

同时适用于日期和日期字符串。但是，由于他只需要日期，所以只需使用

DateAdd（“d”，-1，date）

，而不是将

Now

的输出转换为只包含日期部分的字符串。

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