Visual Basic 6: Dateien
Aus Wikibooks
Inhaltsverzeichnis |
[Bearbeiten] Ordner erstellen
FSO-Objekt erstellen und Ordner erzeugen:
Dim fso as object
fso=Createobject("scripting.filesystemobject")
fso.createfolder(path as string)
[Bearbeiten] TextFile erstellen
FSO-Objekt erstellen und File erzeugen:
Dim fso as object
fso=Createobject("scripting.filesystemobject")
fso.createtextfile(path as string)
[Bearbeiten] Existiert der Ordner/die Datei
Die Überprüfung sieht folgendermassen aus:
Dim fso as object
fso=Createobject("scripting.filesystemobject")
fso.folderexists(path as string) oder fso.fileexists(path as string)
[Bearbeiten] Datei beschreiben
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.
[Bearbeiten] Aus Datei lesen
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
