新手问个小白问题 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

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用的不太好。变量延迟还没学会。

第1楼　jqh2004	发表于 2010-12-02 09:27
新手上路　发帖 9　积分 10
新手问个小白问题代码的作用是找到各个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代码，但是总是提示我找不到文件。郁闷。不知道什么原因。输出结果页不行。为什么？？

第2楼　Hanyeguxing	发表于 2010-12-02 11:26
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
把.mp3写成d:\.mp3

第3楼　jqh2004	发表于 2010-12-02 14:35
新手上路　发帖 9　积分 10
不好意思，我的问题没说明白。 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用的不太好。变量延迟还没学会。