Visual Basic 6: Dateien

Ordner erstellen

FSO-Objekt erstellen und Ordner erzeugen:

Dim fso as object

set fso=Createobject("scripting.filesystemobject")

fso.createfolder(path as string)

FSO-Objekt erstellen und File erzeugen:

Dim fso as object

set fso=Createobject("scripting.filesystemobject")

fso.createtextfile(path as string)

Die Überprüfung sieht folgendermassen aus:

Dim fso as object

set fso=Createobject("scripting.filesystemobject")

fso.folderexists(path as string) oder fso.fileexists(path as string)

Wenn sie in eine Datei etwas hineinschreiben wollen können sie das File folgendermassen öffnen und beschreiben:

FileOpen(1, path as string, openmode)

Print(1, string)

FileClose(1)

Der OpenMode.Append fügt einen String zu einer Datei dazu, der OpenMode.Output löscht das Vorhandene und schreibt das Neue hinein.

Aus einer Datei lesen kann man wiederum mit einem FSO-Objekt. Dazu öffnet man die Datei und zerlegt sie in Strings:

Dim fso as object

Dim fsofile as object

Dim str1() as string

Set fso=createobject("scripting.filesystemobject")

Set fsofile=fso.opentextfile(path as string)

str1()=split(fsofile.readall, vbcrlf)

fsofile.close