中国DOS联盟

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

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

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

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

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

论坛跳转: