Datei uploaden mit FTP

[Papa_Noah]

hallo,
solche themen gab es zwar schon öfters hier aber ich habe nie eine Lösung für mein Problem gefunden.
Also:
ich möchte in einer kleinen VB-Anwendung einen automatischen upload alle 1h der datei "C:\x.txt" machen. Kann mir wer helfen? das winsock-zeug usw. is für mich alles zu komplieziert (arbeite erst seid kurzem mit VB). Vielleicht hat ja wer nen kompletten code für mich....

es würde aber auch gut über email gehen, also dass mir die datei per mail geschickt wird....

thx für jede hilfe!

lg Papa_Noah

 

[motoys]

hi hab dan proggie für dich gebastelt

der source-code ist allerdings abscheulich unstrukturiert

bei probs meld dich einfach

viel erfolg

 

[Rift]

ich glaube am besten nimmste dafür vb.net...

Private Sub Upload()
Dim nError As Integer
Dim strHostName As String
Dim strDirectory As String
Dim username As String
Dim passwort As String
Dim nRemotePort As Integer

'// Verbindungsoptionen

strHostName = "localhost" 'Ftp-Adresse eintragen
nRemotePort = Val(Trim("21")) 'Ftp-Datenport festlegen
username = "User" 'Ftp-Username
passwort = "Passwort" 'Ftp-Passwort
Stop
If sockCmd.Connected Then
nError = sockCmd.Disconnect
If (nError <> 0) Then
MsgBox "Verbindung konnte nicht getrennt werden. (Fehler: " & nError & " )"
End If
Else

' Verbindung aufbauen
If Not FtpConnect(strHostName, nRemotePort) Then
MsgBox "Konnte keine Verbindung zu " & strHostName & " aufbauen."
Exit Sub
End If

' In den Server einloggen
If Not FtpLogin(Trim$(username), Trim$(passwort)) Then
sockCmd.Action = SOCKET_DISCONNECT
MsgBox "Login Daten fehlerhaft", vbExclamation, "FTP"
Exit Sub
End If

End If

'===== Datei hochladen =====

Dim strLocalFile As String
Dim strRemoteFile As String
Dim bTransfered As Boolean
Dim bCanceled As Boolean

' Prüfen, ob ein Transfer in Arbeit ist
If sockData.State <> SOCKET_UNUSED Then
sockData.Action = SOCKET_ABORT
bCanceled = True
Exit Sub
End If

strLocalFile = Trim(App.Path & "\file.rar")
strRemoteFile = Trim("\file.rar")

und dazu baust du dann einen timer in deinen source code ein, und machst die aktion, die im Zitat steht vom Timer abhänig.
Wenn du kein Visual Studio.NET hast, kannste das auch mit SharDevelop ausprobieren.

Hoffe ich konnte helfen!

 

[hermann123]

Hallo, Leute!
Ich bin auch neu in VB und brauche eigentlich nur eine Vereinfachung des o.g. Programmes, weiß aber nicht, was man weglassen muss, damit es noch :

Es soll aus einer Textzeile, einer Schaltfläche "Durchsuchen" und einer Schaltfläche "Hochladen" bestehen. Der Server, Benutzername und Passwort bleiben immer gleich, die hochzuladende Datei soll aber über "Durchsuchen" ausgewählt werden können (und in der Textzeile soll der Pfad angezeigt werden).
Ich hoffe, jemand von euch könnte das mal schnell proggen ... )
Gruß und Dank im Voraus...