一个小问题，求教！！关于转义符！！！

[luoyong269]

我想写一个简单的脚本文件，达到根据操作系统类型删除指定相应位置文件的功能，其中有一段引用写不出来，求教

strCommand = "cmd /c rmdir /Q /S %userprofile%\Application data\AA" 问题1：此行运行出错，提示找不到路径
strCommand2 = "cmd /c rmdir /Q /S %userprofile%\AppData\Roaming\BB" 问题2：此行运行出错，提示找不到路径
select case true
case instr(1,lcase(all),"5.2")<>0
ws.Run strCommand
case instr(1,lcase(all),"6.1")<>0
ws.Run strCommand2
default 问题3：如何在出错后生生成提示信息Error
msgbox"Error",4096+64,"Info"
end select


两个问题：
问题1：运行时读不出%userprofile%\Application data\AA路径
"cmd /c rmdir /Q /S %userprofile%\Application data\AA"

问题2: case语句如何写出错跳出信息

[daols]

问题1：运行时读不出%userprofile%\Application data\AA路径

%userprofile% 和 Application data 都是长路径名,,带空格的...要用双引号:
"cmd /c rmdir /Q /S ""%userprofile%\Application data\AA"""

问题2: case语句如何写出错跳出信息

不晓得...大概就是两种方法:
If Err.Number <> 0 Then : MsgBox "Error: " & Err.Description : Err.Clear : end if
或
Case Else : msgbox"Error",4096+64,"Info"