ошибка 70, специально для этого VBA. Почему происходит ошибка?

Question

Я получаю сообщение об ошибке в этой строке. Ошибка 70: ​​В доступе отказано

wsh.Run """" & FileName & """"

Я не уверен, в чем проблема. Эта программа пытается создать внутри себя скрипт VB для асинхронного запуска.

Private Sub CompleteUploadThread(ByVal fName As String)
Dim strScript As String, FileName As String, wsh As Object
Set wsh = VBA.CreateObject("WScript.Shell")
'---Create VBscript String---
strScript = "WScript.Sleep 1000" & vbCrLf & _
            "Dim wsh" & vbCrLf & _
            "Set wsh = CreateObject(""WScript.Shell"")" & vbCrLf & _
            "wsh.SendKeys """ & fName & """" & vbCrLf & _
            "wsh.SendKeys ""{ENTER}""" & vbCrLf & _
            "Set wsh = Nothing"
'---Save the VBscript String to file---
FileName = wsh.ExpandEnvironmentStrings("C:\Users\x7user\Desktop\Temp") & "\automation.vbs"
Open FileName For Output As #1
Print #1, strScript
Close #1
'---Execute the VBscript file asynchronously---
wsh.Run """" & FileName & """"
Set wsh 

Вот весь фрагмент кода

Answer 1

Нашел проблему. Это были проблемы с правами доступа к папке, в которой он находился. Мне нужно использовать то, к чему у меня есть права администратора.