Neue Datei anlegen

[Egypter]

Hi Leute!

Wie kann man überprüfen ob eine Datei vorhanden ist und falls dies nicht ist, diese zu erzeugen?

Ich habe gehört bzw. gesehen das dies mit der Programmzeile
object. new filesystemobject geht, was aber im Moment etwas zu kompliziert ist, gibt es einfachere Varianten dies zu umgehen?

Vielen Dank im voraus

 

[Dario Linsky]

Was ist Dir daran denn zu kompliziert?

Dim fso As FileSystemObject
Set fso = New FileSystemObject

If fso.Exists(dateiname) Then
  ' ...
End If

Die Methode dürfte Exists heißen, wenn ich mich richtig erinnere. Zumindest irgendwie so ähnlich.

 

[Bambusbieger]

Du kannst auch einfach schreiben:

If Dir$(Dateiname) <> "" Then
'...
End IF

Ausserdem heißt die Funktion FileExists und man muss noch die Microsoft Scripting Runtime einbinden. Deshalb ziehe ich das hier vor.

 

[Dario Linsky]

Dir$ ist IMHO nicht ganz praktisch, weil das eigentlich nicht für die Überprüfung von Dateien gemacht ist. Dazu kommt, dass das FSO einfach objektorientierter ist - was bei VB6 aber eigentlich ein Widerspruch in sich ist.