Открыть папку в проводнике программно

Process.Start("c:\Papka")

Process.Start("c:\Papka")

Dim FName As String = "c:\Papka\" & "имя загруженного файла"
Shell("explorer /select," & FName, vbNormalFocus)

System.Diagnostics.Process.Start("explorer", "/select, " & path)
' path - полный путь к файлу

Dim Filename As String = "d:\Temp\Supertemp\123,456\file.txt"
Process.Start("explorer", "/select, """ & Filename & """")

Dim Filename As String = "d:\Temp\Supertemp\123,456\file.txt"
Process.Start("explorer", "/select, """ & Filename & """")

Friend Sub SelectFiles()
        Dim path As String = "D:\DATA\" ' ваша папка с файлами 
        If Directory.Exists(path) = True Then
            Dim dirs As String() = Directory.GetDirectories(path)
            For Each subdirs As String In dirs 'Выбираем поддирректории
                Dim dirInfo As New DirectoryInfo(subdirs)
                Dim files() As FileSystemInfo = dirInfo.GetFiles
                For Each sf In files
                        Dim strpath As String = subdirs
                        Dim item1 As New ListViewItem(dirInfo.Name, 0)
                        item1.SubItems.Add(sf.FullName.ToString)
                        item1.SubItems.Add(sf.LastWriteTime)
                        frmPrice.lstSelectPrice.Items.AddRange(New ListViewItem() {item1})
                Next
            Next
        End If
    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For a = 0 To ListView1.Items.Count - 1
 
            If ListView1.Items(a).Checked = True Then
                ' Здесь обработка выбранного файла   
            End If
        Next
    End Sub

Dim FName As String = "C:\Users\файлы\51.zip"
Process.Start("explorer", "/select, """ & FName & """")