Variable als Pfad für objWMIService.ExecQuery

Variable als Pfad für objWMIService.ExecQuery

ich habe eine Funktion die folgende Abfrage beeinhaltet:

Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='D:\temp_download\helimission_file_renaming\Newpicture'} Where " _
& "ResultClass = CIM_DataFile")

For Each objFile In colFiles

nun möchte ich den pfad als Variable von einem Textfeld übernehmen.
ich habe diverse Variable im Einsatz, ohne Problem, nur bei diese Methode werden die Variablen nicht übernommen ?!?

also z.B.

imagedir1 = Text2.Text

dann irgendetwas wie:

Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name= imagedir1 } Where " _
& "ResultClass = CIM_DataFile")

Please also mark the comments that contributed to the solution of the article

Content-Key: 39151

Url: https://administrator.de/contentid/39151

Printed on: April 19, 2024 at 22:04 o'clock

3 Comments

Latest comment

Moin Braltar,

diese ganze vorbereitete Query ist ja nur ein langer zusammengesetzter String.
Entsprechend musst Du auch den String aus mehreren Teilstrings zusammensetzen:

....
StrQuery="ASSOCIATORS OF {Win32_Directory.Name= '" _   
                  & imageDir1 & "' } Where ResultClass = CIM_DataFile"  

Set colFiles = objWMIService.ExecQuery(StrQuery)
...

[ungetestete Skizze]
Am Ende des 1. und am Anfang des 3. Teilstrings ist jeweils ein einzelnes Hochkomma.

HTH Biber