Wie verwende ich die Funktion FileLen in VBA?

In VBA (Visual Basic for Applications) wird die Funktion `FileLen` verwendet, um die Größe einer Datei in Bytes zu ermitteln. Hier ist ein grundlegendes Beispiel, wie du die Funktion `FileLen` verwenden kannst:

Sub BeispielFileLen() Dim Dateipfad As String Dim Dateigroesse As Long ' Dateipfad angeben Dateipfad = "C:Pfadzudeinerdatei.txt" ' Mit FileLen die Dateigröße ermitteln Dateigroesse = FileLen(Dateipfad) ' Ergebnis in einer Meldung anzeigen MsgBox "Die Größe der Datei beträgt " & Dateigroesse & " Bytes." End Sub

Schritte zur Verwendung der Funktion `FileLen`:

  • Pfad der Datei festlegen: Gib den vollständigen Pfad zur Datei an, deren Größe du ermitteln möchtest.
  • `FileLen` verwenden: Verwende die Funktion `FileLen`, indem du ihr den Dateipfad übergibst. Die Funktion gibt die Größe der Datei in Bytes als `Long` zurück.
  • Ergebnis verwenden: Das Ergebnis kann im Code weiterverwendet oder, wie im Beispiel, mit `MsgBox` angezeigt werden.

Hinweise:

Sub SichereFileLenVerwendung() Dim Dateipfad As String Dim Dateigroesse As Long ' Dateipfad angeben Dateipfad = "C:Pfadzudeinerdatei.txt" ' Fehlerbehandlung aktivieren On Error GoTo Fehlerbehandlung ' Mit FileLen die Dateigröße ermitteln Dateigroesse = FileLen(Dateipfad) ' Ergebnis in einer Meldung anzeigen MsgBox "Die Größe der Datei beträgt " & Dateigroesse & " Bytes." Exit Sub Fehlerbehandlung: MsgBox "Fehler: Die Datei konnte nicht gefunden werden oder der Pfad ist ungültig." End Sub
  • Stelle sicher, dass der Dateipfad korrekt ist und die Datei existiert, bevor du `FileLen` aufrufst, da sonst ein Fehler auftritt.
  • Du kannst `FileLen` auch in einer Umgebung mit Fehlerbehandlung verwenden, um besser mit potenziellen Fehlern umzugehen, falls die Datei nicht gefunden wird oder der Pfad ungültig ist. Hier ein einfaches Beispiel:

Diese erweiterte Version verhindert, dass das Skript abstürzt, wenn die Datei nicht existiert.

Unlock Your Potential

Excel

Basic - Advanced

Access

Access Basic - Advanced

Power BI

Power BI Basic - Advanced

Help us grow the project