Visual Basic Forum

AthlonX2 · Newbie Anmeldedatum: 01.05.2008 Beiträge: 13

Hey eine frage ich will den inhalt meiner 2 textboxen in meine txt abspeichern wie soll das ungefähr aussehen

Open "C:" & Environ("username") & ".txt" For Binary As #1 put #1 ,, text 1.text put #1,, text2.text close #1

bekomm da nämlich fehler:confused:

Danke Voraus
_________________

big earl · Poster Anmeldedatum: 01.05.2008 Beiträge: 113

also wennde den inhalt einer textdatei hast, würd ich eher Output nehmen, es sei den es sind nur zahlen

und Environ kannste auch als String deklaieren , dann haste es bischen übersichtlicher

Visual Basic: [code]Dim SaveFile as String

SaveFile = "C:" & Environ("USERNAME") & ".txt"

Open SaveFile for Output as #1
print #1 , Text1.Text
Close #1[/code]

das müsste es sein

AthlonX2 · Newbie Anmeldedatum: 01.05.2008 Beiträge: 13

hej thx jetzt gehts:)
noch eine frage das ganze soll jetzt als ne txt auf meinen ftp hochgeladen werden aber ich hab da ein problem bei dem ftp.PutFile path, datei da kommt immer variable nicht definiert:confused:

Visual Basic: [code]
Public Function FTPUpload(server As String, user As String, pass As String, path As String, file As String)

Dim ftp As myFtp
Set ftp = New myFtp

ftp.Connect server, user, pass
ftp.PutFile path, datei
ftp.DisConnect

End Function

Private Sub Command1_Click()
Dim SaveFile As String

SaveFile = "C:" & Environ("username") & ".txt"

Open SaveFile For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1
Call FTPUpload("xxxxxxe", "xxxxxxx", "xxxxxxx", Environ("C:"), Environ("username") & ".txt")
End Sub[/code]

noname · Poster Anmeldedatum: 30.04.2008 Beiträge: 131

Nimm mal bitte ganz schnell deine FTP Daten raus.

AthlonX2 · Newbie Anmeldedatum: 01.05.2008 Beiträge: 13

thx xD habs vergessen ^^
_________________

Regenwurm · Coder Anmeldedatum: 06.05.2008 Beiträge: 88

(AthlonX2;4545)

hej thx jetzt gehts:)
noch eine frage das ganze soll jetzt als ne txt auf meinen ftp hochgeladen werden aber ich hab da ein problem bei dem ftp.PutFile path, datei da kommt immer variable nicht definiert:confused:

Code:

Public Function FTPUpload(server As String, user As String, pass As String, path As String, file As String) Dim ftp As myFtp Set ftp = New myFtp ftp.Connect server, user, pass ftp.PutFile SaveFile ftp.DisConnect End Function Private Sub Command1_Click() Dim SaveFile As String SaveFile = "C:" & Environ("username") & ".txt" Open SaveFile For Output As #1 Print #1, Text1.Text Print #1, Text2.Text Close #1 Call FTPUpload("xxxxxxe", "xxxxxxx", "xxxxxxx", Environ("C:"), Environ("username") & ".txt") End Sub