Hallo Ich habe ine Problem, wo ich nicht weiterkomme.
Ich hab eine FTP Ordner wo ich Dateien runterladen möchte
Auf den FTP Ordner liegen verschieden Dateien. Dies klappt schon mal.
Ich möchte aber dei Anzahl der Dateien im FTP Ordner (ohne Unterordner ermiteln).
Also Download klappt in meinen Test Ordner.
Das löschen nach Downlaod der Datei im FTP Ordner habe habe ich noch nicht gelöst.
Das ermittel die Anzahl der Dateien hab Ich noch nicht gelöst.
Kann mir jemand einen Tipp geben?
*Topic verschoben*
Ich hab eine FTP Ordner wo ich Dateien runterladen möchte
Auf den FTP Ordner liegen verschieden Dateien. Dies klappt schon mal.
Ich möchte aber dei Anzahl der Dateien im FTP Ordner (ohne Unterordner ermiteln).
Also Download klappt in meinen Test Ordner.
Das löschen nach Downlaod der Datei im FTP Ordner habe habe ich noch nicht gelöst.
Das ermittel die Anzahl der Dateien hab Ich noch nicht gelöst.
Kann mir jemand einen Tipp geben?
VB.NET-Quellcode
- Dim url As String = "ftp://XXX.XXX.XXX.XXX/out/"
- Dim credentials As NetworkCredential = New NetworkCredential("XXXXXX", "XXXXX")
- Const localPath = "c:\Test\"
- Dim listRequest As FtpWebRequest = CType(WebRequest.Create(url), FtpWebRequest)
- listRequest.Method = WebRequestMethods.Ftp.ListDirectory
- listRequest.Credentials = credentials
- Dim latest As String = Nothing
- Using listResponse As FtpWebResponse = CType(listRequest.GetResponse(), FtpWebResponse),
- listStream As Stream = listResponse.GetResponseStream(),
- listReader As StreamReader = New StreamReader(listStream)
- While Not listReader.EndOfStream
- Dim filename As String = listReader.ReadLine()
- If filename.Contains("trip") Then
- Console.WriteLine("Found {0} ...", filename)
- If (latest Is Nothing) OrElse (latest < filename) Then
- latest = filename
- End If
- End If
- End While
- End Using
- If Not latest Is Nothing Then
- Console.WriteLine("Downloading {0} ...", latest)
- Dim webClient As New WebClient()
- webClient.Credentials = credentials
- webClient.DownloadFile(url + latest, Path.Combine(localPath, latest))
- End If
- End Sub
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()