中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-02 06:35
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 求一选择文件的bat 查看 1,147 回复 5
楼 主 求一选择文件的bat 发表于 2006-10-10 02:33 ·  中国 甘肃 兰州 电信
金牌会员
★★★★
积分 4,103
发帖 1,744
注册 2006-01-20 13:00
20年会员
UID 49241
性别 男
来自 甘肃.临泽
状态 离线
木的:
运行bat ,弹出选择文件对话眶,我选择多个文件后“打开”,这时我选择的多个文件的路径写入txt 文件,或者附值到变量
2 发表于 2006-10-10 03:59 ·  中国 四川 成都 教育网
铂金会员
★★★★
积分 7,493
发帖 2,672
注册 2005-09-02 00:00
20年会员
UID 42173
性别 男
状态 离线
可以试试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'>"
3 发表于 2006-10-10 04:08 ·  中国 甘肃 兰州 电信
金牌会员
★★★★
积分 4,103
发帖 1,744
注册 2006-01-20 13:00
20年会员
UID 49241
性别 男
来自 甘肃.临泽
状态 离线
Originally posted by electronixtar at 2006-10-10 03:59:
可以试试vbs

问题就是不怎么会vbs
4 发表于 2006-10-10 04:19 ·  中国 四川 成都 教育网
铂金会员
★★★★
积分 7,493
发帖 2,672
注册 2005-09-02 00:00
20年会员
UID 42173
性别 男
状态 离线
老贴的重要性!!!

http://www.cn-dos.net/forum/viewthread.php?tid=20755&fpage=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'>"
5 发表于 2006-10-10 04:20 ·  中国 湖北 武汉 电信
版主
★★★★★
积分 11,386
发帖 4,938
注册 2006-07-23 17:10
20年会员
UID 59080
状态 离线


@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 发表于 2006-10-10 04:53 ·  中国 甘肃 兰州 电信
金牌会员
★★★★
积分 4,103
发帖 1,744
注册 2006-01-20 13:00
20年会员
UID 49241
性别 男
来自 甘肃.临泽
状态 离线
谢谢楼上的,呵呵,问题解决
论坛跳转: