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

Question

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

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

1. 使用FileSystemObject时：

   我无法将其移至目标文件夹，因为“权限被拒绝”弹出窗口未被覆盖

2. 当我使用shell对象

   时

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

Answer 1

您可能想尝试删除＆＃34;只读＆＃34;通过这样做来归属于文件：

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