0

フォルダ呼び出し Test を全員に許可しようとしています。私がこれを行うと、それは動作します

objShell.ShellExecute "cmd.exe","/k icacls c:\Test /grant everyone:(OI)(CI)M ", "",  

しかし、私がこれを行うと、そうではありません

Set objShell = CreateObject("Shell.Application")
  Dim var
  var = "C:\Test"
  objShell.ShellExecute "cmd.exe", "/k icacls" & var & "/grant everyone:(OI)(CI)M ", "",  "runas", 1

だから私の質問はどうすればそれを機能させることができますか助けてください

4

2 に答える 2

1

スペースを忘れた場合は、次のように変数に含めます

var = " C:\Test "

または、それらを文字列の残りの部分に事前に追加して追加することをお勧めします

objShell.ShellExecute "cmd.exe", "/k icacls " & var & " /grant everyone:(OI)(CI)M ", "",  "runas", 1
于 2013-03-04T22:16:39.057 に答える
0

間隔の問題のように見えます。これを試してもらえますか?

Set objShell = CreateObject("Shell.Application")
  Dim var
  var = "C:\test"
  objShell.ShellExecute "cmd.exe", " /k icacls " & var & " /grant everyone:(OI)(CI)M ", "",  " runas ", 1
于 2013-03-04T22:16:28.537 に答える