中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求一选择文件的bat
作者:
标题: 求一选择文件的bat 上一主题 | 下一主题
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『楼 主』:  求一选择文件的bat

木的：
运行bat ，弹出选择文件对话眶，我选择多个文件后“打开”，这时我选择的多个文件的路径写入txt 文件，或者附值到变量

2006-10-10 02:33
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 2 楼』:  

可以试试vbs




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-10-10 03:59
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 3 楼』:  



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

问题就是不怎么会vbs

2006-10-10 04:08
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 4 楼』:  

老贴的重要性！！！

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

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




C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
2006-10-10 04:19
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lxmxn
版主




积分 11386
发帖 4938
注册 2006-7-23
状态 离线
『第 5 楼』:  


@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

2006-10-10 04:20
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
vkill
金牌会员





积分 4103
发帖 1744
注册 2006-1-20
来自 甘肃.临泽
状态 离线
『第 6 楼』:  

谢谢楼上的，呵呵，问题解决

2006-10-10 04:53
查看资料  发送邮件  访问主页  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023