[英]VBS and XPATH to process multiple XML files
該腳本通過Windows子文件夾查找XML文件。 循環應加載XML文件並執行操作,然后傳遞到下一個XML文件,依此類推。
這條線沒有按照我希望的方式進行解釋:
If oXML.load(objFile.name) Then
WScript.Echo "XML file loaded"
編寫此代碼的正確方法是什么?
這是完整的腳本。
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\test_env"
set oXML = CreateObject("Msxml2.DOMDocument")
oXML.async = "false"
Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
Wscript.Echo
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
If UCase(objFSO.GetExtensionName(objFile.name)) = "XML" Then
Wscript.Echo Subfolder.Path
Wscript.Echo objFile.Name
' LOAD THE XML FILE
If oXML.load(objFile.name) Then
WScript.Echo "XML loaded"
Else WScript.Echo "XML not loaded"
End If
End If
Next
ShowSubFolders Subfolder
Next
End Sub
提前致謝。
.load方法需要.xml文件的完整路徑,因此請進行更改
If oXML.load(objFile.name) Then
至
If oXML.load(objFile.Path) Then
如果發生故障, .parseError.reason
查看.parseError.reason
。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.