Makro-Problem

Question

Ich versuche, den unten genannten Code in VB (Excel-Makro) auszuführen, aber ich bin stecken mit einem Fehler, der beim Laufen mit der Aufschrift "Automation Error" erscheint.

strComputer = "." 

Set objNetwork = Create ("Wscript.Network") Set fs = Createobject ("Scripting.FileSystemObject")

Set objWMIService = GetObject ("winmgmts: \" & strComputer & „\ root \ cimv2 ") Set colFiles = objWMIService.ExecQuery _ (" ASSOCIATORS OF {Win32_Directory.Name = 'U: \'} Wo "_ & "result = CIM_DataFile")

Für Eac h objFile In colFiles wenn objFile.FileName = "ml_ *" Dann

 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 

Weiter

Dank in advance.Please helfen mir

Answer 1

Sie brauchen nur einen weiteren Schrägstrich nach "winmgmts: \" :)

es sein sollte:

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

Answer 2

Es könnte ein Rechtsproblem sein. Testen Sie es mit einer lokalen Festplatte. Stellen Sie sicher, dass alle erforderlichen Verzeichnisse vorhanden sind.