Board logo

标题: 求一选择文件的bat [打印本页]

作者: vkill     时间: 2006-10-10 02:33    标题: 求一选择文件的bat
木的:
运行bat ,弹出选择文件对话眶,我选择多个文件后“打开”,这时我选择的多个文件的路径写入txt 文件,或者附值到变量

作者: electronixtar     时间: 2006-10-10 03:59
可以试试vbs

作者: vkill     时间: 2006-10-10 04:08
Originally posted by electronixtar at 2006-10-10 03:59:
可以试试vbs

问题就是不怎么会vbs

作者: electronixtar     时间: 2006-10-10 04:19
老贴的重要性!!!

http://www.cn-dos.net/forum/viewthread.php?tid=20755&fpage=1&highlight=

Last edited by electronixtar on 2006-10-10 at 04:28 ]

作者: lxmxn     时间: 2006-10-10 04:20


@echo off
echo Set a=CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\lxmxn.txt",8,true)>>lxm.vbs
echo Set objDialog = CreateObject("UserAccounts.CommonDialog")>>lxm.vbs
echo objDialog.Filter = "VBScript Scripts|*.vbs|文本文件|*.txt|视频文件|*.wmv|all files|*.*">>lxm.vbs
echo objDialog.Flags=^&H0200>>lxm.vbs
echo objDialog.FilterIndex = 1 >>lxm.vbs
echo objDialog.InitialDir = "c:\">>lxm.vbs
echo intResult = objDialog.ShowOpen>>lxm.vbs
echo If intResult = 0 Then>>lxm.vbs
echo Wscript.Quit>>lxm.vbs
echo Else>>lxm.vbs
echo arrFiles = Split(objDialog.FileName, " ")>>lxm.vbs
echo For i = 1 to Ubound(arrFiles)>>lxm.vbs
echo strFile = arrFiles(0) ^& arrFiles(i)>>lxm.vbs
echo a.writeline(strfile)>>lxm.vbs
echo Next>>lxm.vbs
echo End If>>lxm.vbs
echo Wscript.Echo "你选择的文件已经成功保存到你指定的文件中。">>lxm.vbs
cscript.exe lxm.vbs
del lxm.vbs>nul
echo 你选择的文件已经保存到c:\lxmxn.txt
pause>nul


作者: vkill     时间: 2006-10-10 04:53
谢谢楼上的,呵呵,问题解决