Permissions VBScript可以创建文本文件，但可以'；是否无法删除文件（权限被拒绝）？

我创建了一个.vbs文件（可以：创建文本文件->打开notepad.exe->删除上面的文件），如下所示：

' Create a new file
Dim objFS, objFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("D:\Folder\Textfile.txt")
objFile.WriteLine ("sample text")

' Run a program and wait
WScript.CreateObject("WScript.Shell").Run "notepad.exe", 1, true

' Delete file
objFS.Deletefile("D:\Folder\Textfile.txt")

但当我运行它时，在关闭记事本窗口后，它会显示错误消息：

Line: 10
Char: 1
Error: Permission denied
Code: 800A0046
Source: Microsoft VBScript runtime error

---

我不知道为什么这个.vbs不能删除文本文件？谢谢你的帮助

您必须先关闭脚本中的文件句柄，然后才能尝试删除它

' Create a new file
Dim objFS, objFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("D:\Folder\Textfile.txt")

'write to the file
objFile.WriteLine ("sample text")

'close the file
objFile.close
set objFile = Nothing

' open the file in notepad, and wait
WScript.CreateObject("WScript.Shell").Run "notepad.exe D:\Folder\Textfile.txt", 1, true

' Delete file
objFS.Deletefile("D:\Folder\Textfile.txt")

set objFS = Nothing

---

您必须先关闭脚本中的文件句柄，然后才能尝试删除它

' Create a new file
Dim objFS, objFile
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFile = objFS.CreateTextFile("D:\Folder\Textfile.txt")

'write to the file
objFile.WriteLine ("sample text")

'close the file
objFile.close
set objFile = Nothing

' open the file in notepad, and wait
WScript.CreateObject("WScript.Shell").Run "notepad.exe D:\Folder\Textfile.txt", 1, true

' Delete file
objFS.Deletefile("D:\Folder\Textfile.txt")

set objFS = Nothing

---

那很有效！非常感谢，顺便说一句，你能告诉我在哪里学习上面的脚本和一些关于VBS的有用的东西吗？你可以检查这个：，也可以检查MSDN中的其他部分，它们工作得非常好！非常感谢，顺便说一句，你能告诉我在哪里学习上面的脚本和一些关于VBS的有用的东西吗？你可以检查这个：，也可以检查msdn中的其他部分