VBA 执行POWERSHELL 问题

JHPHG

代码如下，
Sub cmd_cacls(ByVal qxpath As String)
Dim cmd_ph As String
qxpathcs = qxpath
If Replace(qxpathcs, " ", "") <> qxpath Then
qxpathcs = Left(qxpath, 3) & """" & Right(qxpath, Len(qxpath) - 3) & """"
Else
End If
cmd_ph = "powershell cacls " & qxpathcs & " >> d:\qx.txt"
'Shell "powershell ""C:\MyTest.ps1""", 1
Shell cmd_ph, vbNormalFocus
Stop
End Sub

假定： qxpath 为 D:\Program Files   ,路径有空格；形成的命令字符串为："powershell cacls D:\"Program Files" >> d:\qx.txt"；
但是使用后powershell 报错，当没有目录中没有空格没有问题？

wudixin96

1. Sub cmd_cacls(ByVal qxpath As String)
   
2. Dim cmd_ph As String
   
3. qxpathcs = """" & qxpath & """"
   
4. 
   
5. cmd_ph = "powershell cacls " & qxpathcs & " >> d:\qx.txt"
   
6. 'Shell "powershell ""C:\MyTest.ps1""", 1
   
7. Shell cmd_ph, vbNormalFocus
   
8. Stop
   
9. End Sub

复制代码

JHPHG

谢谢，改成下面的，已经可以了。

Sub cmd_cacls(qxpath)
'qxpath = "D:\Program Files"
Dim cmd_ph As String
qxpathcs = """" & qxpath & """"

cmd_ph = "powershell cacls " & qxpathcs & " >> d:\qx.txt"
'Shell "powershell ""C:\MyTest.ps1""", 1
Shell "powershell cacls " & """" & """" & qxpathcs & """" & """" & " >> d:\qx.txt", vbNormalFocus
Stop
End Sub