Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Get folder attributes


'get the attributes of a file
Function FileProperties( FileName As String , RO As Boolean , Hidden As Boolean , System As Boolean , Directory As Boolean , Archive As Boolean )
    Dim iResult As Long
   iResult = GetAttr (FileName)
   RO = iResult And vbReadOnly
   Hidden = iResult And vbHidden
   System = iResult And vbSystem
   Directory = iResult And vbDirectory
   Archive = iResult And vbArchive
   FileProperties = iResult
End Function