比较两个文件夹下的同名文件的大小 - 中国DOS联盟论坛

本人想比较两个文件夹下的同名文件的大小,用FC没办法实现..希望各位帮忙下
比如说文件夹123里面包含了1.TXT,2.TXT,
文件夹456下也包含了1.TXT,2.TXT,
比较两个文件夹下的1.TXT,2.TXT大小,
如果123里面的1.TXT字节大于456下的1.TXT
则复制123里面的1.TXT到名为789的文件夹里

@echo off
for /f %%a in ('dir /b /s d:\123') do (
for /f %%b in ('dir /b /s d:\456') do (
if %%~za GTR %%~zb copy /y %%a d:\789
else echo 相同 & GOTO EXIT
))
pause

这个代码没用....谁帮忙写.....支持HAT兄的扣分...偶晓得错了!

─────────────────　版务记录　─────────────────
执行：HAT
操作：在帖子标题中增加搜索关键字
说明：原标题"请教比较文件的问题"不利于论坛搜索
处罚：扣除2点积分
提示：建议阅读以下帖子
{1415}提问的智慧
{7326}论坛新手必读，所有人的基本行为准则
{22703}请不要做浮躁的人
{32667}那些连标题都写不清楚的人们啊，你们醒醒吧
{32825}本版严厉整顿烂帖
─────────────────　版务记录　─────────────────

[ Last edited by HAT on 2008-11-28 at 17:43 ]

@echo off
for %%a in (123\*.txt) do (
  for %%b in ("456\%%~nxa") do (
    if %%~za gtr %%~zb (copy /y "%%a" 789>nul) else (echo %%~nxa 大小相同)
  )
)
pause

[ Last edited by tireless on 2008-11-26 at 21:03 ]


set fso=createobject("scripting.filesystemobject")
set f1=fso.getfolder("123")
set f2=fso.getfolder("456")


set fc1=f1.files
set fc2=f2.files

for each i in fc1
  for each k in fc2
   if k.size>i.size and k.name=i.name then
     msgbox i.name
   end if
  next
next

感谢各位的帮助,测试均能实现效果,我现在还有问题请教.
rem ========================检查程序版本 ==============================
if not exist "C:\Progra~1\WinRAR\Rar.exe" goto find
"C:\Progra~1\WinRAR\Rar.exe" X -Y -C- %temp%\123.rar *.* -AD C:\
goto gtr

:find
::获取自身路径,比如是C:\456\UPDATE.BAT,要过滤成C:\456\这样for /f "tokens=*" %%j in ('dir /a-d /b /s %0 2^>nul')do if not "%%j"=="" echo %%j

::获取RAR路径@echo off
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 && (
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\rar.exe 2^>nul') do if not "%%j"=="" echo %%j
)
)

设置环境变量使%%j能够变成可以执行的.
"ttt" X -Y -C- %temp%\123.rar *.* -AD C:\
pause

:gtr
for %%a in (C:\123\*.txt) do (
for %%b in ("456::这边是这个456文件夹希望是上面获得的自身文件夹\%%~nxa") do (
if %%~za gtr %%~zb (copy /y "%%a" 789>nul & echo %date% %%a 不同,已经复制 >> update.txt) else (echo %%~nxa 大小相同)
)
)
dir /a /b "789"|findstr .>nul&& goto copy || goto over

下面的copy分别的更新程序,OVER则是提示如下
:over
echo Msgbox "亲爱的朋友,您目前的程序版本为最新版,目前无可用更新！", 64, "友情提示" >>%temp%\now.vbs
start %temp%\now.vbs & ping -n 2 127.1>nul & goto end

我的意思就是先判断是否存在RAR.EXE在默认路径,如果不存在,则全盘搜索RAR,找到后执行"C:\Progra~1\WinRAR\Rar.exe" X -Y -C- %temp%\123.rar *.* -AD C:\
C:\Progra~1\WinRAR\Rar.exe是假设找到的路径是这个...
获取自身程序所在目录,然后将自身目录以变量的方式写入如下段
for %%b in ("456::这边是这个456文件夹希望是上面获得的自身文件夹\%%~nxa") do (
接着判断C盘刚解压的123文件里面的TXT同名文件和自身路径下的同名文件是否相同,相同则提示
echo Msgbox "亲爱的朋友,您目前的程序版本为最新版,目前无可用更新！", 64, "友情提示" >>%temp%\now.vbs
不同则执行COPY命令到789文件夹,路径也在C盘.

我自己没办法实现将判断出来的路径用到变量使程序正常运行,希望各位帮忙下!

@echo off
set strPath=C:\456\UPDATE.BAT
for %%a in ("%strPath%") do set strDir=%%~dpa
echo %strDir%
pause

HAT兄的代码实现了判断自身的效果..我DIY后代码古下:
set strPath=%%j
for /f "tokens=*" %%j in ('dir /a-d /b /s %0 2^>nul')do if not "%%j"=="" echo %strPath%>nul
for %%a in ("%strPath%") do set strDir=%%~dpa
echo %strDir%
goto gtr
:gtr
for %%a in (C:\123\*.txt) do (
for %%b in ("%strDir%%%~nxa") do (
if %%~za gtr %%~zb (copy /y "%%a" C:\456>nul & echo %date% %%a 不同,已经复制 >> update.txt) else (echo %%~nxa 大小相同)
)
)
dir /a /b "C:\456"|findstr .>nul&& goto copy || goto over

@echo off
setlocal enabledelayedexpansion
for /f "delims=\" %%i in ('fsutil fsinfo drives^|find /v ""') do (
set var=%%i
set hello=%%j
set drive=!var:~-2!
fsutil fsinfo drivetype !drive!|find "固定">nul && (
for /f "tokens=*" %%j in ('dir /a-d /b /s !drive!\rar.exe 2^>nul') do if not "%%j"=="" echo %%j
"hello" X -Y -C- %temp%\123.rar *.* -AD C:\
)
)
pause
这段还是没办法,不知道如何将这个%%J的程序路径转换成能用的....谁再帮忙下.

@echo off
if exist "C:\Progra~1\WinRAR\Rar.exe" (
  set RarPath="C:\Progra~1\WinRAR\Rar.exe"
) else (
  if exist "%ProgramFiles%\WinRAR\Rar.exe" set RarPath="%ProgramFiles%\WinRAR\Rar.exe"
)
if not defined RarPath call :Find
%RarPath% X -Y -C- -AD %temp%\123.rar C:\

for %%a in (C:\123\*.txt) do (
  for %%b in ("%~dp0\%%~nxa") do (
    if %%~za gtr %%~zb (
      copy /y "%%a" 789>nul
      >> update.txt echo  %date% %%~nxa 不同,已经复制
      if not defined # set #=.
    ) else (echo %%~nxa 大小相同)
  )
)

if defined # (goto copy) else (goto over)

:over
>%temp%\now.vbs echo Msgbox "亲爱的朋友,您目前的程序版本为最新版,目前无可用更新！", 64, "友情提示"
start %temp%\now.vbs & ping -n 2 127.1>nul & goto end

exit /b

:Find
reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" %temp%\_.reg
for /f "skip=4 delims== tokens=2" %%a in ('type %temp%\_.reg') do (
  set RarPath=%%~a
  call set RarPath="%%RarPath:\\=\%%\Rar.exe"
)
del %temp%\_.reg

[ Last edited by tireless on 2008-11-27 at 23:39 ]

建议楼主看一下这个，经常用的：

另外，FOR 变量参照的替换已被增强。您现在可以使用下列
选项语法:

~I - 删除任何引号(")，扩充 %I
%~fI - 将 %I 扩充到一个完全合格的路径名
%~dI - 仅将 %I 扩充到一个驱动器号
%~pI - 仅将 %I 扩充到一个路径
%~nI - 仅将 %I 扩充到一个文件名
%~xI - 仅将 %I 扩充到一个文件扩展名
%~sI - 扩充的路径只含有短名
%~aI - 将 %I 扩充到文件的文件属性
%~tI - 将 %I 扩充到文件的日期/时间
%~zI - 将 %I 扩充到文件的大小
%~$PATH:I - 查找列在路径环境变量的目录，并将 %I 扩充
到找到的第一个完全合格的名称。如果环境变量名
未被定义，或者没有找到文件，此组合键会扩充到
空字符串

可以组合修饰符来得到多重结果:

%~dpI - 仅将 %I 扩充到一个驱动器号和路径
%~nxI - 仅将 %I 扩充到一个文件名和扩展名
%~fsI - 仅将 %I 扩充到一个带有短名的完整路径名
%~dp$PATH:i - 查找列在路径环境变量的目录，并将 %I 扩充
到找到的第一个驱动器号和路径。
%~ftzaI - 将 %I 扩充到类似输出线路的 DIR

在以上例子中，%I 和 PATH 可用其他有效数值代替。%~ 语法
用一个有效的 FOR 变量名终止。选取类似 %I 的大写变量名
比较易读，而且避免与不分大小写的组合键混淆。

还有 %0 表示批处理自身。所以：

::获取自身路径,比如是C:\456\UPDATE.BAT,要过滤成C:\456\

自身路径就是：%~dp0

感谢楼上各位无私的帮助,学习了!~呵呵,如果各位有电脑病毒问题,请联系我.提供远程清理和专杀编写.

第1楼　luckboy45	发表于 2008-11-26 18:04
中级用户　发帖 212　积分 487
[已结]比较两个文件夹下的同名文件的大小本人想比较两个文件夹下的同名文件的大小,用FC没办法实现..希望各位帮忙下比如说文件夹123里面包含了1.TXT,2.TXT, 文件夹456下也包含了1.TXT,2.TXT, 比较两个文件夹下的1.TXT,2.TXT大小, 如果123里面的1.TXT字节大于456下的1.TXT 则复制123里面的1.TXT到名为789的文件夹里 @echo off for /f %%a in ('dir /b /s d:\123') do ( for /f %%b in ('dir /b /s d:\456') do ( if %%~za GTR %%~zb copy /y %%a d:\789 else echo 相同 & GOTO EXIT )) pause 这个代码没用....谁帮忙写.....支持HAT兄的扣分...偶晓得错了! ─────────────────　版务记录　───────────────── 执行：HAT 操作：在帖子标题中增加搜索关键字说明：原标题"请教比较文件的问题"不利于论坛搜索处罚：扣除2点积分提示：建议阅读以下帖子 {1415}提问的智慧 {7326}论坛新手必读，所有人的基本行为准则 {22703}请不要做浮躁的人 {32667}那些连标题都写不清楚的人们啊，你们醒醒吧 {32825}本版严厉整顿烂帖 ─────────────────　版务记录　───────────────── [ Last edited by HAT on 2008-11-28 at 17:43 ]

第2楼　tireless	发表于 2008-11-26 20:42
银牌会员　发帖 1,122　积分 2,025
@echo off for %%a in (123\.txt) do ( for %%b in ("456\%%~nxa") do ( if %%~za gtr %%~zb (copy /y "%%a" 789>nul) else (echo %%~nxa 大小相同) ) ) pause [ Last edited by tireless on 2008-11-26 at 21:03* ]

第3楼　huahua0919	发表于 2008-11-26 21:14
银牌会员　发帖 780　积分 1,608
set fso=createobject("scripting.filesystemobject") set f1=fso.getfolder("123") set f2=fso.getfolder("456") set fc1=f1.files set fc2=f2.files for each i in fc1 for each k in fc2 if k.size>i.size and k.name=i.name then msgbox i.name end if next next

第4楼　luckboy45	发表于 2008-11-27 18:50
中级用户　发帖 212　积分 487
感谢各位的帮助,测试均能实现效果,我现在还有问题请教. rem ========================检查程序版本 ============================== if not exist "C:\Progra~1\WinRAR\Rar.exe" goto find "C:\Progra~1\WinRAR\Rar.exe" X -Y -C- %temp%\123.rar . -AD C:\ goto gtr :find ::获取自身路径,比如是C:\456\UPDATE.BAT,要过滤成C:\456\这样for /f "tokens=" %%j in ('dir /a-d /b /s %0 2^>nul')do if not "%%j"=="" echo %%j ::获取RAR路径@echo off 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 && ( for /f "tokens=" %%j in ('dir /a-d /b /s !drive!\rar.exe 2^>nul') do if not "%%j"=="" echo %%j ) ) 设置环境变量使%%j能够变成可以执行的. "ttt" X -Y -C- %temp%\123.rar . -AD C:\ pause :gtr for %%a in (C:\123\.txt) do ( for %%b in ("456::这边是这个456文件夹希望是上面获得的自身文件夹\%%~nxa") do ( if %%~za gtr %%~zb (copy /y "%%a" 789>nul & echo %date% %%a 不同,已经复制 >> update.txt) else (echo %%~nxa 大小相同) ) ) dir /a /b "789"\|findstr .>nul&& goto copy \|\| goto over 下面的copy分别的更新程序,OVER则是提示如下 :over echo Msgbox "亲爱的朋友,您目前的程序版本为最新版,目前无可用更新！", 64, "友情提示" >>%temp%\now.vbs start %temp%\now.vbs & ping -n 2 127.1>nul & goto end 我的意思就是先判断是否存在RAR.EXE在默认路径,如果不存在,则全盘搜索RAR,找到后执行"C:\Progra~1\WinRAR\Rar.exe" X -Y -C- %temp%\123.rar .* -AD C:\ C:\Progra~1\WinRAR\Rar.exe是假设找到的路径是这个... 获取自身程序所在目录,然后将自身目录以变量的方式写入如下段 for %%b in ("456::这边是这个456文件夹希望是上面获得的自身文件夹\%%~nxa") do ( 接着判断C盘刚解压的123文件里面的TXT同名文件和自身路径下的同名文件是否相同,相同则提示 echo Msgbox "亲爱的朋友,您目前的程序版本为最新版,目前无可用更新！", 64, "友情提示" >>%temp%\now.vbs 不同则执行COPY命令到789文件夹,路径也在C盘. 我自己没办法实现将判断出来的路径用到变量使程序正常运行,希望各位帮忙下!

第5楼　HAT	发表于 2008-11-27 20:18
版主　发帖 5,017　积分 9,023
Re 4楼 @echo off set strPath=C:\456\UPDATE.BAT for %%a in ("%strPath%") do set strDir=%%~dpa echo %strDir% pause

第6楼　luckboy45	发表于 2008-11-27 21:07
中级用户　发帖 212　积分 487
HAT兄的代码实现了判断自身的效果..我DIY后代码古下: set strPath=%%j for /f "tokens=" %%j in ('dir /a-d /b /s %0 2^>nul')do if not "%%j"=="" echo %strPath%>nul for %%a in ("%strPath%") do set strDir=%%~dpa echo %strDir% goto gtr :gtr for %%a in (C:\123\.txt) do ( for %%b in ("%strDir%%%~nxa") do ( if %%~za gtr %%~zb (copy /y "%%a" C:\456>nul & echo %date% %%a 不同,已经复制 >> update.txt) else (echo %%~nxa 大小相同) ) ) dir /a /b "C:\456"\|findstr .>nul&& goto copy \|\| goto over @echo off setlocal enabledelayedexpansion for /f "delims=\" %%i in ('fsutil fsinfo drives^\|find /v ""') do ( set var=%%i set hello=%%j set drive=!var:~-2! fsutil fsinfo drivetype !drive!\|find "固定">nul && ( for /f "tokens=" %%j in ('dir /a-d /b /s !drive!\rar.exe 2^>nul') do if not "%%j"=="" echo %%j "hello" X -Y -C- %temp%\123.rar .* -AD C:\ ) ) pause 这段还是没办法,不知道如何将这个%%J的程序路径转换成能用的....谁再帮忙下.

第7楼　tireless	发表于 2008-11-27 23:25
银牌会员　发帖 1,122　积分 2,025
不知这样行否： @echo off if exist "C:\Progra~1\WinRAR\Rar.exe" ( set RarPath="C:\Progra~1\WinRAR\Rar.exe" ) else ( if exist "%ProgramFiles%\WinRAR\Rar.exe" set RarPath="%ProgramFiles%\WinRAR\Rar.exe" ) if not defined RarPath call :Find %RarPath% X -Y -C- -AD %temp%\123.rar C:\ for %%a in (C:\123\.txt) do ( for %%b in ("%~dp0\%%~nxa") do ( if %%~za gtr %%~zb ( copy /y "%%a" 789>nul >> update.txt echo %date% %%~nxa 不同,已经复制 if not defined # set #=. ) else (echo %%~nxa 大小相同) ) ) if defined # (goto copy) else (goto over) :over >%temp%\now.vbs echo Msgbox "亲爱的朋友,您目前的程序版本为最新版,目前无可用更新！", 64, "友情提示" start %temp%\now.vbs & ping -n 2 127.1>nul & goto end exit /b :Find reg export "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\WinRAR.exe" %temp%\_.reg for /f "skip=4 delims== tokens=2" %%a in ('type %temp%\_.reg') do ( set RarPath=%%~a call set RarPath="%%RarPath:\\=\%%\Rar.exe" ) del %temp%\_.reg [ Last edited by tireless on 2008-11-27 at 23:39* ]

第8楼　tireless	发表于 2008-11-27 23:35
银牌会员　发帖 1,122　积分 2,025
建议楼主看一下这个，经常用的：另外，FOR 变量参照的替换已被增强。您现在可以使用下列选项语法: ~I - 删除任何引号(")，扩充 %I %~fI - 将 %I 扩充到一个完全合格的路径名 %~dI - 仅将 %I 扩充到一个驱动器号 %~pI - 仅将 %I 扩充到一个路径 %~nI - 仅将 %I 扩充到一个文件名 %~xI - 仅将 %I 扩充到一个文件扩展名 %~sI - 扩充的路径只含有短名 %~aI - 将 %I 扩充到文件的文件属性 %~tI - 将 %I 扩充到文件的日期/时间 %~zI - 将 %I 扩充到文件的大小 %~$PATH:I - 查找列在路径环境变量的目录，并将 %I 扩充到找到的第一个完全合格的名称。如果环境变量名未被定义，或者没有找到文件，此组合键会扩充到空字符串可以组合修饰符来得到多重结果: %~dpI - 仅将 %I 扩充到一个驱动器号和路径 %~nxI - 仅将 %I 扩充到一个文件名和扩展名 %~fsI - 仅将 %I 扩充到一个带有短名的完整路径名 %~dp$PATH:i - 查找列在路径环境变量的目录，并将 %I 扩充到找到的第一个驱动器号和路径。 %~ftzaI - 将 %I 扩充到类似输出线路的 DIR 在以上例子中，%I 和 PATH 可用其他有效数值代替。%~ 语法用一个有效的 FOR 变量名终止。选取类似 %I 的大写变量名比较易读，而且避免与不分大小写的组合键混淆。还有 %0 表示批处理自身。所以： ::获取自身路径,比如是C:\456\UPDATE.BAT,要过滤成C:\456\ 自身路径就是：%~dp0

第9楼　luckboy45	发表于 2008-11-28 17:24
中级用户　发帖 212　积分 487
感谢楼上各位无私的帮助,学习了!~呵呵,如果各位有电脑病毒问题,请联系我.提供远程清理和专杀编写.