Question

我创建了一个Access DB，我需要在路径

中创建一个文件夹

C:\Program Files

我试过

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

创建我的文件夹“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

要在程序文件中创建文件夹，需要管理员权限。将您的应用构建到EXE，右键单击它并单击以管理员身份运行。

这应解决问题。

编辑：这可能会对您有所帮助：https://www.itsupportguides.com/windows-7/windows-7-run-vbs-script-as-elevated-user-uac/

在Program Files文件夹中创建新文件夹

1 个答案: