Question

我们要实现的目标：从XML文件中读取目录路径并执行复制和粘贴操作。如果我们删除最后一行，则该脚本有效：fso.CopyFolder Directory, t。但是当我们保持这条线时，它失败了。该脚本能够从XML文件中读取值。

错误发生在第19行

：对于objRoot.childNodes中的每个孩子，说“需要对象”

Option Explicit
set fso = CreateObject("Scripting.FileSystemObject")
dim fso, objDoc, objRoot, child, s, t, WshShell, filesys, ObjShell,objDox

Set objDoc = CreateObject("MSXML.DOMDocument")
objDoc.Async = False
objDoc.Load "location.xml"
objDoc.validateOnParse=False
Set objRoot = objDoc.documentElement
Dim CurrentDirectory, Directory
    CurrentDirectory = fso.GetAbsolutePathName(".")
For Each child in objRoot.childNodes
   s = child.getAttribute("Source")
   t = child.getAttribute("Destination")
   Directory = CurrentDirectory & "\" & s
Next

fso.CopyFolder Directory, t

Answer 1

尝试更改

fso.CopyFolder Directory, t

到

fso.CopyFolder Directory, t & "\"

因为在复制或移动到文件夹时，您必须使用＆＃34; \＆＃34;

结束目标文件夹

无法使用从XML文件

1 个答案: