标题: [问题求助] （已解决）为什么拖动方式运行vbs无法创建文件？ [打印本页]
作者: 悬崖之树 时间: 2013-5-8 19:46 标题: （已解决）为什么拖动方式运行vbs无法创建文件？
本帖最后由 悬崖之树 于 2013-5-8 21:24 编辑
- 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 时间: 2013-5-8 20:34
路径不对
相对路径
改成c:\del.txt
| 欢迎光临 批处理之家 (http://www.bathome.net/) |
Powered by Discuz! 7.2 |