如何移动出现“权限被拒绝”弹出窗口的文件答案

【问题标题】：How to move a file for which a "permission denied " popup appears如何移动出现“权限被拒绝”弹出窗口的文件
【发布时间】：2017-11-23 19:25:34
【问题描述】：

我正在尝试使用 VBA 移动一个文件，当从一个路径复制/移动到另一个路径时显示“权限被拒绝”。

注意：该文件位于c:\program files 文件夹中。

使用 FileSystemObject 时：

我无法将其移动到目标文件夹，因为“权限被拒绝”弹出窗口未被覆盖
当我使用 shell 对象时

要使用 CMD 提示移动文件，它不允许我执行移动操作并显示“语法错误”错误

【问题讨论】：

显示您使用的确切代码和您收到的确切错误消息。

标签： vba

【解决方案1】：

您可能想尝试通过这样做来删除文件的“只读”属性：

Dim FileToMove As String 

If Len(Dir$(FileToMove)) > 0 Then

     SetAttr FileToMove, vbNormal 'This will probably allow you to modify the path of the file 
End If

【讨论】：