raymai97

回复 8# defanive


    defanive你是用xp吧？commondialog我不是没有试过，在win7下不行啊~

defanive

6L的代码基于清除批处理自身最后一行的研究成果，将批处理自己作为临时文件使用

canyuexiaolang

win2003.....有点慢...该机子事？

defanive

@echo off
for /f %%a in ('^(type "%~f0"^&echo;x^)^|find /c /v ""') do set "nLine=%%a"
setlocal enabledelayedexpansion
(for /l %%a in (2,1,%nLine%) do set /p Line_%%a=&set "Exec=!Exec!&echo;^!Line_%%a^!")<"%~f0"
:loop
>"%~f0" (type nul%Exec%)
mshta vbscript:execute("set oDlg=CreateObject(""MSComDlg.CommonDialog""):oDlg.MaxFileSize=260:oDlg.Flags=4:oDlg.Action=1:CreateObject(""Scripting.FileSystemObject"").OpenTextFile(""%~f0"",8).Write(""_""&oDlg.FileName):self.close")
<"%~f0" (for /l %%a in (1,1,%nLine%) do set /p Data=)
echo File Path: %Data:~1%
pause
goto :loop
::Data
复制代码

稍微写了一段，批处理自身应该不算临时文件吧，

garyng

回复 4# raymai97


    哦哦～
我对这东不解啊。。。

raymai97

回复 3# garyng


    hta来的，改成html就不能写入注册表了

garyng

还是一句：RayMai究竟是RayMai啊！

收藏了。。

是HTML+BAT吧？

920168

特来支持！！