Dim Ordner As String="C:\Deinordner"
Dim DeinString As String="DeinSuchbegriff"
Dim PfadZumPDFReader As String="C:\Program Files (x86)\Adobe\Acrobat Reader" & _
  "DC\Reader\AcroRd32.exe"
 
For Each fil As String In System.IO.Directory.GetFiles(Ordner)
If fil.Contains(DeinString) Then
Process.Start(PfadZumPDFReader, fil)
End If
Next

EALA FREYA FRESENA

    Private Sub Timer_MultiClick_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer_MultiClick.Tick
 
        Timer_MultiClick.Stop()
        Cursor.Current = Cursors.Hand
 
        Dim Project As String = ""
        Dim folder As String = ""
        Dim Laufwerk As String = "Z:\INT\Data\CustomerSolutions\CS\"
        Dim path_quotation As String = ""
        Dim Laufwerk_engineering As String = "\1_Engineering"
        Dim Laufwerk_quotation As String = "\1.5_Quotation_to_customer\"
        Dim DeinString As String = Me.PlanningGuideDataDataGridView.Rows( _
          Me.PlanningGuideDataDataGridView.CurrentRow.Index).Cells(GetColumnNo( _
          "Quotation")).Value.ToString()
        'Example: 
        ' Z:\INT\Data\CustomerSolutions\CS\G1_CS\15464xx\1546468\A\1_Engineerin
        ' g\1.1_Inquiry_Specification
 
        If Me.PlanningGuideDataDataGridView.CurrentCell.ColumnIndex = "41" Then _
               'Column Quotation
            If Me.PlanningGuideDataDataGridView.CurrentCell.Value.ToString _
            <> "" Then
                Project = Me.PlanningGuideDataDataGridView.Rows( _
                Me.PlanningGuideDataDataGridView.CurrentRow.Index).Cells( _
                Me.GetColumnNo("Project")).Value.ToString()
                If Microsoft.VisualBasic.Len(Project) = 7 Then
                    folder = Microsoft.VisualBasic.Left(Project, 5) + "xx"
                    path_quotation = Laufwerk + "\" + _
                      Me.PlanningGuideDataDataGridView.Rows( _
                      Me.PlanningGuideDataDataGridView.CurrentRow.Index).Cells( _
                      Me.GetColumnNo("Land")).Value.ToString() + "\" + folder + _
                      "\" + Project + "\" + _
                      Me.PlanningGuideDataDataGridView.Rows( _
                      Me.PlanningGuideDataDataGridView.CurrentRow.Index).Cells( _
                      Me.GetColumnNo("Version")).Value.ToString() + "\" + _
                      Laufwerk_engineering + Laufwerk_quotation
                    For Each file As String In System.IO.Directory.GetFiles( _
                    path_quotation)
                        If file.Contains(DeinString) And file.EndsWith("pdf") _
                        Then
                            Process.Start(file)
                        End If
                    Next
                End If
            End If
        End If
 
    End Sub

                    'Me.PlanningGuideDataDataGridView.CurrentCell = 
                    ' Me.PlanningGuideDataDataGridView.Rows( 
                    ' Me.CellRowIndex).Cells(40)
                    'Me.PlanningGuideDataDataGridView.CurrentCell = 
                    ' Me.PlanningGuideDataDataGridView.Rows( 
                    ' Me.CellRowIndex).Cells(41)
                    'Me.PlanningGuideDataDataGridView.Rows( 
                    ' Me.CellRowIndex).Cells(41).Selected = True