Question

批处理或者VBS 对比两个指定游戏目录 生成TXT记录文档

请高手帮忙，我想弄个对比文件目录，意思就是我想把本地D:\网络游戏 和E:\网络游戏 2个游戏目录对比一下 有重复的游戏 生成一个TXT文档记录下来。好比我D:\网络游戏 文件夹里有200个网络游戏，E:\网络游戏 文件夹里有200个网络游戏 但是其中有20个游戏目录名称是一样的，这时就在桌面生成一个文档 记录这20个重复的游戏名称，可以用批处理或者VBS 谢谢。
楼下的失败了 提示
正在比较文件 网络游戏1.txt 和 网络游戏2.TXT
Resync 失败。文件差异过大
我只要他们对比出相同我文件名 只要一级目录就可以了

Answer 1

试试我的vbs代码：

'══代══码══开══始════
set fso=CreateObject("Scripting.FileSystemObject")
set dt1=CreateObject("Scripting.Dictionary")
set dt2=CreateObject("Scripting.Dictionary")
set fw=fso.createtextfile("差异记录.txt",2)
set fd=fso.getfolder("D:\网络游戏")
set fds=fd.subfolders
for each d in fds
dt1.add d.name,d.name
next
set fd=fso.getfolder("E:\网络游戏")
set fds=fd.subfolders
for each d in fds
dt2.add d.name,d.name
next
fw.writeline "====两盘中共有的项目：===="
its2=dt2.items
for i=0 to dt2.count-1
if dt1.exists(its2(i))=true then
fw.writeline its2(i)
end if
next
'Coded By escortmnm from VBS团队
'══代══码══结══束════

Answer 2

dir /s /b /ad D:\网络游戏 >网络游戏1.txt
dir /s /b /ad E:\网络游戏 >网络游戏2.txt
fc /l 网络游戏1.txt 网络游戏2.txt>>差异记录.txt
del 网络游戏1.txt
del 网络游戏2.txt

保存为文件"目录比较.bat" 放在桌面上运行后,自动生成文档“差异记录.txt”。

Answer 3

到电脑查

Answer 4

dim dfolder,efolder,outfile,fso,dfile
set fso =CreateObject("Scripting.FileSystemObject")
set dfolder =fso.getfolder("D:\网络游戏 ")
set outfile =fso.createtextfile("e:\Resu.log",true)

Set dsubfolders = dfolder.subfolders
Set dsubfiles = dfolder.files
for each dsubfolder in dsubfolders
if fso.FolderExists("E:\网络游戏\" & dsubfolder.name) then
outfile.writeline dsubfolder.path
outfile.writeline "E:\网络游戏\" & dsubfolder.name
end if
next
for each dsubfile in dsubfiles
msgbox "E:\网络游戏\" & dsubfile.name
if fso.FileExists("E:\网络游戏\" & dsubfile.name) then
outfile.writeline dsubfile.path
outfile.writeline "E:\网络游戏\" & dsubfile.name)
end if
next
outfile.close
msgbox "E:\Resu.log"

vbs版，测试通过，能找出重复的文件和目录，结果输出在E:\Resu.log

如有问题，请来百度 VBS吧 找我