Auslesen eines FTP Directories

12/02/2010 - 11:51 von Stefan Augendoppler | Report spam
Hallo,
Ich bin jetzt schon eine ganze Weile auf der Suche nach einer Lösung zu
folgendem Problem.
Ich möchte mir den Inhalt eines Verzeichnisses auf einem FTP Server anzeigen
lassen. Das ganze funktioniert im Prinzip ganz gut, solange ich nicht hinter
einem PROXY-Server sitze.
Dann bekomme ich den Verzeichnisinhalt nàmlich als nur mehr als html
Dokument zurück. Wie kann ich nun aus diesem html Dokument die einzelnen
Dateien des Verezeichnis auslesen.

Vielen Dank im Voraus

lg
Stefan
 

Lesen sie die antworten

#1 Nase
12/02/2010 - 14:43 | Warnen spam
On 12 Feb., 11:51, Stefan Augendoppler
wrote:
Hallo,
Ich bin jetzt schon eine ganze Weile auf der Suche nach einer Lösung zu
folgendem Problem.
Ich möchte mir den Inhalt eines Verzeichnisses auf einem FTP Server anzeigen
lassen. Das ganze funktioniert im Prinzip ganz gut, solange ich nicht hinter
einem PROXY-Server sitze.
Dann bekomme ich den Verzeichnisinhalt nàmlich als nur mehr als html
Dokument zurück. Wie kann ich nun aus diesem html Dokument die einzelnen
Dateien des Verezeichnis auslesen.

Vielen Dank im Voraus

lg
Stefan



Hallo

Du musst dem Server einen FTP Befehl übermitteln.


''' <summary>
''' Return a simple directory listing
''' </summary>
''' <param name="directory">Directory to list, e.g. /pub</
param>
''' <returns>A list of filenames and directories as a List(of
String)</returns>
''' <remarks>For a detailed directory listing, use
ListDirectoryDetail</remarks>
Public Function ListDirectory(Optional ByVal directory As
String = "") As List(Of String)
'return a simple list of filenames in directory
Dim ftp As Net.FtpWebRequest GetRequest(GetDirectory(directory))
'Set request to do simple list
ftp.Method = Net.WebRequestMethods.Ftp.ListDirectory

Dim str As String = GetStringResponse(ftp)
'replace CRLF to CR, remove last instance
str = str.Replace(vbCrLf, vbCr).TrimEnd(Chr(13))
'split the string into a list
Dim result As New List(Of String)
result.AddRange(str.Split(Chr(13)))
Return result
End Function

Ähnliche fragen