Inhalt einer Variabel in eine txt Datei schreiben

[ValhallasRaben]

Hallo zusammen

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

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

 

[Masterclavat]

Hi

also endweder du schreibst es so:

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

oder so:

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

Dann müsste es funktionieren

mfG Masterclavat

 

[ronaldh]

Ist "liste" denn eine String-Variable? Oder verbirgt sich dahinter eine Listbox?

 

[rihab79]

achtung anfängerin:
ich habe das obige soweit befolgt, der code sieht so aus, aber es wird nix in die txt.datei abgelegt:

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!)

 

[ronaldh]

Du schreibst ja auch nichts.

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

Write #1, pfadnameTwb

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

Grüsse
ronaldh

 

[rihab79]

jippppi, vielen lieben herzlichen großen mega DANK

 

[ronaldh]

Gern geschehen! Übrigens herzlich Willkommen hier im Forum!

Grüsse
ronaldh

 

[rihab79]

danke! werdet mich jetzt wohl öfter zu gesicht bekommen

 

[rihab79]

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

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

 

[ronaldh]

Ich weiß nicht, was genau Dein Problem ist, beziehungsweise was genau nicht funktioniert.

Aber vielleicht fehlt ganz einfach die Zuweisung an Dein Formular?

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