Visual Basic.NET - Eliminar ruta del archivo

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For Each file As String In My.Computer.FileSystem.GetFiles("C:\ Glenn\Office Doc" ,FileIO.SearchOption.SearchAllSubDirectories)

Dim Fname As String = IO.Path.GetFileName(file)

ListBox1.Items.Add(Fname)

Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick

Dim file As [String] = ListBox1.SelectedItem

System.Diagnostics.Process.Start("C:\ Glenn\Office Doc\" & file)

NombreArchivoSinRuta = IO.Path.GetFileName(NombreArchivoConRuta)

Dim Fname As String = IO.Path.GetFileName(file)

ListBox1.Items.Add(Fname)

' ... ... ...

    'Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged

    '    'For Each file As String In My.Computer.FileSystem.GetFiles("D:\Tmp\Eloy\", FileIO.SearchOption.SearchAllSubDirectories, "*.*")

    '    '    ListBox1.Items.Add(file)

    '    'Next

    '    'Dim Fname As String = IO.Path.GetFileName("D:\Tmp\Eloy\")

    '    'ListBox1.Items.Add(Fname)

    'End Sub

' ... ... ...  No olvidas de reemplazar "D:\Tmp\Eloy\" por tu ruta !!!

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Fname As String

        For Each file As String In My.Computer.FileSystem.GetFiles("D:\Tmp\Eloy\", FileIO.SearchOption.SearchAllSubDirectories)

            Fname = IO.Path.GetFileName(file)

            ListBox1.Items.Add(Fname)

        Next

    End Sub

' ... ... ...

System.Diagnostics.Process.Start(Me.ListBox1.SelectedItem.ToString())

Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick

    If System.IO.File.Exists(Me.ListBox1.SelectedItem.ToString()) Then  ' OK pero si nombre ne ListBox, entonces claro que existe ...

      Dim PDFExe As String = "Acrobat.exe" ' El nombrer del lector pdf por defecto del sistema

      Dim RutaDelFichero As String = "D:\Tmp\Eloy\"  ' A reemplazar por la ruta en tu sistema

      Dim FicheroPDF As String = Me.ListBox1.SelectedItem.ToString()

      System.Diagnostics.Process.Start(PDFExe, " " & RutaDelFichero & FicheroPDF)

    End If

End Sub

Dim DTA As New DataTable ' Contiene realmente los datos, el ListBox es solamente para los mostrar

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        DTA.Columns.Add("Ruta")

        DTA.Columns.Add("Fichero")

    End Sub

    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick

        Dim Indicio As Integer = ListBox1.SelectedIndex

        If System.IO.File.Exists(Me.ListBox1.SelectedItem.ToString()) Then  ' OK pero si nombre ne ListBox, entonces claro que existe ...

            Dim PDFExe As String = "Acrobat.exe" ' El nombrer del lector pdf por defecto del sistema

            Dim RutaDelFichero As String = DTA.Rows(Indicio)("Ruta")

            Dim FicheroPDF As String = DTA.Rows(Indicio)("Fichero")

            System.Diagnostics.Process.Start(PDFExe, " " & RutaDelFichero & FicheroPDF)

        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For Each file As String In My.Computer.FileSystem.GetFiles("D:\Tmp\Eloy\", FileIO.SearchOption.SearchAllSubDirectories)

            DTA.Rows.Add(IO.Path.GetDirectoryName(file), IO.Path.GetFileName(file))

        Next

        ListBox1.DataSource = DTA

        ListBox1.DisplayMember = "Fichero"

        ListBox1.ValueMember = "Ruta"

    End Sub

'Imports System.Runtime.InteropServices

' Imports System.IO

Public Class Form1

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Hora.Text = Format(DateAndTime.TimeOfDay, "hh") & ":"

        Minutos.Text = Format(DateAndTime.TimeOfDay, "mm")

        Segundos.Text = Format(DateAndTime.TimeOfDay, "ss")

    End Sub

    Private Sub BtRestore_Click(sender As Object, e As EventArgs) Handles BtRestore.Click

        Me.WindowState = FormWindowState.Normal

        BtRestore.Visible = False

        BtMaximize.Visible = True

    End Sub

    Private Sub BtClose_Click(sender As Object, e As EventArgs) Handles BtClose.Click

        Application.Exit()

    End Sub

    Private Sub BtMaximize_Click(sender As Object, e As EventArgs) Handles BtMaximize.Click

        BtMaximize.Visible = False

        BtRestore.Visible = True

        Me.WindowState = FormWindowState.Maximized

    End Sub

    Private Sub BtMinimize_Click(sender As Object, e As EventArgs) Handles BtMinimize.Click

        Me.WindowState = FormWindowState.Minimized

    End Sub

    Dim DTA As New DataTable

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load

        DTA.Columns.Add("Ruta")

        DTA.Columns.Add("Fichero")

    End Sub

    Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick

        Dim Indicio As Integer = ListBox1.SelectedIndex

        Dim PDFExe As String = "AcroRd32.exe" ' El nombrer del lector pdf por defecto del sistema. AcroRd32 es AcrobatReader, Acrobat es Adobe Acrobat Pro

        Dim RutaDelFichero As String = DTA.Rows(Indicio)("Ruta")

        Dim FicheroPDF As String = DTA.Rows(Indicio)("Fichero")

        If System.IO.File.Exists(RutaDelFichero & "\" & FicheroPDF) Then  ' OK pero si nombre ne ListBox, entonces claro que existe ...

            System.Diagnostics.Process.Start(PDFExe, " " & RutaDelFichero & "\" & FicheroPDF)

        End If

    End Sub

' Aqui, no olvida cambiar la ruta "D:\Tmp\Eloy\"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For Each file As String In My.Computer.FileSystem.GetFiles("D:\Tmp\Eloy\", FileIO.SearchOption.SearchAllSubDirectories)

            DTA.Rows.Add(IO.Path.GetDirectoryName(file), IO.Path.GetFileName(file))

        Next

        ListBox1.DataSource = DTA

        ListBox1.DisplayMember = "Fichero"

        ListBox1.ValueMember = "Ruta"

    End Sub

End Class