[VB.NET]比對兩個目錄中不同的檔案

April 13, 2010

Module DirectoryInfoExtension <Extension()> _ Function GetDifferentFileList(ByVal sourceDirectoryInfo As DirectoryInfo, ByVal targetDirectoryInfo As DirectoryInfo, Optional ByVal searchPattern As String = “.”, Optional ByVal searchOption As SearchOption = SearchOption.TopDirectoryOnly) As FileInfo() If sourceDirectoryInfo Is Nothing Then Throw New ArgumentNullException(“sourceDirectoryInfo”) End If If targetDirectoryInfo Is Nothing Then Throw New ArgumentNullException(“targetDirectoryInfo”) End If If targetDirectoryInfo.FullName = sourceDirectoryInfo.FullName Then Return New FileInfo() {} End If Dim sourceFiles = sourceDirectoryInfo.GetFiles(searchPattern, searchOption) Dim destFiles = targetDirectoryInfo.GetFiles(searchPattern, searchOption) Dim intersectFiles = sourceFiles.Except(destFiles, New FileInfoEqualityComparer(sourceDirectoryInfo.FullName, targetDirectoryInfo.FullName)) Return intersectFiles.ToArray End Function End Module

Class FileInfoEqualityComparer Implements IEqualityComparer(Of FileInfo)

#Region “Var” Private _sourcePath As String Private _targetPath As String Private _replacePathList() As String #End Region

#Region “Private Property” ’’’ <summary> ’’’ Gets or sets the m_source path. ’’’ </summary> ’’’ <value>The m_source path.</value> Private Property m_SourcePath() As String Get Return _sourcePath End Get Set(ByVal value As String) _sourcePath = value End Set End Property

''' &lt;summary&gt; 
''' Gets or sets the m_target path. 
''' &lt;/summary&gt; 
''' &lt;value&gt;The m_target path.&lt;/value&gt; 
Private Property m_TargetPath() As String
    Get
        Return _targetPath
    End Get
    Set(ByVal value As String)
        _targetPath = value
    End Set
End Property

''' &lt;summary&gt; 
''' Gets or sets the m_replace path list. 
''' &lt;/summary&gt; 
''' &lt;value&gt;The m_replace path list.&lt;/value&gt; 
Private Property m_replacePathList() As String()
    Get
        Return _replacePathList
    End Get
    Set(ByVal value As String())
        _replacePathList = value
    End Set
End Property

#End Region

#Region “Constructor”

''' &lt;summary&gt; 
''' Initializes a new instance of the &lt;see cref="FileInfoEqualityComparer" /&gt; class. 
''' &lt;/summary&gt; 
''' &lt;param name="sourcePath"&gt;The source path.&lt;/param&gt; 
''' &lt;param name="targetPath"&gt;The target path.&lt;/param&gt; 
Sub New(ByVal sourcePath As String, ByVal targetPath As String)
    With Me
        .m_SourcePath = sourcePath
        .m_TargetPath = targetPath
        InitReplacePathList()
    End With
End Sub

#End Region

#Region “Private Method” ’’’ <summary> ’’’ Inits the replace path list. ’’’ </summary> Private Sub InitReplacePathList() m_replacePathList = New String() {m_SourcePath, m_TargetPath} If m_SourcePath < m_TargetPath Then m_replacePathList = m_replacePathList.Reverse().ToArray End If End Sub

''' &lt;summary&gt; 
''' Gets the relatived path. 
''' &lt;/summary&gt; 
''' &lt;param name="path"&gt;The path.&lt;/param&gt; 
''' &lt;returns&gt;&lt;/returns&gt; 
Private Function GetRelativedPath(ByVal path As String) As String
    If String.IsNullOrEmpty(path) Then
        Throw New ArgumentNullException("path")
    End If

    For Each p In m_replacePathList
        path = path.Replace(p, "")
    Next
    Return path
End Function

#End Region

Public Function Equals1(ByVal x As System.IO.FileInfo, ByVal y As System.IO.FileInfo) As Boolean Implements System.Collections.Generic.IEqualityComparer(Of System.IO.FileInfo).Equals
    Return GetRelativedPath(x.FullName) = GetRelativedPath(y.FullName) AndAlso x.Length = y.Length AndAlso x.LastWriteTime = y.LastWriteTime
End Function

Public Function GetHashCode1(ByVal obj As System.IO.FileInfo) As Integer Implements System.Collections.Generic.IEqualityComparer(Of System.IO.FileInfo).GetHashCode
    Return (GetRelativedPath(obj.FullName) &amp; obj.Length.ToString &amp; obj.LastWriteTime.ToShortDateString).GetHashCode
End Function

End Class

Public Class Form1

Private Sub btnSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSource.Click
    If FolderBrowserDialog1.ShowDialog Then
        tbxSource.Text = FolderBrowserDialog1.SelectedPath
        Dim source As New DirectoryInfo(tbxSource.Text)
        lbxSource.DisplayMember = "FullName"
        lbxSource.Items.AddRange(source.GetFiles())
    End If
End Sub

Private Sub btnTarget_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTarget.Click
    If FolderBrowserDialog1.ShowDialog Then
        tbxTarget.Text = FolderBrowserDialog1.SelectedPath
        Dim target As New DirectoryInfo(tbxTarget.Text)
        lbxTarget.DisplayMember = "FullName"
        lbxTarget.Items.AddRange(target.GetFiles())
    End If
End Sub

Private Sub btnGO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGO.Click
    Dim source As New DirectoryInfo(tbxSource.Text)
    Dim target As New DirectoryInfo(tbxTarget.Text)
    lbxDifferent.DisplayMember = "FullName"
    lbxDifferent.Items.AddRange(source.GetDifferentFileList(target))
End Sub

End Class

VB.NET