C:\USERS\YU2N\DESKTOP\TEST
|   robocopy 7z.bat
|
+---同步来源
|       A1.txt
|       A2.txt
|
\---同步目标
        A1.txt
        A2.txt
复制代码

@echo off & cls

:: 当前目录
set "CurDir=%~dp0"            
set "CurDir=%CurDir:~0,-1%"

:: 创建测试目录
md "%CurDir%\同步来源" >nul 2>nul
md "%CurDir%\同步目标" >nul 2>nul

:: 创建测试文档
echo A>"%CurDir%\同步来源\A1.txt"
copy /y "%CurDir%\同步来源\A1.txt" "%CurDir%\同步来源\A2.txt"
copy /y "%CurDir%\同步来源\*.txt" "%CurDir%\同步目标\*.txt"

:: 修改“同步来源\A2.txt”的修改时间
ping 127.1>nul
echo A>"%CurDir%\同步来源\A2.txt"

:: 如何让 robocopy 不同步“同步来源\A2.txt”？它与“同步目标\A2.txt”里面的内容完全一致。
robocopy /mir "%CurDir%\同步来源" "%CurDir%\同步目标"

:: xcopy /d /y  "%CurDir%\同步来源" "%CurDir%\同步目标"

pause
复制代码

'*************************************************************************************
'使用 7-Zip 命令行压缩文件，若无文件更新，则压缩档的修改时间不会更新
'*************************************************************************************
Function CompressFolderBy7z(ByVal strSrcDir, ByVal strDesDir, Byval strPassword)
	Dim wso, fso, oExec, dtModifyDate, sApp7z, sMode, sInfo, sDesFile
	Dim objShell, objFolder, objItem
	Set wso = CreateObject("WScript.Shell")
	Set fso = CreateObject("Scripting.filesystemobject")

	'获取 7-Zip 命令行路径
	On Error Resume Next
	sApp7z = wso.ExpandenVironmentStrings(wso.RegRead("HKCU\SOFTWARE\7-Zip\Path"))
	On Error GoTo 0
	If fso.FileExists(sApp7z & "7za.exe") Then
		sApp7z = sApp7z & "7za.exe"
	ElseIf fso.FileExists(sApp7z & "7z.exe") Then
		sApp7z = sApp7z & "7z.exe"
	Else
		Msgbox "找不到 7za.exe 或 7z.exe，请安装 7-Zip 后使用本程序。", vbCritical, WScript.ScriptName
		WScript.Quit
	End If

	'设置备份文件夹位置(修正盘符与UNC标示)
	If fso.FolderExists(strSrcDir) = False Then Exit Function
	If Right(strDesDir, 1) = "\" Then strDesDir = Left(strDesDir, Len(strDesDir)-1)
	If InStr(strSrcDir, ":\") Then strDesDir = strDesDir & "\" & Split(strSrcDir, ":\")(0) & "\" & Split(strSrcDir, ":\")(1)
	If InStr(strSrcDir, "\\") Then strDesDir = strDesDir & "\" & Split(strSrcDir, "\\")(1)
	If Instr(strDesDir,"\") > 0 Then
		Dim arr : arr = Split(strDesDir,"\") : ReDim Preserve arr(UBound(arr)-1) : strDesDir = Join(arr,"\")
	End If
	If fso.FolderExists(strDesDir) = False Then wso.Run "cmd /u /c md """ & strDesDir & """", 0, True
	
	'设置目标文件(*.7z)位置
	sDesFile = strDesDir & "\" & (Split(strSrcDir,"\")(UBound(Split(strSrcDir,"\")))) & ".7z"
	
	'执行压缩操作，记录“修改时间”，取得执行结果
	If fso.FileExists(sDesFile) = False Then
		sMode = "a"
	Else
		sMode = "u"
		dtModifyDate = fso.GetFile(sDesFile).DateLastModified
	End If
	WScript.Echo Now() & " [" & UCase(sMode) & "] " & sDesFile
	If strPassword <> "" Then strPassword = "-p" & strPassword
	Set oExec = wso.Exec("""" & sApp7z & """ " & sMode & " " & strPassword & " -r- -ssw -t7z """ & _
				sDesFile & """ """ & strSrcDir & """")
	sInfo = oExec.StdOut.ReadAll
	'Msgbox sInfo	'调试-查看执行结果
	
	'无更新则还原修改时间
	If sMode = "u" And Instr(1, sInfo, "Items to compress: 0", vbTextCompare) > 0 Then
		Set objShell = CreateObject("Shell.Application")
		Set objFolder = objShell.NameSpace(fso.GetFile(sDesFile).ParentFolder.Path)
		For Each objItem In objFolder.Items
			If UCase(objItem.Path) = UCase(fso.GetFile(sDesFile).Path) Then
				sMode = "s"	'skip
				objItem.ModifyDate = dtModifyDate
				Exit For
			End If
		Next
		Set objShell = Nothing
	End If
	
	'返回结果
	If sMode = "s" Then
		WScript.Echo Now() & " ... [Skip]"
	Else
		WScript.Echo Now() & " ... [Ok]"
	End If
	CompressFolderBy7z = "[" & UCase(sMode) & "]" & sDesFile
	Set fso = Nothing
	Set wso = Nothing

End Function
复制代码