中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » 论坛回收站 » 新手问个小白问题
作者:
标题: 新手问个小白问题 上一主题 | 下一主题
jqh2004
新手上路





积分 10
发帖 9
注册 2010-10-22
状态 离线
『楼 主』:  新手问个小白问题

代码的作用是找到各个d盘及其子文件夹中的所有的mp3文件。


Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "d:\findfile.bat"

findfile.bat里面的代码如下::
@echo off
dir *.mp3 /a-d /b /s>>result.txt
pause


这是我写的用vbs运行一个bat代码,但是总是提示我找不到文件。郁闷。不知道什么原因。输出结果页不行。为什么??

2010-12-2 09:27
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
Hanyeguxing
银牌会员

正在学习中的菜鸟...


积分 1039
发帖 897
注册 2009-3-1
来自 在地狱中仰望天堂
状态 离线
『第 2 楼』:  

把*.mp3写成d:\*.mp3



批处理之家 http://bbs.bathome.net/forum-5-1.html
2010-12-2 11:26
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
jqh2004
新手上路





积分 10
发帖 9
注册 2010-10-22
状态 离线
『第 3 楼』:  不好意思,我的问题没说明白。

Set fso = CreateObject("scripting.filesystemobject")
Set Shell = CreateObject("Shell.application")
Set aa = Shell.BrowseForFolder(0, "请选择文件夹:", 0)
p=aa.Self.Path
fso.CopyFile "d:\findfile.bat",p

我是想先选择文件夹(运用vbs方法),然后把可以读取子文件夹及其下面所有的文件夹中的mp3文件读取出来,所有我想了这个方法::
吧读取mp3文件的bat文件复制到所选择的文件夹中,然后执行它,因为我不知道怎么向bat中传递vbs的路径返回值,所以只能将bat复制到相应的文件夹中,然后run。

但是貌似run的话,bat中执行的路径就是vbs文件所在的文件夹了。返回的值就不对了。显示找不到文件。不知道我说明白了没有。

因为我主要是想利用vbs的选择文件的对话框功能。bat用的不太好。变量延迟还没学会。

2010-12-2 14:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: