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:	Views:  30.218
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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.
 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.