Snippets

Home / Snippets / file and folder attributes

file and folder attributes

Snippet Menu

snippet |

revisions |

comments | Related Snippets

related |

Add to Favorites | Email

download | Print

print | Blog It

blog it

Thu. Mar. 2nd, 2006 10:05 AM

1 of 1

dannyboy

File | Folder | VBSCRIPT

1 comments

Check the attributes of a file or folde

Function ShowFileAttr(File) ' File can be a file or folder

  Dim result, attr

  attr = File.Attributes

  If attr = 0 Then

    ShowFileAttr = "Normal"

    Exit Function

  End If

  If attr And FileAttrDirectory  Then ShowFileAttr = "Directory" : Exit Function

  If attr And FileAttrReadOnly   Then ShowFileAttr = "Read-Only" : Exit Function

  If attr And FileAttrHidden     Then ShowFileAttr = "Hidden" : Exit Function

  If attr And FileAttrSystem     Then ShowFileAttr = "System" : Exit Function

  If attr And FileAttrVolume     Then ShowFileAttr = "Volume" : Exit Function

  If attr And FileAttrArchive    Then ShowFileAttr = "Archive" : Exit Function

  If attr And FileAttrAlias      Then ShowFileAttr = "Alias" : Exit Function

  If attr And FileAttrCompressed Then ShowFileAttr = "Compressed" : Exit Function

End Function