Example - GetAttr Function

Sub Main
	ConststrFile As String = "D:\TESTFILE.txt"
	DimResult As Integer
	Result = GetAttr(strFile) 
	MsgBoxResult
End Sub