vb.net找到共同的父目錄

Question

有關文件列表，我試圖確定共同的父目錄。該文件將不會在同一個目錄下（測試的部分）......我想

Dim myParentDirectory As String = Path.GetDirectoryName(list.Item(0)) 
Dim myCurrentDirectory As String 
For Each file in list 
    myCurrentDirectory = Path.GetDirectoryName(file) 
    While myCurrentDirectory <> myParentDirectory And... And myParentDirectory <> Nothing '(or <> to a top level directory like "c:") 
    myParentDirectory = Directory.GetParent(myParentDirectory.ToString()) 
    End While 
Next 

的......代表「myCurrentDirectory不是myParentDirectory的子目錄」但我還沒有發現任何測試 - 僅列出目錄內容的方法。

如何獲得兩個文件（或目錄）的公用目錄父？

Answer 1

我有一個可行的解決方案。

一起來定義一個遞歸函數，讓你所有的給定文件夾的祖先文件夾列表：

Dim recurse As Func(Of DirectoryInfo, IEnumerable(Of string)) = Nothing 
recurse = _ 
    Function (di) 
     If di Is Nothing Then 
      Return Enumerable.Empty(Of String)() 
     Else 
      Return Enumerable.Repeat(di.FullName, 1).Concat(recurse(di.Parent)) 
     End If 
    End Function 

然後，它只是一個讓兩個組這樣的路徑和返回的交集的事最長的一個。

像這樣：

Dim di1 As new DirectoryInfo("E:\James\Media\Podcasts\TEDTalks (video)") 
Dim di2 As new DirectoryInfo("E:\James\Media\Music\A Clash of Kings") 

Dim result = 
    recurse(di1) _ 
     .Intersect(recurse(di2)) _ 
     .OrderByDescending(Function (x) x.Length) _ 
     .First() 

Console.WriteLine(result) 

結果是 「E：\詹姆斯\媒體」。

可能有更漂亮的版本，但它的工作原理。