我想声明一个常量，值为指向不同路径的文件或文件夹并赋予TA们相同权限和属性

凌菡

我想声明一个常量，常量值为指向不同路径的文件或文件夹并赋予TA们相同权限和属性

其实，就是想做一些文件或者文夹的假体，即0字节文件，然后，赋予+RSH权限，并且，EVERYONE只读或者拒绝也行。

例如：

Dim $FilesPath = "a"   这里的A我想代表路径：c:\test和d:\a.dll和E:\good.mp3等等这样的多个路径

当$FilesPath值里所示的路径文件存在里，去除其所有属性，赋予everyone完全权权限，然后，删除它们，接着

给这些所有文件和文件夹+RSH属性并且赋予他们everyone只读权限或者完全拒绝权限


我尝试过，可没成功，各位老师，精炼点儿的代码要如何写？请指教！感激不尽！

凌菡

local $FilesPath[3] = ["C:\c.txt", "D:\d.mp3", "E:\here3"]

For $i = 0 To UBound($FilesPath) - 1
    If FileExists($FilesPath[$i]) Then
        MsgBox(4096, $FilesPath[$i], "Exists")
        FileSetAttrib($FilesPath,"-RSH")
        RunWait(@ComSpec & ' /c ' & 'echo y|cacls.exe ' & $FilesPath[$i] & '/P everyone:F','',@SW_HIDE)
        DirRemove($FilesPath)

    Else
        MsgBox(4096, $FilesPath[$i], "Does NOT exists")
        DirCreate($FilesPath)
        FileSetAttrib($FilesPath, "+RSH",1)
        RunWait(@ComSpec & ' /c ' & 'echo y|cacls.exe ' & $FilesPath[$i] & ' /P everyone:R','',@SW_HIDE)
                
    EndIf

Next

我是想建立一个删除不掉的文件，貌似这样写，更接近要求了，可是，还是能删除掉的啊？接着要怎么写？