在Program Files文件夾

Question

我做一個Access數據庫中創建新的文件夾，我需要創建一個文件夾，它的路徑

C:\Program Files 

我試圖

MkDir Path:="C:\Program Files\My Pro" 

創建我的文件夾「我的親」

我收到Run-time error '75': Path/File access

我想這個代碼

Dim objShell 
Dim objFolder 

Set objShell = CreateObject("shell.application") 
Set objFolder = objShell.NameSpace("C:\Program Files") 

If (Not objFolder Is Nothing) Then 
    objFolder.NewFolder ("My Pro") 
End If 

Set objFolder = Nothing 
Set objShell = Nothing 

和驗證碼

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFolder = objFSO.CreateFolder("C:\Program Files\My Pro") 

我收到Run-time error '70': Permission denied

我怎樣才能與Access VBA Program Files文件夾創建一個新的文件夾？

Answer 1

要在Program Files中創建文件夾，您需要管理員權限。將您的應用構建到EXE上，右鍵單擊它並單擊以管理員身份運行。

這應該可以解決這個問題。

編輯：這可能會幫助你：https://www.itsupportguides.com/windows-7/windows-7-run-vbs-script-as-elevated-user-uac/