Rubrik: Dateisystem · Dateien allgemein | VB-Versionen: VB4, VB5, VB6 | 01.11.00 |
Größe einer Datei ermitteln Mit Hilfe dieser Funktion wird die exakte Dateigröße einer Datei ermittelt (in Bytes). | ||
Autor: Dieter Otter | Bewertung: | Views: 38.362 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
In so manchen Fällen ist es notwendig oder erforderlich die Größe einer Datei zu ermitteln. Die nachfolgende Funktion ermittelt die Größe einer bestimmten Datei und gibt diese als Long-Wert zurück. Besonderheit: Existiert die Datei nicht, so wird -1 zurückgegeben.
Public Function FileSize(ByVal sFile As String) As Long ' Der Parameter sFile enthält den zu prüfenden Dateinamen Dim Size As Long On Local Error Resume Next Size = FileLen(sFile) FileSize = IIf(Err=0, Size, -1) On Local Error Goto 0 End Function