CreateTextFile错误

Question

在将另一个文件或文件夹图标拖到脚本图标上后尝试运行此VBScript时，我收到“权限被拒绝”错误。

我已尝试在两台Windows 10计算机上运行它，如果我使用参数运行它，如果文件创建行有对象，否则脚本正常完成。

有什么想法吗？

Option Explicit

Dim objFSO
Dim objShell

Dim fldTest
Dim fileTest
Dim strPath
Dim txsOutput

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set txsOutput = objFSO.CreateTextFile("Test.txt")

For Each strPath In WScript.Arguments
    fldTest = objFSO.GetFolder(strPath)

    For Each fleTest In fldTest.Files
        ...
    Next
Next

txsOutput.Close()

Set txsOutput = Nothing
Set objFSO = Nothing

WScript.Quit