hallo,
Ich habe ein kleines Problem das ich nicht hinbekomme.
Auf einen FTP Ordner will mehrere Dateien Downloaden.
Dies klappt auch wunderbar, aber es gibt eine Datei auf den FTP Verzeichnis mit "ü"
hier kommt es immer zu diesen Sonderzeichen "�". bei der ermittlngen des Namen.
Konvertierung in UTF8,usw habe ich versucht, es ist immer das gleiche es ändert sich nur der String mit einen (?)
So kommt es nach den Auslesen
"Tour�bersicht_Vormonat_2017_09_08_144830.xlsx"
Das ist das Orginal
"Tourübersicht _Vormonat_2017_09_08_144830.xlsx"
Hat jemand einen kleinen Tip für mich?
Hier versuche den String zu konvertieren, Gibt es da einen Trick oder einen kleine Hilfe.
Es wird aus den Zeichen "�" das Zeichen "(?)"
und der Rest...
Ich habe ein kleines Problem das ich nicht hinbekomme.
Auf einen FTP Ordner will mehrere Dateien Downloaden.
Dies klappt auch wunderbar, aber es gibt eine Datei auf den FTP Verzeichnis mit "ü"
hier kommt es immer zu diesen Sonderzeichen "�". bei der ermittlngen des Namen.
Konvertierung in UTF8,usw habe ich versucht, es ist immer das gleiche es ändert sich nur der String mit einen (?)
So kommt es nach den Auslesen
"Tour�bersicht_Vormonat_2017_09_08_144830.xlsx"
Das ist das Orginal
"Tourübersicht _Vormonat_2017_09_08_144830.xlsx"
Hat jemand einen kleinen Tip für mich?
VB.NET-Quellcode
- Sub Download()
- ' Prüfen wie viel Dateien da sind
- AnzahlFiles()
- If filesCount > 0 Then
- End If
- Dim i As Integer
- For i = 0 To filesCount
- Dim url As String = "ftp://XXX.XXX.XXX.XXX/Reports/"
- Dim credentials As NetworkCredential = New NetworkCredential("XXXXXXX", "XXXXX")
- Const localPath = "\\server3\Apps0002\Poeppel_Reports\"
- 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("Tou") Then
- Console.WriteLine("Found {0} ...", filename)
- If (latest Is Nothing) OrElse (latest < filename) Then
- latest = filename
- End If
- End If
- End While
- End Using
Hier versuche den String zu konvertieren, Gibt es da einen Trick oder einen kleine Hilfe.
Es wird aus den Zeichen "�" das Zeichen "(?)"
und der Rest...
VB.NET-Quellcode
- 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))
- ' Löschen der Datei
- Dim request As Net.FtpWebRequest = CType(Net.FtpWebRequest.Create("ftp://XXX.XXX.XXX.XXX/Reports/" & latest), FtpWebRequest)
- request.Method = Net.WebRequestMethods.Ftp.DeleteFile
- request.Credentials = New Net.NetworkCredential("XXXXXXXXX", "XXXXXXX")
- Dim response As Net.FtpWebResponse = CType(request.GetResponse(), FtpWebResponse)
- End If
- filesCount = filesCount - 1
- Next i
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „jnpanzer“ ()