中国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