Here is a similar approach you could try as well since the User Shell Folders are really in control of the folder names and not the Shell Folders.



Break On
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
 
Dim $Folder
$Folder = ExpandEnvironmentVars(ReadValue('HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders','Personal'))+'\XXX_Restricted'
If GetFileAttr($Folder) & 16
  'Folder found.' ?
  Exit 80
Else
  'Folder not found. Now creating.' ?
  MD $FOLDER
  'Folder creation error: ' + @ERROR + ' - ' + @SERROR ?
  ; use SHELL() to call cipher on $FOLDER ... 
EndIf
Exit 0