tjekke størrelse på fil

Function FileSize(File As String) As String
Dim LSize As String
If File = \"\" Then
FileSize = \"\"
Exit Function
End If
LSize = FileLen(File)
FileSize = LSize
End Function

Private Sub Command1_Click()
MsgBox FileSize(\"c:\\windows\\explorer.exe\")
End Sub

hvis du vil have det til at se ordenligt ud kan du bruge:
Private Declare Function StrFormatByteSize Lib _
    \"shlwapi\" Alias \"StrFormatByteSizeA\" (ByVal _
    dw As Long, ByVal pszBuf As String, ByRef _
    cchBuf As Long) As String

Public Function FormatKB(ByVal Amount As Long) _
    As String
    Dim Buffer As String
    Dim Result As String
    Buffer = Space$(255)
    Result = StrFormatByteSize(Amount, Buffer, _
        Len(Buffer))
    If InStr(Result, vbNullChar) > 1 Then
        FormatKB = Left$(Result, InStr(Result, _
            vbNullChar) - 1)
    End If
End Function

Hej.

Undrer mig over de mange linier.  Hvorfor lave en function når FileLen(sti\\filname) kan bruges umiddelbart?

MIS = Make It Simple  :-)

M.v.h.  Jørn

jørn>> delvist fordi at jeg ikke havde til til at mis\'se *gg* - lavede bare noget jeg var sikker på virkede. og så også fordi selve koden bliver \"pænere\" synes jeg når han bare kan kalde funktionen og sammenligne med opgivet. :)

Tak for hjælpen. Begge jeres forslag virkede, men da jørns forslag var mere simpelt vælger jeg at acceptere hans svar.