Function GetSize(size) Dim a, i a = Array("Bytes", "KB", "MB", "GB") Do While size > 1024 If i = UBound(a) Then Exit Do size = size/1024 i = i+1 Loop GetSize = Round(size, 2) & " " & a(i) End Function
Så må jeg selv hente point ind igen når der ikke er lagt svar
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.