[问题求助] （已解决）为什么拖动方式运行vbs无法创建文件？

悬崖之树

Option Explicit
Dim objArgs,i,fso,folder,f,arg,str
Set objArgs = WScript.Arguments
Set fso = CreateObject("scripting.filesystemobject")
For i = 0 To objArgs.Count - 1
	arg = objArgs.Item(i)
	MsgBox arg
	Set folder = fso.GetFolder(arg)
	folder.Delete
	str = str + arg
Next
Set f = fso.OpenTextFile("del.txt",8,True)
f.WriteLine(str)
f.Close
复制代码

我想实现的效果是把不需要的文件夹拖到该vbs上，删除文件夹，然后在del.txt文件里记录删除的文件夹名，问题是这个方法无法生成del.txt文件
用批处理也是相同的问题，求解！

czjt1234

路径不对

相对路径

改成c:\del.txt