質問編集履歴

コードに漏れがありました

2018/10/18 05:27

投稿

スコア12

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -192,6 +192,118 @@
 End Sub
+Private Sub pasteSpecFiles(ByRef col_file As Collection)
+Dim startLine As Long
+Dim F As file
+With allFiles
+    startLine = .Cells(.Rows.count, allFilesSh.絶対パス).End(xlUp).Row
+    For i = 1 To col_file.count
+        Set F = col_file.Item(i)
+        .Cells(startLine + i, allFilesSh.絶対パス).Value = F.path
+        .Cells(startLine + i, allFilesSh.フォルダ).Value = F.parentFolder
+        .Cells(startLine + i, allFilesSh.ファイル名).Value = F.Name
+        Set F = Nothing
+    Next
+End With
+End Sub
+Private Function compareBothCollection(ByRef colfiles As Collection) As Collection
+Dim bufColfile As New Collection
+Dim fl As file
+Dim fl2 As file
+Dim i As Long, j As Long
+Set bufColfile = colfiles
+For i = 1 To colfiles.count
+    For j = 1 To bufColfile.count
+        Set fl = colfiles(i)
+        Set fl2 = bufColfile(j)
+        If fl.Name = fl2.Name Then
+            If fl.DateLastModified < fl2.DateLastModified Then
+                colfiles.Remove (i)
+            Else: GoTo Skip
+            End If
+        Else: GoTo Skip
+        End If
+Skip:
+        Set fi = Nothing
+        Set fl2 = Nothing
+    Next
+Next
+Set compareBothCollection = colfiles
+End Function
 ```