Lotus Script function for retreiving the file size from local machine

Lotus script source code:


On Error Goto ErrorHandler
Dim pathName As String, fileName As String
Dim verLen As Long
pathName$ = "C:\Users\Maheshwaran Thirumoo\Desktop\test\*.*"
fileName$ = Dir$(pathName$)
Do While fileName$ <> ""
verLen = Filelen("C:\Users\Maheshwaran Thirumoo\Desktop\test\" +fileName$)
Print  + "====="& fileName$  "====" & verLen

fileName$ = Dir$()
Loop
Exit Sub
ErrorHandler:
Print "Error @ line # : " & Cstr(Erl) & "<br> Error is : " & Error
Exit Sub