Dateien und Ordner #

Funktionen für den Zugriff auf das Dateisystem.

FileExists #

FileExists(Filename: String): Boolean

Prüft, ob eine Datei existiert.

Dim fn
fn = Client.Properties("Folder.Exe") & "Eulanda.ini"
If ellib.FileExists(fn) Then
  MsgBox "Konfigurationsdatei gefunden"
Else
  MsgBox "Keine Konfigurationsdatei vorhanden"
End If

FolderExists #

FolderExists(FolderName: String): Boolean

Prüft, ob ein Ordner existiert.

If ellib.FolderExists("C:\Export") Then
  MsgBox "Export-Ordner vorhanden"
End If

MakePath #

MakePath(Path: String): String

Erstellt einen Ordnerpfad einschließlich aller Zwischenverzeichnisse und gibt den Pfad zurück.

Dim exportPath
exportPath = ellib.MakePath("C:\Export\Rechnungen\2026")
' Alle Unterordner werden angelegt, falls nicht vorhanden

FileAvailable #

FileAvailable(Filename: String): Boolean

Prüft, ob eine Datei existiert und nicht von einem anderen Prozess gesperrt ist. Nützlich bei Dateien, die von externen Programmen geschrieben werden.

' Warten bis eine Datei vollständig geschrieben wurde
If ellib.FileAvailable("C:\Import\daten.csv") Then
  MsgBox "Datei ist bereit zur Verarbeitung"
End If

DeleteFile #

DeleteFile(Filename: String): Boolean

Löscht eine Datei. Gibt True zurück, wenn die Datei erfolgreich gelöscht wurde.

If ellib.DeleteFile("C:\Temp\export.xml") Then
  MsgBox "Temporäre Datei gelöscht"
End If

RenameFile #

RenameFile(OldName: String, NewName: String): Boolean

Benennt eine Datei um oder verschiebt sie.

ellib.RenameFile "C:\Import\neu.csv", "C:\Import\verarbeitet.csv"

FileIsReadOnly #

FileIsReadOnly(Filename: String): Boolean

Prüft, ob eine Datei schreibgeschützt ist.

FindFiles #

FindFiles(Path: String, Options: String): Variant

Sucht Dateien anhand eines Pfads mit Wildcard-Muster.

Dim files
files = ellib.FindFiles("C:\Export\*.xml", "")

AddBackslash #

AddBackslash(Path: String): String

Stellt sicher, dass ein Pfad mit einem Backslash endet.

Dim path
path = ellib.AddBackslash("C:\Export")
' Ergebnis: "C:\Export\"