Asp > Files

FileLen Function

FileLen Function

<%
Private Function FileLen(ByVal pathname)
    Dim objFSO, objFile
    On Error Resume Next
    Set objFSO  = Server.CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(pathname)
    If Err Then
        FileLen = Null
    Else
        FileLen = CLng( objFile.Size )
    End If
    Set objFile = Nothing
    Set objFSO  = Nothing
    On Error GoTo 0
End Function
%>