How can i avoid Errors by folders with spaces in the script

Question

Hello!
I have written (or better to say gathered) a script which should fix a problem in a network. Let me explain first what it should do.
Let's say we have a folder named Test with a lot of subfolders, one for each user of the network, which also contain many, many subfolders. The problem is that some user accidentally Drag and Drop subfolder into other subfolder. (E.g. D:\test\userA
is now in D:\test\UserB\UserA). And the next time User A wants to open his folder: It's gone. I really hope you can follow me because i am a little confused by myself right now. :)
 And here is the thing, a VB Script with Icacls that change the User-Authorization in the first Level of Subfolders, so that they can't Drag and Drop anymore, though they have Full access to the content of the folder. So far my script works as far as
there a no spaces in the Foldername.
D:\test\UserA works.
D:\test\User A doesn't.
Here is my Script so far (i am german, so pls don't bother on the german names):
Dim objFSO, strLogFile, objLogFile
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
strLogFile = "D:\dir_log.txt" 'Log File to show what was changes
If objFSO.FileExists(strLogFile) Then
   set objLogFile = objFSO.OpenTextFile(strLogFile, ForWriting, true)
Else
   objFSO.CreateTextFile(strLogFile)
   set objLogFile = objFSO.OpenTextFile(strLogFile, ForWriting, true)
End If
read_two_subfolders "D:\test",objLogFile, 0 '
objLogFile.close
function read_two_subfolders(strFolderPath, objLogFile, intCounter)
On error Resume Next
Dim objUnterordner, objFolder
if intCounter < 1 then 'Number of Subfolderlevel which should be changed
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolderPath)
For each objUnterordner In objFolder.SubFolders
  objLogFile.WriteLine objunterordner.path
  read_two_subfolders objunterordner.path ,objLogFile, intCounter + 1
 Dim strFolder, strUser, strDomain
strFolder = objunterordner.path
strUser = "Testuser" 'User or Group
strDomain = "Testdomain" 'Domain (should be left empty at local domains)
SetPermissions    
SetPermissions()   
 Dim intRunError, objShell, objFSOO    
 Set objShell = CreateObject("Wscript.Shell")   
 Set objFSOO = CreateObject("Scripting.FileSystemObject")  
 If objFSOO.FolderExists(strFolder) Then       
  intRunError = objShell.Run("icacls " & strFolder & " /inheritance:r /grant:r " & strDomain &"\" & strUser & ":RX ", 2, True)                
  If intRunError <> 0 Then           
   Wscript.Echo "Error assigning permissions for user" & strUser & " to folder" & strFolder       
  End If   
 Else       
  Wscript.Echo "error: folder" & strFolder & " does not exist."   
 End If
Next
End if
End Function

Answer 1

Hi LW,
while I don't always see eye-to-eye with JRV, I really have to agree with him on this: Trying to make this work would probably be an act of futility. I highly recommend trying to learn powershell and do it there. Here are some links to commands that will
get you started on your problem:
Get-Help
Get-Member
Get-ChildItem
Get-Acl
New-AccessRule
Set-Acl
For producing something to order, you're best recourse is indeed a consultant however. I'd say this is more of a fish problem: Give a man to fish or teach him how to fish, so I highly recommend learning the skills for yourself. Your own skills will never
abandon you.
Cheers and good luck,
Fred
There's no place like 127.0.0.1