vbscript 文件夹中的VBS查找文件。 （执行：cscript lookupXML.vbs）

Posted

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了vbscript 文件夹中的VBS查找文件。 （执行：cscript lookupXML.vbs）相关的知识，希望对你有一定的参考价值。

On Error Resume Next

Dim fso, StdOut, folders, files, ext

folders = Array(_
"c:\",_
"c:\users"_
)


ext = ".xml"

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set StdOut = fso.GetStandardStream (1)
  
  StdOut.WriteLine ""
  StdOut.WriteLine ""
  StdOut.WriteLine "** Testing for XMLs:"
  StdOut.WriteLine ""
  StdOut.WriteLine ""

For each sFolder In folders
  
  Set files = fso.GetFolder(sFolder).Files

  For each folderIdx In files

    If InStr(folderIdx.name, ".xml") > 0 Then
      StdOut.WriteLine "    > " + ext + " found in " + sFolder
    End If

  Next
Next

StdOut.WriteLine ""
StdOut.WriteLine ""
StdOut.WriteLine "** Tested all Dirs."
Wscript.Quit

以上是关于vbscript 文件夹中的VBS查找文件。 （执行：cscript lookupXML.vbs）的主要内容，如果未能解决你的问题，请参考以下文章