Verständniss Porblem mit FSO

[deven]

Hallo Leute

Also zuerst mal den Code:

   Dim fso As New FileSystemObject, newDB
------------------------------------------------------

(...)


 Else

    MkDir (var_path & "\vars")

    Set newDB = fso.CreateTextFile(var_path & "\vars\databases.txt", True)
        
    	Open (var_path & "\vars\databases.txt") For Output As #F

		Print #F, new_db
	
	Close #F
    
 End If

(...)

Also mein Probelm is jetzt, dass die Datei (databases.txt) die ich eben erzeugt habe, gar nicht zum schreiben verfügbar ist. Ich kann also keine neuen Einträge darin machen. Auch wenn ich zuerst eine andere Forum aufrufe (frm_newdb.show) geht das ganze nicht. Meine Frage: Wer weiss an was es liegt?

mfg Borni

 

[mage]

Du öffnest die Datei ja auch für das Lesen "OUTPUT".

Ein Beispiel aus der MS Dokumentation für den Windows Skripting Host.

Sub OpenTextFileTest
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
   f.Write "Hello world!"
   f.Close
End Sub

Onlinedokumentation

 

[deven]

THX an mage.

also das mit ouput war ein fehler meinerseits, hab einfach code zusammenkopiert und nicht mehr darauf geachtet. also an dem liegt der Fehler nicht.
der code hat mir allerdings geholfen. danke dir!