Visual Basic Forum

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Name: CalculateSize
Funktion: Wandelt Größenangaben (Bytes) um in KB, MB etc.
Rückgabe: String (Beispiel: "17,25MB"

Beschreibung:
Mit Filelen() oder LOF() kann man die Größe einer Datei ermitteln.
In beiden Fällen bekommt man die Größe in Bytes zurück.

Die Funktion CalculateSize soll euch nun helfen, einfach und schnell die Größe als lesbares Format darstellen zu können.

Code:
Visual Basic: [code]
Public Function CalculateSize(ByVal iSize As Double) As String
On Error GoTo Err:
Dim i As Integer
Dim sArray(4) As String

sArray(0) = "Bytes"
sArray(1) = "KB"
sArray(2) = "MB"
sArray(3) = "GB"
sArray(4) = "TB"

i = 0
Do Until iSize < 1024
iSize = iSize / 1024
i = i + 1
Loop

CalculateSize = (Format$(iSize, "0.00")) & sArray(i)

Exit Function
Err:
CalculateSize = vbNullString
End Function
[/code]

hf, ZiG

Str0ke · Newbie Anmeldedatum: 30.07.2008 Beiträge: 1

hi.
danke Smile

aber wie benutzt ich das jetzt?

ich hab meinen dateipfad + namen in einer variablen gespeichert, und will jetzt die dateigröße berechnen lassen. aber wie müsste der befehl aussehen?^^

datei = "C:" & file1.filename

und weiter?^^

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

msgbox CalculateSize(filelen(datei))

igoe · Gast

nice, danke