'-------------------------------------------------------
        'DLLs einlesen
        '-------------------------------------------------------
        Dim oDlls() As String
        Dim stream As FileStream
 
        If Directory.Exists(pfad1) Then
            oDlls = Directory.GetFileSystemEntries(pfad1, "*.DLL")
            stream = New FileStream("c:\ServerScanReport.txt", FileMode.Create)
        ElseIf Not Directory.Exists(pfad1) Then
            MsgBox("Es ist ein Fehler aufgetreten")
            Exit Sub
        End If
 
        Dim oStrWriter As New StreamWriter(stream)
 
        oStrWriter.WriteLine("Hier finden sie sämtliche DLLs, welche in die" & _
          "Datenbank gespeichert wurden")
        Dim i As Integer = 0
        i = 0
 
        Dim SQLdll As String
        Dim SQLver As String
        Dim connString As String
 
        For i = 0 To oDlls.Length - 1
 
            SQLdll = "INSERT INTO tbl_DLL" & "(DLL) " & "VALUES('" & oDlls(i) & _
              "')"
            oCMD = New SqlCommand(SQLdll, conn)
            oCMD.ExecuteNonQuery()
        Next
        oStrWriter.Close()