Platforms to show: All Mac Windows Linux Cross-Platform
FAQ.How to see if a file is invisible for Mac OS X?
Function Invisible(F As FolderItem) As Boolean Dim TIS As TextInputStream Dim S,All As String Dim I as Integer dim g as folderitem If Left(F.Name,1)="." or not f.visible Then Return True End If g=F.Parent.Child(".hidden") If g.Exists Then TIS=g.OpenAsTextFile if tis<>Nil then All=TIS.ReadAll For I=1 to CountFields(All,Chr(11)) S=NthField(All, Chr(11), I) If S=F.name Then Return True End If Next end if End ifEnd Function