Inhalt einer Variabel in eine txt Datei schreiben

V

ValhallasRaben

Grünschnabel
Hallo zusammen

Ich möchte mit dem folgenden Code den Inhalt einer Variabel in eine txt Datei schreiben. Leider funktioniert es nicht.

Code: 
pfad = "E:\test.txt"
Open pfad For Output As #F
Print #F, liste
Close #F

Die Variable liste beinhaltet Ordnernamen.

Kann mir jemand helfen?
Danke schon im voraus...
 
Hi :)

also endweder du schreibst es so:

Visual Basic: 
pfad="X:\Blabla.txt"
f = FreeFile
Open pfad For Output As #f
Print #f, liste
Close #f

oder so:

Visual Basic: 
pfad="X:\Blabla.txt"
Open pfad For Output As #1
Print #1 liste
Close #1

Dann müsste es funktionieren :)

mfG Masterclavat
 
achtung anfängerin:
ich habe das obige soweit befolgt, der code sieht so aus, aber es wird nix in die txt.datei abgelegt:
Code: 
Private Sub TWB_Click()
Dim prompt As String
Dim drin As Boolean
pfadnameTwb = FrmStart.Import_Pfad
prompt = App.Path + "\pfad.txt": drin = False
Open prompt For Output As #1
Write #1,
Close #1
End Sub
ich habe im pfadnamentwb den pfad abgelegt, der vom anwender eingegeben wird..dieser pfad soll in die pfad.txt abgelegt werden, es tut sich aber nichts.
vielen dank für dieses forum, das beste was es gibt! (bitte beachten, dass ich anfängerin bin!)
 
Du schreibst ja auch nichts.

Wenn schon, dann musst die Write-Zeile erweitert werden:


Code: 
Write #1, pfadnameTwb

Woher soll das Programm sonst wissen, WAS es schreiben soll?

Grüsse
ronaldh
 
ok
nun kommt auch schon meine zweite frage:
das was ich in der pfad.txt im vorigen schritt abgelegt habe, soll beim nächsten laden der applikation eingelesen werden. Denn wenn ich das programm wiederholt ausführe, wird nicht berücksichtigt, dass ich den pfad in pfad.txt bereits abgelegt habe...
das folgende habe ich gebastelt, funktioniert natürlich nicht..
Code: 
Private Sub MDIForm_Load()
Dim prompt As String
prompt = App.Path + "\pfad.txt": 
Open prompt For Input As #1
Input #1, pfadnameTwb
Close #1

End Sub
hoffe ihr habt mich verstanden

macht mich jetzt bitte nicht fertig :confused:
 
Ich weiß nicht, was genau Dein Problem ist, beziehungsweise was genau nicht funktioniert.

Aber vielleicht fehlt ganz einfach die Zuweisung an Dein Formular?

Code: 
Private Sub MDIForm_Load()
  Dim prompt As String
  prompt = App.Path + "\pfad.txt": 
  Open prompt For Input As #1
  Input #1, pfadnameTwb
  Close #1
  FrmStart.Import_Pfad = pfadnameTwb
End Sub

Oder bekommst Du irgendwelche Fehlermeldungen (wenn ja, welche?) ?

Grüsse
ronaldh
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück