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


  Quote:
Originally posted by electronixtar at 2006-10-10 03:59:
可以试试vbs

问题就是不怎么会vbs
作者: electronixtar     时间: 2006-10-10 04:19
老贴的重要性!!!

http://www.cn-dos.net/forum/view ... ge=1&highlight=

[ Last edited by electronixtar on 2006-10-10 at 04:28 ]
作者: lxmxn     时间: 2006-10-10 04:20
CODE:  [Copy to clipboard]
@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
谢谢楼上的,呵呵,问题解决




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5