2017-03-29 49 views

回答

0

youre設法同時設置讀寫允許。 您可以通過FileSystemObject更改文件屬性。

獲取該文件&可以嘗試以下方法。 它將使可讀文件&存在文件夾中。您可以根據您的要求進行修改。

Set fso = CreateObject("Scripting.FileSystemObject") 
Set folder = fso.GetFolder(folderpath) 
Set files = folder.Files 

For Each file In files 
    file.Attributes = file.Attributes Xor ReadOnly 
Next