Public Function Para_auslesen()
        Dim myStreamReader As IO.StreamReader
        Dim Einzelzeile As String
        Dim TextNachGleichheitszeichen As String
        Dim TextVorGleichheitszeichen As String
 
        Dim strMeldedatei as string ="DEINE DATEI DIE GELESEN WERDEN SOLL"
 
        myStreamReader = New StreamReader(strMeldedatei, _
          System.Text.Encoding.Default, True)
 
        Do Until myStreamReader.EndOfStream
            Einzelzeile = myStreamReader.ReadLine
 
            Dim Position As Integer = Einzelzeile.IndexOf("=")
            If Position >= 0 Then
                TextVorGleichheitszeichen = Einzelzeile.Substring(0, Position)
                TextNachGleichheitszeichen = Einzelzeile.Substring(Position + 1)
            Else
                TextVorGleichheitszeichen = Einzelzeile
                TextNachGleichheitszeichen = String.Empty
            End If
 
            Select Case TextVorGleichheitszeichen
                Case "pfad"  
                    pfad = TextNachGleichheitszeichen
 
            End Select
        Loop
        myStreamReader.Close()
 
 
        Return pfad
 
 
    End Function

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET