<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
        <sectionGroup name="applicationSettings" _
          type="System.Configuration.ApplicationSettingsGroup, System," & _
          "Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
            <section name="WindowsApplication1.My.MySettings" _
            type="System.Configuration.ClientSettingsSection, System," & _
            "Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" _
            requirePermission="false" />
        </sectionGroup>
    </configSections>
    <system.diagnostics>
        <sources>
            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration _
              für My.Application.Log -->
            <source name="DefaultSource" switchName="DefaultSwitch">
                <listeners>
                    <add name="FileLog"/>
                    <!-- Auskommentierung des nachfolgenden Abschnitts _
                      aufheben, um in das Anwendungsereignisprotokoll zu _
                      schreiben -->
                    <!--<add name="EventLog"/>-->
                </listeners>
            </source>
        </sources>
        <switches>
            <add name="DefaultSwitch" value="Information" />
        </switches>
        <sharedListeners>
            <add name="FileLog"
                 type="Microsoft.VisualBasic.Logging.FileLogTraceListener," & _
                   "Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral," & _
                   "PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
                 initializeData="FileLogWriter"/>
            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und _
              APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in _
              das Anwendungsereignisprotokoll zu schreiben -->
            <!--<add name="EventLog" _
            type="System.Diagnostics.EventLogTraceListener" _
            initializeData="APPLICATION_NAME"/> -->
        </sharedListeners>
    </system.diagnostics>
    <applicationSettings>
        <WindowsApplication1.My.MySettings>
            <setting name="SuchPfad" serializeAs="String">
                <value>C:\</value>
            </setting>
        </WindowsApplication1.My.MySettings>
    </applicationSettings>
</configuration>

Public Class Form1
 
    Private bgwFertig As Boolean
    Private files As System.Collections.ObjectModel.ReadOnlyCollection(Of _
      String)
 
    'Dim SuchPfad As String
    Dim sFile As String
 
 
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        'SuchPfad = "Z:\INT\Data\CustomerSolutions\Systems\DE_SY"
 
        Button2.Enabled = False
        files = Nothing
        bgwFertig = False
 
        'Dim sPath As String = My.Settings.SuchPfad
        Dim sPath As String = My.Settings.SuchPfad
 
        Dim sParam As String = "*" & TextBox1.Text & "*.pdf"
 
        bgw.RunWorkerAsync(New String() {sPath, sParam})
 
        While Not bgwFertig
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
        End While
 
        If files Is Nothing OrElse files.Count = 0 Then
            MsgBox("Nix gefunden")
            Return
        End If
 
        For Each sFile In files
            ' Dateien zeigen
            ListBox1.Items.Add(sFile)
        Next
 
        Button2.Enabled = True
 
    End Sub
 
    Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
        files = My.Computer.FileSystem.GetFiles(e.Argument(0), _
        FileIO.SearchOption.SearchAllSubDirectories, e.Argument(1))
    End Sub
 
    Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As _
      System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
      bgw.RunWorkerCompleted
        bgwFertig = True
    End Sub
 
 
 
 
 
 
End Class