Die nachfolgende Funktion liefert die Größe einer ausgewählten Datei in Bytes an. Alternativ kann man das Ergebnis durch 1024 dividieren, um eine Zahl in kBytes zu erhalten.

Als Übergabeparameter dient die Variable sFile als String, in der der gesamte Dateipfad einghalten sein muß (z.B. “C:\Test.txt”).

Public Function FileSize(ByVal sFile As String) As Long

On Error GoTo Errr

  Dim Size As Long

  Size = FileLen(sFile)
  FileSize = IIf(Err = 0, Size, -1)

Exit_Click:
   Exit Function
Errr:
   MsgBox Err.Number & Err.Description
Resume Exit_Click
 
End Function

Hinterlasse eine Antwort

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind markiert *

Du kannst folgende HTML-Tags benutzen: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>