[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
jave000

Rank: 2

帖子
135 
积分
178 
技术
1  
捐助
0  
注册时间
2021-5-27 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2022-1-14 15:15 | 只看该作者

[文件操作] 批处理如何实现比对 备份 查重 清理？

我在论坛搜了比对代码，和我需求不同。求助以下。folderA和folderB的实际文件夹名一样，只是路径不同。
将要备份的存于网盘的folderA文件夹包括内部所有子文件夹及其文件，备份到存于本机的folderB。完成后对folderB进行全目录重名文件查找，并自动删除旧的，或者提示出来让我手删。（因为可能部分文件移动了位置）
xcopy和robocopy我会，但是比对查重清理不会。
收藏 分享

jave000

Rank: 2

帖子
135 
积分
178 
技术
1  
捐助
0  
注册时间
2021-5-27 
2楼
发表于 2022-1-18 16:26 | 只看该作者
或者能有一个指定目录下包括子文件夹的所有文件查重也行……我有这个绿色工具，但我不能在工作电脑上运行第三方exe……

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
3楼
发表于 2022-1-18 17:15 | 只看该作者
本帖最后由 idwma 于 2022-1-19 14:25 编辑 
  1. #@&cls&powershell "type %~s0|out-string|iex"&pause&exit

  2. $fa='.\fa'

  3. $fb='.\fb'

  4. copy -rec $fa $fb

  5. $a=@{}

  6. dir -rec $fb -include *.*|?{!$_.PSIsContainer}|%{

  7. if(!$a.ContainsKey($_.name)){$a+=@{$_.name=$_}}elseif($a[$_.name].LastWriteTime -gt $_.LastWriteTime){del $_.fullname}elseif($a[$_.name].LastWriteTime -lt $_.LastWriteTime){del $a[$_.name].fullname;$a[$_.name]=$_}

  8. }
复制代码
1

评分人数

TOP

flashercs

Rank: 6Rank: 6

帖子
1251 
积分
2217 
技术
279  
捐助
0  
注册时间
2017-3-20 
4楼
发表于 2022-1-18 17:38 | 只看该作者 
  1. <#*,:&cls

  2. @echo off

  3. cd /d "%~dp0"

  4. powershell -NoProfile -ExecutionPolicy RemoteSigned -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath \"%~0\" -ReadCount 0 | Out-String ))) "

  5. pause

  6. exit /b

  7. #>

  8. # 功能:文件查重,删除旧文件

  9. 

  10. $folder = "." # 指定文件夹

  11. Get-ChildItem -LiteralPath $folder -Recurse | Where-Object { -not $_.PSIsContainer } | `

  12.   Sort-Object -Property @{e = { $_.Name.ToLower() } }, @{e = { $_LastWriteTime }; d = $true } |`

  13.   Group-Object -Property @{e = { $_.Name.ToLower() } } | ForEach-Object {

  14.   $_.Group | Select-Object -Skip 1

  15. } | Remove-Item -WhatIf
复制代码
先测试看看删除文件是否正确,然后再去掉参数 -WhatIf,就能真正删除文件了.
1

评分人数

微信:flashercs
QQ:49908356

TOP

jave000

Rank: 2

帖子
135 
积分
178 
技术
1  
捐助
0  
注册时间
2021-5-27 
5楼
发表于 2022-1-19 13:30 | 只看该作者
回复 3# idwma


红字报错

   iex : At line:7 char:17
+ if(!$ContainsKey($_.name)){$a+=@{$_.name=$_}}elseif($a[$_.name].LastW ...
+                 ~
Unexpected token '(' in expression or statement.
At line:7 char:17
+ if(!$ContainsKey($_.name)){$a+=@{$_.name=$_}}elseif($a[$_.name].LastW ...
+                 ~
Missing closing ')' after expression in 'if' statement.
At line:6 char:34
+ dir -rec $fb|?{!$PSIsContainer}|%{
+                                  ~
Missing closing '}' in statement block or type definition.
At line:7 char:26
+ if(!$ContainsKey($_.name)){$a+=@{$_.name=$_}}elseif($a[$_.name].LastW ...
+                          ~
Unexpected token ')' in expression or statement.
At line:7 char:46
+ if(!$ContainsKey($_.name)){$a+=@{$_.name=$_}}elseif($a[$_.name].LastW ...
+                                              ~~~~~~
Unexpected token 'elseif' in expression or statement.
At line:7 char:100
+ ... e=$_}}elseif($a[$_.name].LastWriteTime -gt $_.LastWriteTime){del $_.f ...
+                                                                 ~
Unexpected token '{' in expression or statement.
At line:7 char:117
+ ... e].LastWriteTime -gt $_.LastWriteTime){del $_.fullname}elseif($a[$_.n ...
+                                                            ~~~~~~
Unexpected token 'elseif' in expression or statement.
At line:7 char:171
+ ... lname}elseif($a[$_.name].LastWriteTime -lt $_.LastWriteTime){del $a[$ ...
+                                                                 ~
Unexpected token '{' in expression or statement.
At line:8 char:1
+ }
+ ~
Unexpected token '}' in expression or statement.
At line:1 char:69
+ ... pe C:\Users\CXMPV\ONEDRI~1\Desktop\Others\BACKUP~1.BAT|out-string|iex
+                                                                       ~~~
    + CategoryInfo          : ParserError: ( [Invoke-Expression], ParseException
    + FullyQualifiedErrorId : UnexpectedToken,Microsoft.PowerShell.Commands.InvokeExpressionCommand

TOP

jave000

Rank: 2

帖子
135 
积分
178 
技术
1  
捐助
0  
注册时间
2021-5-27 
6楼
发表于 2022-1-19 13:33 | 只看该作者
回复 4# flashercs


    看起来运算也包含了回收站？虽然我清空了回收站，不知道它从哪找到的


What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Guideline\Caojing Site PDS Project Map.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Class\For Line List\CISS-ST-QC-301_Attachment.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Class\Pipe\CS_9196_20161101_EN.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Class\Pipe\CS_9251_20190301_EN.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Class\Ordering Standard\CS_9484_20190301_EN.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Folder\30_Engineering\02_Piping\30_02_01_Piping_Design\B1.3.6 Pipe Standard Support\Pipe Supports.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Class\Pipe\WN_1000-00312.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Class\Ordering Standard\WN_1057-00022.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Folder\30_Engineering\02_Piping\30_02_01_Piping_Design\B1.3.4 Insulation\WN_8101-00001.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Folder\30_Engineering\02_Piping\30_02_01_Piping_Design\B1.3.4 Insulation\WN_8101-00002.pdf".
What if: Performing the operation "Remove File" on target "\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\Class\Ordering Standard\WN_8101-00003.pdf".

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
7楼
发表于 2022-1-19 14:20 | 只看该作者
回复 1# jave000


    查重的判断标准是什么，文件名相同就认为是重复吗，不需要判断MD5么？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

jave000

Rank: 2

帖子
135 
积分
178 
技术
1  
捐助
0  
注册时间
2021-5-27 
8楼
发表于 2022-1-19 16:45 | 只看该作者
回复 7# Batcher


    只看文件名，因为我要备份的文件都是我做的，还总更新，具体信息可能都不同，只有文件名一致，如果不同，我自己也知道。唯一问题就是我可能今天放这个文件夹，明天放那个文件夹，所以希望能有一个指定目录下全子文件夹搜索。

TOP

jave000

Rank: 2

帖子
135 
积分
178 
技术
1  
捐助
0  
注册时间
2021-5-27 
9楼
发表于 2022-1-19 17:09 | 只看该作者
回复 3# idwma


    $fa='\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\'
$fb='C:\Users\CXMPV\OneDrive - Covestro\Desktop\Others\ShareThem\'

我输入这两个地址，结果是在后者地址的sharethem里又创建了一个sharethem，没看懂这段代码该怎么改。

我把后者地址改为$fb='C:\Users\CXMPV\OneDrive - Covestro\Desktop\Others\'重试，根目录放了几个文件，它们和子文件夹中的文件重复，结果并没有删除。

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
10楼
发表于 2022-1-19 17:20 | 只看该作者
本帖最后由 idwma 于 2022-1-19 17:29 编辑

回复 9# jave000


    我理解错了,把所有LastWriteTime改成CreationTime试试
  1.  $fa='\\ccns010006\Projects\CISS_SIB_AP_2020\02_Technip\SIB Project\007 Piping\ShareThem\*'

  2. $fb='C:\Users\CXMPV\OneDrive - Covestro\Desktop\Others\ShareThem\'
复制代码

TOP

jave000

Rank: 2

帖子
135 
积分
178 
技术
1  
捐助
0  
注册时间
2021-5-27 
11楼
发表于 2022-1-20 09:26 | 只看该作者
回复 10# idwma


    这种写法从理解上有点难度，我本来以为就是a目录备份成b目录，结果是a目录备份到b目录下。

确实是修改时间，不太可能有时间一样的，理论上我复制命令时，复制过来的都是最新的吧。
我找到一个查重的代码，其实只要这个就也行，复制命令我前缀一个xcopy就好了。
但你这个代码是不是更高级一些，先判断重复，再复制过去？

TOP

idwma

Rank: 6Rank: 6

帖子
986 
积分
1724 
技术
243  
捐助
0  
注册时间
2014-6-17 
12楼
发表于 2022-1-20 16:04 | 只看该作者
回复 11# jave000


    也是先复制再按时间去重,练练手来的,不高级

TOP

返回列表