Dateigröße ermitteln (auch über 4 GB) Ermitteln der Dateigröße von Dateien, auch wenn diese größer als 4 GB sind
Autor:   MarkV	Bewertung:     [ Jetzt bewerten ]	Views:  30.914
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 21 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 2.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Um die Dateigröße insbesondere von Dateien über 2GB bzw. über 4GB zu ermitteln, kann man das FileSystemObject der Microsoft Scripting Runtime (Scrrun.dll) benutzen.

Einfach einen Verweis auf die Microsoft Scripting Runtime (Scrrun.dll) festlegen und nachfolgende Funktion verwenden:

' Dateigröße ermitteln
Public Function FileSize(ByVal sFile As String) As Double
  Dim objFso As FileSystemObject
  Dim objFile As File
 
  Set objFso = New FileSystemObject
  Set objFile = objFso.GetFile(sFile)
  FileSize = objFile.Size
  Set objFile = Nothing
  Set objFso = Nothing
End Function

Anmerkung: Meine Version beim Testen der Scrrun.dll war die Version 5.6.0.6626.