求一选择文件的bat - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

@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

第1楼　vkill	发表于 2006-10-10 02:33
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
求一选择文件的bat 木的：运行bat ，弹出选择文件对话眶，我选择多个文件后“打开”，这时我选择的多个文件的路径写入txt 文件，或者附值到变量

第2楼　electronixtar	发表于 2006-10-10 03:59
铂金会员　发帖 2,672　积分 7,493
可以试试vbs

第3楼　vkill	发表于 2006-10-10 04:08
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
Originally posted by electronixtar at 2006-10-10 03:59: 可以试试vbs 问题就是不怎么会vbs

第4楼　electronixtar	发表于 2006-10-10 04:19
铂金会员　发帖 2,672　积分 7,493
老贴的重要性！！！ http://www.cn-dos.net/forum/viewthread.php?tid=20755&fpage=1&highlight= [ Last edited by electronixtar on 2006-10-10 at 04:28 ]

第5楼　lxmxn	发表于 2006-10-10 04:20
版主　发帖 4,938　积分 11,386
@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

第6楼　vkill	发表于 2006-10-10 04:53
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
谢谢楼上的，呵呵，问题解决