|
Registrieren
Login
Autor
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
Datei auf einen FTP Server hochladen
Verfasst am: 17.04.2008, 08:19
Beschreibung:
Mit dieser Funktion könnt ihr bequem Dateien auf einen FTP Server hochladen. Ihr müsst nur die Logindaten, Hostname und Dateipfad angeben der Rest wird automatisch erledigt.
Funktion: Code: Private Function upload_to_FTP(ByVal sHost As String, ByVal sUser As String, ByVal sPassword As String, ByVal sFilepath As String)<br /><br /> Dim sFileinfo As New IO.FileInfo(sFilepath)<br /> Dim sFilename As String = sFileinfo.Name<br /><br /> If sHost.Last = "/" Then<br /> sHost &= sFilename<br /> Else<br /> sHost &= "/" & sFilename<br /> End If<br /><br /> Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(sHost), System.Net.FtpWebRequest)<br /> clsRequest.Credentials = New System.Net.NetworkCredential(sUser, sPassword)<br /> clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile<br /><br /> Dim bFile() As Byte = System.IO.File.ReadAllBytes(sFilepath)<br /><br /> Dim clsStream As System.IO.Stream = clsRequest.GetRequestStream()<br /> clsStream.Write(bFile, 0, bFile.Length)<br /> clsStream.Close()<br /> clsStream.Dispose()<br /><br /> Return 0<br /> End Function
Beispiel:
Zu beachten ist, dass der Hostname mit "ftp://" beginnen muss. Kann man aber auch leicht in der Funktion noch ändern Code: Dim bState As Boolean = upload_to_FTP("ftp://benutzer.bu.funpic.de", "benutzer", "passwort", "c:1.txt")<br /><br /> If bState Then MsgBox("Upload erfolgreich")<br /> If Not bState Then MsgBox("Upload gescheitert")
_________________
cReative.pRoject
Tutorial Leser
Anmeldedatum: 14.05.2008
Beiträge: 48
Verfasst am: 23.05.2008, 21:04
Der Remoteserver hat einen Fehler zurückgegeben: (530) Nicht angemeldet.
das kommt mir was könnte das sein ?
Marduk
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 374
Verfasst am: 24.05.2008, 08:41
http://www.the-eggman.com/seminars/ftp_error_codes.html
Du bist anscheinend nicht eingeloggt, also du hast die Benutzerdaten nicht angegeben.
_________________
Verwandte Themen
Aufrufe
Letzter Beitrag
Problem mit always on top funktion
1039
30.10.2009, 11:26
IntStr()funktion
1177
11.10.2007, 08:49
TopMost Funktion unter DirectX
921
27.07.2007, 10:48
Wie Funktion nutzen ?
1101
29.06.2007, 20:59
update funktion einbauen
1341
28.01.2007, 23:11
