宏观问题

Question

我正在尝试在VB（Excel宏）中运行下面提到的代码，但我坚持使用  在运行时弹出“自动化错误”的错误。

strComputer = "."

设置objNetwork = CreateObject（“Wscript.Network”） 设置fs = CreateObject（“Scripting.FileSystemObject”）

设置objWMIService = GetObject（“winmgmts：\”＆amp; strComputer＆amp;“\ root \ cimv2”） 设置colFiles = objWMIService.ExecQuery _     （“ASSOCIATORS OF {Win32_Directory.Name ='U：\'}其中”_         ＆安培; “ResultClass = CIM_DataFile”）

对于每个objFile在colFiles中        如果objFile.FileName =“ml_ *”那么

       destinationPROD = "X:\ABC\" & objFile.FileName & "." & objFile.Extension
       objFile.Copy(destinationPROD)

       objFile.delete

   else

       destinationPROD = "X:\PQR\" & objFile.FileName & "." & objFile.Extension
       objFile.Copy(destinationPROD)


       objFile.delete

   End If

下一步

提前致谢。请帮帮我

Answer 1

在“winmgmts：\”之后你需要另一个斜杠：）

应该是：

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Answer 2

这可能是权利问题。使用本地磁盘测试它。确保存在所有必需的目录。