Удалить базовый путь из пути к файлу

Question

Я извлекаю несколько файлов с помощью OpenFileDialog и хотел бы удалить базовую папку из пути.

Если мой пользователь выбирает фотографии из папки (пример: c: \ user \ Username \ Pictures \ Holiday \ Beach), я хотел бы удалить часть "C: \ users \ Username \ Pictures \" из имени файла , так что я оставляю «Holiday \ Beach \ Photo.jpg» для каждого выбранного файла.

EDIT:

Я надеялся, что-то похожее на this, но FolderBrowser не может выбрать файлы.

Answer 1

Использование класса .NET Каталог:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    Using ofd As New OpenFileDialog() 
     ofd.Multiselect = True 
     If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then 
      For Each fileName In ofd.FileNames 
       MessageBox.Show(getFileWithParents(fileName, 2)) 
      Next fileName 
     End If 
    End Using 
End Sub 

Private Function getFileWithParents(filename As String, numberOfParents As Integer) As String 
    Dim directories As New List(Of String)() 
    Dim newFilename = filename 
    Dim hasParent As Boolean = Directory.GetParent(newFilename) IsNot Nothing 
    While hasParent 
     Dim dir = Directory.GetParent(newFilename).ToString() 
     directories.Add(dir) 
     newFilename = dir 
     hasParent = Directory.GetParent(newFilename) IsNot Nothing 
    End While 
    If directories.Count <= numberOfParents Then 
     Return filename 
    Else 
     Return filename.Replace(directories(numberOfParents), "") 
    End If 
End Function 

Это позволяет определить, сколько родительских каталогов для возврата, и счета, когда пользователь выбирает файлы из каталога с меньше заданного числа родители.

Answer 2

Самый простой способ состоит в использовании Substring()

basePath = OpenFileDialog1.InitialDirectory 
If basePath = "" Then 
    basePath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) 
End If 

If path.StartsWith(basePath) Then 
    path = path.Substring(basePath.Length + 1) 
End If 

Примечание: + 1 для длины пути сепаратора.

Этот подход имеет свои ограничения, например, что, если ваш базовый путь содержит косые черты / в качестве разделителей (которые действительны в Windows) или что, если это UNC-путь. Самый простой способ - обеспечить, чтобы ваш базовый путь всегда был совместим с пути, возвращаемым из диалогового окна файла.

На самом деле, у меня есть решение, которое делает эту задачу тривиальной путем разделения пути на компоненты, его также правильно обрабатывать как / и \, также обработку абсолютные и относительные пути, стандартные пути и пути UNC, но у него есть 1000+ линии как библиотеки. Я не готов поделиться им. Я хотел сказать, что вам приходится иметь дело с этим сложным способом (как я уже упоминал) или просто использовать какое-то простое ограниченное «решение», как я писал в первой части ответа.

Answer 3

Это немного новый подход, поскольку он фактически не выполняет замену строки, но должен работать нормально.

Function RemoveRoot(ByVal root As String, ByVal target As String) As String 
    'format the paths first 
    Dim p As String = String.Join("\", (From t In target.Split(("\").ToCharArray()) Where t <> "" Select t).ToArray()) 
    Dim r As String = String.Join("\", (From t In root.Split(("\").ToCharArray()) Where t <> "" Select t).ToArray()) 
    If p.StartsWith(r) Then Return p.Remove(0, r.Length) 
    Return target 
End Function 

Answer 4

После долгого обсуждения, кажется, что лучший способ сделать это - через пользовательский элемент управления. Спасибо всем за помощь