Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sehr unsauber aber geht zuverlässeig ....
Autor: Andi2_bln
Datum: 26.08.11 14:15
Try Dim Rdr As New StreamReader(datei) Dim DSchr() As String, i As Integer = 0 Dim InpStr As String = vbNullString Dim tmp As String InpStr = Rdr.ReadToEnd Rdr.Close() InpStr = Right(InpStr, InpStr.Length - 64) ' Header abschneiden If InStr(1, InpStr, "\\") > 0 Then DSchr = Split(InpStr, "\\") For i = 0 To DSchr.Length - 1 If InStr(1, DSchr(i), Chr(0)) > 0 Then tmp = "\\" & Split(DSchr(i), Chr(0))(0) Debug.Print(tmp) If System.IO.Directory.Exists(tmp) Then If InStr(1, LCase(tmp), "flightrecorder") > 0 Then Return tmp End If End If End If Next i Else Return vbNullString End If Catch ex As Exception Return vbNullString End Try Der Weg ist weit und steinig .. (

Link auf Datei auslesen, scheitere im Netzwerk, vielleicht k...	2.044	Andi2_bln	25.08.11 13:04
Re: Link auf Datei auslesen, scheitere im Netzwerk, vielleic...	1.262	DaveS	25.08.11 13:29
Re: Link auf Datei auslesen, scheitere im Netzwerk, vielleic...	1.354	Andi2_bln	26.08.11 10:06
Re: Link auf Datei auslesen, scheitere im Netzwerk, vielleic...	1.258	Andi2_bln	26.08.11 11:18
Re: Link auf Datei auslesen, scheitere im Netzwerk, vielleic...	1.248	DaveS	26.08.11 12:58
Re: Link auf Datei auslesen, scheitere im Netzwerk, vielleic...	1.280	Andi2_bln	26.08.11 13:06
sehr unsauber aber geht zuverlässeig ....	1.343	Andi2_bln	26.08.11 14:15

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen