VB.NET检索父目录中不包含父目录路径的文件的文件路径

Imports System.IO

Module Module1
    Sub Main()
        Dim currentFilePath As String = Path.GetFullPath("path/to/current/file.txt")
        Dim parentDirectoryPath As String = Path.GetDirectoryName(currentFilePath)
        Dim filesInParentDirectory As String() = Directory.GetFiles(parentDirectoryPath)

        Dim result As New List(Of String)()

        For Each filePath As String In filesInParentDirectory
            Dim fileName As String = Path.GetFileName(filePath)
            If Not filePath.Contains(parentDirectoryPath) Then
                result.Add(filePath)
            End If
        Next

        For Each filePath As String In result
            Console.WriteLine(filePath)
        Next

        Console.ReadLine()
    End Sub
End Module