Example - GetAttr Function

Sub Main
   Const strFile As String = "D:\TESTFILE.txt"
   Dim Result As Integer
   Result = GetAttr(strFile) 
   MsgBox Result
End Sub