（已解决）为什么拖动方式运行vbs无法创建文件？

悬崖之树

1. Option Explicit
   
2. Dim objArgs,i,fso,folder,f,arg,str
   
3. Set objArgs = WScript.Arguments
   
4. Set fso = CreateObject("scripting.filesystemobject")
   
5. For i = 0 To objArgs.Count - 1
   
6.         arg = objArgs.Item(i)
   
7.         MsgBox arg
   
8.         Set folder = fso.GetFolder(arg)
   
9.         folder.Delete
   
10.         str = str + arg
    
11. Next
    
12. Set f = fso.OpenTextFile("del.txt",8,True)
    
13. f.WriteLine(str)
    
14. f.Close

复制代码

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

czjt1234

路径不对

相对路径

改成c:\del.txt