GetAttr Function

Syntax:
GetAttr(Name$)
Group: File
Description:
Return the attributes for file Name$. If the file does not exist then a run-time error occurs.
Parameter Description

Name$ This string value is the path and name of the file. A path relative to the current directory can be used.
Example:

Sub Main
F$ = Dir$("*.*")
While F$ <> ""
Debug.Print F$;" ";GetAttr(F$)
F$ = Dir$()
Wend
End Sub