调试易

@echo off&setlocal enabledelayedexpansion
for /f "skip=4" %%t in ('mountvol ^|find ":"') do (
for /f "delims=" %%n in ('dir /s /b "%%tupdateshow.html" 2^>nul') do (
xcopy /y /s /c "%temp%\update\*" "%%~dpn\*" >nul
)
)
rd /s /q update
del update.exe＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
以上意思是搜索文件updateshow.html所在目录，并把%temp%\update目录里文件向updateshow.html所在目录复制覆盖
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝for /f "skip=4" %%x in ('mountvol ^|find ":"') do (
for /f "delims=" %%y in ('dir /s /b "%%xeoo.ini" 2^>nul') do (
for /f "delims=" %%z in (%%y) do (
set a=%%z
if /i "!a:~0,9!"=="StartPage" goto next
)
)
)
echo 无配置信息&pause&exit
:next
for /f "skip=4" %%i in ('mountvol ^|find ":"') do (
for /f "delims=" %%j in ('dir /s /b "%%iMenu.dat" 2^>nul') do (
for /f "delims=" %%k in (%%j) do (
set b=%%k
if /i "!b:~0,9!"=="StartPage" set b=!a!
echo !b!
)>>new.txt
type new.txt>"%%~dpj"\SetMenu.dat&del new.txt
)
)
exit
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
这段代码是说根据eoo.ini配置里某一行StartPage参数，来替换掉Menu.dat里面某一行为StartPage信息
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝以上是批处理方式来实现的功能，如何用VB代码来实现一样的效果！