使用vbscript扫描文件夹并仅列出图像文件

我试图使脚本扫描文件夹，并列出只有图像文件，如jpg，png，gif。 这是密码

Dim fso, ObjFolder, ObjOutFile, ObjFiles, ObjFile, outputFile, inputFileList
Const ForReading = 1, ForWriting = 2, ForAppending = 8, CreateIfNeeded = true

inputFileList = "list.txt"
outputFile = "C:\Users\Susan\Documents\iMacros\Macros\WindowsFiles.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objTextFile = fso.OpenTextFile(inputFileList, ForReading)

Do Until objTextFile.AtEndOfStream
 sFolderName = objTextFile.Readline
 wscript.Echo "writing contents of " & sFolderName
 writefilenames(sFolderName)
Loop

function writefilenames(sFolderName)
  Set ObjFolder = fso.GetFolder(sFolderName)

  If fso.FileExists(outputFile) Then
    Set ObjOutFile = fso.OpenTextFile(outputFile, ForAppending)
  Else
    Set ObjOutFile = fso.OpenTextFile(outputFile, ForWriting, CreateIfNeeded)
  End If

  Set ObjFiles = ObjFolder.Files

  For Each ObjFile In ObjFiles
    ObjOutFile.WriteLine(ObjFile.Path)
  Next

  ObjOutFile.Close
end function

---

有人能给我正确的密码吗

仅当

ObjFile

具有匹配的扩展名时，才执行命令

ObjOutFile.WriteLine（ObjFile.Path）

Set extensions = CreateObject("Scripting.Dictionary")
extensions.CompareMode = 1 ' make lookups case-insensitive
extensions.Add "jpg", True
extensions.Add "png", True
extensions.Add "gif", True

'...

For Each ObjFile In ObjFiles
  If extensions.Exists(fso.GetExtensionName(ObjFile)) Then
    ObjOutFile.WriteLine(ObjFile.Path)
  End If
Next

---

请不要问你的问题。对你请求帮助的人不太礼貌。

仅当

ObjFile

具有匹配的扩展名时，才执行命令

ObjOutFile.WriteLine（ObjFile.Path）

Set extensions = CreateObject("Scripting.Dictionary")
extensions.CompareMode = 1 ' make lookups case-insensitive
extensions.Add "jpg", True
extensions.Add "png", True
extensions.Add "gif", True

'...

For Each ObjFile In ObjFiles
  If extensions.Exists(fso.GetExtensionName(ObjFile)) Then
    ObjOutFile.WriteLine(ObjFile.Path)
  End If
Next

请不要问你的问题。对你请求帮助的人不太礼貌