Không đổi tên file được trong ổ đĩa C (lỗi Permission Denied)

Nơi trao đổi về VBA (Visual Basic for Application), lập trình cho ứng dụng Microsoft Office, AutoCAD...

Điều hành viên: tungblt

Đăng trả lời
magicdl96
Thành viên chính thức
Thành viên chính thức
Bài viết: 27
Ngày tham gia: Thứ 4 08/01/2020 9:44 am

Không đổi tên file được trong ổ đĩa C (lỗi Permission Denied)

Gửi bài by magicdl96 »

Em chào mọi người,

Em có đóng gói 1 Add-Ins bằng Inno Setup khi cài đặt thì add-ins này sẽ vô ổ đĩa C (em ví dụ là: C:\Program Files (x86)\ToolsExcel\abc.xlam)
Em có sử dụng 1 đoạn code để gỡ add-ins, sau đó đổi tên add-ins đó để thay thế file khác vào nhưng khi đổi tên thì em bị lỗi Permission Denied. Em kiểm tra trong thư mục thì khi đổi tên cần quyền admin.

Nếu em chọn ổ đĩa khác và cài đặt thì khi đổi tên không xảy ra lỗi nhưng mà ổ đĩa C thì không được. Em đã thử tắt UAC nhưng vẫn không được. Mọi người xem giúp em với ạ.

Em cảm ơn.
  1. Sub test()
  2.     Dim FSO As Object
  3.     Dim My_Add_Ins As Excel.AddIn, File_Add_Ins As String
  4.  
  5.     Set FSO = CreateObject("scripting.filesystemobject")
  6.  
  7.     File_Add_Ins = "C\Program Files (x86)\ToolsExcel\abc.xlam"
  8.     Set My_Add_Ins = Application.AddIns.Add(Filename=File_Add_Ins)
  9.     My_Add_Ins.Installed = False DoEvents
  10.  
  11.     If FSO.FileExists(File_Add_Ins) Then
  12.         FSO.MoveFile File_Add_Ins, File_Add_Ins & ".bat"
  13.     End If
  14. End Sub
Đăng trả lời

Quay về