VB文件权限设置问题

Question

之前见过一个shell调用cacls.exe的,但是没能成功,运行后只一闪而过,没效果.
哪位大哥知道这样类似语句可以实现这功能呢?
API?

Answer 1

Private Sub Command1_Click()
  Shell "c:\windows\system32\calc.exe", vbNormalFocus
  
End Sub

Answer 2

加个变量呢?例如我另一个语句取得了文件的名字是变量x,那应该怎么做呢?Dim dire As String
x = Text1.Text & Text2.Text & " /t /e /p everyone:f"
Shell "cmd /c cacls.exe" & x &, vbHide其中TEXT1.TEXT是路径,TEXT2.TEXT 是文件名
这样是没反应的

Answer 3

加个变量呢?例如我另一个语句取得了文件的名字是变量x,那应该怎么做呢? Dim dire As String 
x = Text1.Text & Text2.Text & " /t /e /p everyone:f" 
Shell "cmd /c cacls.exe" & x &, vbHide '你这句写得有问题，少了一个空格，多了一个&
其中TEXT1.TEXT是路径,TEXT2.TEXT 是文件名 
这样是没反应的
-----------------------------------------------------------------------------
加个变量也没问题：
复制以下代码试试：Dim x As String
x = Text1.Text & Text2.Text & " /t /e /p everyone:f"
Shell "cmd /c cacls.exe " & x, vbHide------------------------------------------------------------------------------
假设text1.text="c:\temp\" 
    text2.text="11.txt"
执行以上程序后，everyone可以获得11.txt的完全控制。