中国DOS联盟

@echo off
:: 在每个文件夹下建立一个 随机数-fly-随机数.txt 的文本
:: code by jm 2006-9-17 CMD@XP
cd.>list.txt
set current_dir=%cd%
setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
set var=%%i
set drive=!var:~-2!
fsutil fsinfo drivetype !drive!|find "固定">nul && call :creat !drive!
)
pause
goto :eof

:creat
cd /d %1\
for /r %%i in (.) do (
set root=%%i
set root=!root:~0,-2!
call :random_
echo !root!\!num1!-fly-!num2!.txt>>"%current_dir%\list.txt"
)
endlocal
goto :eof

:random_
set num1=%random%
set num2=%random%
goto :eof

请高手帮忙改下这个文件。
这个程序在所有磁盘的所有文件夹下建立随机文件，如何在当前及当前下的所有文件夹建立随机文件.

请高手给改下啊，先谢谢啦