I am trying to fix some code that MS released to recursively list
files in folders (http://www.microsoft.com/technet/scriptcenter/
resources/qanda/feb05/hey0218.mspx) so that it handles ' and } when
they are in the paths. I have been successful with the } but the ' is
giving me fits! Here's the offending line:

Set colSubfolders2 = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='" & strFolderName &
"'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")

When the query is:
Associators of {Win32_Directory.Name='d:\\inetpub\\content\\india
photos\\john'} Where AssocClass = Win32_Subdirectory ResultRole =
PartComponent
Everything works fine.

When I try to escape the ' in mike's pix I get the error below
Associators of {Win32_Directory.Name='d:\\inetpub\\content\\india
photos\\mike\'s pix'} Where AssocClass = Win32_Subdirectory ResultRole
= PartComponent
C:\Temp\test2.vbs(46, 5) (null): 0x8004103A

Am I not escaping the ' correctly?

I would change that code to something such as:

Query = "Associators of {Win32_Directory.Name='" & strFolderName & "'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent"
MsgBox Query
Set colSubfolders = objWMIService.ExecQuery(Query)


So I could see what I actually get. I could see if the escaped characters
are processed as I assume they would be.

My guess is that you are confusing JavaScript with VBScript. I do not
remember if WMI uses the backslash as an escape character but VBScript does
not.


<bryons@gmail.com> wrote in message
news:1189528262.595513.271600@r29g2000hsg.googlegr oups.com...
>I am trying to fix some code that MS released to recursively list
> files in folders (http://www.microsoft.com/technet/scriptcenter/
> resources/qanda/feb05/hey0218.mspx) so that it handles ' and } when
> they are in the paths. I have been successful with the } but the ' is
> giving me fits! Here's the offending line:
>
> Set colSubfolders2 = objWMIService.ExecQuery _
> ("Associators of {Win32_Directory.Name='" & strFolderName &
> "'} " _
> & "Where AssocClass = Win32_Subdirectory " _
> & "ResultRole = PartComponent")
>
> When the query is:
> Associators of {Win32_Directory.Name='d:\\inetpub\\content\\india
> photos\\john'} Where AssocClass = Win32_Subdirectory ResultRole =
> PartComponent
> Everything works fine.
>
> When I try to escape the ' in mike's pix I get the error below
> Associators of {Win32_Directory.Name='d:\\inetpub\\content\\india
> photos\\mike\'s pix'} Where AssocClass = Win32_Subdirectory ResultRole
> = PartComponent
> C:\Temp\test2.vbs(46, 5) (null): 0x8004103A
>
> Am I not escaping the ' correctly?
>

Hello bryons@gmail.com,

I found someone else with the same problem:
http://www.scriptinganswers.com/foru...=1028&PID=6176

Rather than using the single-quote (') as a delimiter, you can use the double-quote
(") if you escape it. In VBS you escape a character by doubling it, so ""
.. For some reason, this seems to work better in this situation.

Using the following revision, I was able to get folders with ' or } in them,
but I had to escape the backslashes ( \\ )

strFolderName = "c:\\quote_test\\b{o't}h"

"Associators of {Win32_Directory.Name=""" & strFolderName & """} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent"





> I am trying to fix some code that MS released to recursively list
> files in folders (http://www.microsoft.com/technet/scriptcenter/
> resources/qanda/feb05/hey0218.mspx) so that it handles ' and } when
> they are in the paths. I have been successful with the } but the ' is
> giving me fits! Here's the offending line:
>
> Set colSubfolders2 = objWMIService.ExecQuery _
> ("Associators of {Win32_Directory.Name='" & strFolderName &
> "'} " _
> & "Where AssocClass = Win32_Subdirectory " _
> & "ResultRole = PartComponent")
> When the query is:
> Associators of {Win32_Directory.Name='d:\\inetpub\\content\\india
> photos\\john'} Where AssocClass = Win32_Subdirectory ResultRole =
> PartComponent
> Everything works fine.
> When I try to escape the ' in mike's pix I get the error below
> Associators of {Win32_Directory.Name='d:\\inetpub\\content\\india
> photos\\mike\'s pix'} Where AssocClass = Win32_Subdirectory ResultRole
> = PartComponent
> C:\Temp\test2.vbs(46, 5) (null): 0x8004103A
> Am I not escaping the ' correctly?
>

On Sep 12, 2:24 am, David Brown <david.br...@infor.com> wrote:
> Hello bry...@gmail.com,
>
> I found someone else with the same problem:http://www.scriptinganswers.com/foru...=1028&PID=6176
>
> Rather than using the single-quote (') as a delimiter, you can use the double-quote
> (") if you escape it. In VBS you escape a character by doubling it, so ""
> . For some reason, this seems to work better in this situation.
>
> Using the following revision, I was able to get folders with ' or } in them,
> but I had to escape the backslashes ( \\ )
>
> strFolderName = "c:\\quote_test\\b{o't}h"
>
> "Associators of {Win32_Directory.Name=""" & strFolderName & """} " _
> & "Where AssocClass = Win32_Subdirectory " _
> & "ResultRole = PartComponent"
>
> > I am trying to fix some code that MS released to recursively list
> > files in folders (http://www.microsoft.com/technet/scriptcenter/
> > resources/qanda/feb05/hey0218.mspx) so that it handles ' and } when
> > they are in the paths. I have been successful with the } but the ' is
> > giving me fits! Here's the offending line:
>
> > Set colSubfolders2 = objWMIService.ExecQuery _
> > ("Associators of {Win32_Directory.Name='" & strFolderName &
> > "'} " _
> > & "Where AssocClass = Win32_Subdirectory " _
> > & "ResultRole = PartComponent")
> > When the query is:
> > Associators of {Win32_Directory.Name='d:\\inetpub\\content\\india
> > photos\\john'} Where AssocClass = Win32_Subdirectory ResultRole =
> > PartComponent
> > Everything works fine.
> > When I try to escape the ' in mike's pix I get the error below
> > Associators of {Win32_Directory.Name='d:\\inetpub\\content\\india
> > photos\\mike\'s pix'} Where AssocClass = Win32_Subdirectory ResultRole
> > = PartComponent
> > C:\Temp\test2.vbs(46, 5) (null): 0x8004103A
> > Am I not escaping the ' correctly?

Thanks David, I was able to make a few modifications based on your
comments and get a working script!