如果要根據上次修改日期覆蓋，則 File 對象具有所需的屬性： DateLastModified . (您可以檢查 File 對象的所有屬性here . )

您已經可以訪問源文件對象(代碼的 Photo 變量)，因此您只需要獲取目標的文件對象 .

這樣的事情應該有效：

Dim Photo

Dim targetFile, bmpTargetFilename, jpgTargetFilename

SourceFolder = "C:\Photo1"

DistinationFolder = "C:\Photo2"

Set ObjPhoto = CreateObject("Scripting.FileSystemObject")

For Each Photo In ObjPhoto.GetFolder(SourceFolder).Files

bmpTargetFilename = ObjPhoto.BuildPath(DistinationFolder, Replace(Photo.Name, ".jpg", ".bmp"))

jpgTargetFilename = ObjPhoto.BuildPath(DistinationFolder, Photo.Name)

If ObjPhoto.FileExists(bmpTargetFilename) Then

' Get the target file object

Set targetFile = ObjPhoto.GetFile(jpgTargetFilename)

' Now compare the last modified dates of both files

If Photo.DateLastModified > targetFile.DateLastModified Then

Photo.Copy jpgTargetFilename, True

End If

Else

Photo.Copy jpgTargetFilename, True

End If

Next

幾個筆記：

看來你正在檢查是否存在.BMP文件而復制.JPG文件，所以我通過使用兩個變量使它明確 .

我還假設你要比較JPG文件，因為那些是被復制的文件 .

總結

以上是生活随笔為你收集整理的java 拷贝替换文件夹_比较两个不同文件夹中的两个文件，并将其替换为较新的文件夹...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。