Hallo zusammen,
ich stehe aktuell vor ein Problem das eigentlich nicht sein dürfte.
Ich möchte eine Datei von meinem FTP Server Downloaden.
Diese Datei soll dann bearbeitet werden und wieder hochgeladen werden.
Ingrundegenommen sollte es ja wie gesagt funktionieren.
Es wird nur jedes mal der Fehler (550) ausgegeben, der bedeutet dass die Datei nicht gefunden wurde
oder keine Berechtigung hat. Das ist allerdings komisch, da es die Datei auf dem Server ja gibt und diese hat auch alle Rechte. (0777)
Und was noch zu sagen ist, dass die Datei vom Namen in dem Ordner den ich auf dem Computer habe erstellt wird aber nur als leere Datei.
Mein Code:
ich stehe aktuell vor ein Problem das eigentlich nicht sein dürfte.
Ich möchte eine Datei von meinem FTP Server Downloaden.
Diese Datei soll dann bearbeitet werden und wieder hochgeladen werden.
Ingrundegenommen sollte es ja wie gesagt funktionieren.
Es wird nur jedes mal der Fehler (550) ausgegeben, der bedeutet dass die Datei nicht gefunden wurde
oder keine Berechtigung hat. Das ist allerdings komisch, da es die Datei auf dem Server ja gibt und diese hat auch alle Rechte. (0777)
Und was noch zu sagen ist, dass die Datei vom Namen in dem Ordner den ich auf dem Computer habe erstellt wird aber nur als leere Datei.
Mein Code:
VB.NET-Quellcode
- If System.IO.Directory.Exists("c:\test") = False Then
- System.IO.Directory.CreateDirectory("c:\test")
- End If
- 'Download Start
- My.Computer.Network.DownloadFile("ftp://SERVER/pfad/aktuell.txt", "C:\test\aktuell.txt", My.Settings.ftp_username, My.Settings.ftp_password) 'Hier hat er direkt schon ein Problem...Nur wird eben die Datei vom Namen "aktuell.txt" erstellt aber leer. Angeblich keine Rechte oder nicht vorhanden.
- My.Computer.Network.DownloadFile("ftp://SERVER/pfad/change.txt", "C:\test\change.txt", My.Settings.ftp_username, My.Settings.ftp_password)
- My.Computer.Network.DownloadFile("ftp://SERVER/pfad/von.txt", "C:\test\von.txt", My.Settings.ftp_username, My.Settings.ftp_password)
- 'Download Ende
- Dim tag_jetzt As String = Date.Now.Day
- Dim monat_jetzt As String = Date.Now.Month
- Dim jahr_jetzt As String = Date.Now.Year
- Dim stunde_jetzt As String = Date.Now.Hour
- Dim minute_jetzt As String = Date.Now.Minute
- Dim datum_format As String = tag_jetzt & "." & monat_jetzt & "." & jahr_jetzt
- Dim uhr_format As String = stunde_jetzt & ":" & minute_jetzt
- My.Computer.FileSystem.WriteAllText("C:\test\aktuell.txt", "test", False)
- My.Computer.FileSystem.WriteAllText("C:\test\change.txt", "am " & datum_format & " um " & uhr_format & " Uhr", False)
- My.Computer.FileSystem.WriteAllText("C:\test\von.txt", My.Settings.unadatasafe, False) 'My.Settings.unadatasafe = Username der da eingetragen wird. Bsp.: Mustermann
- 'Upload Start
- My.Computer.Network.UploadFile("C:\test\aktuell.txt", "ftp://SERVER/pfad/aktuell.txt", My.Settings.ftp_username, My.Settings.ftp_password)
- My.Computer.Network.UploadFile("C:\test\change.txt", "ftp://SERVER/pfad/change.txt", My.Settings.ftp_username, My.Settings.ftp_password)
- My.Computer.Network.UploadFile("C:\test\von.txt", "ftp://SERVER/pfad/von.txt", My.Settings.ftp_username, My.Settings.ftp_password)
- 'Upload Ende