Databases Reference
In-Depth Information
Dim FSO As
FileSystemObject
Dim FileSpec As
File
,
Returned_Attrib As Integer
Dim ii As Integer
On Error GoTo File_Unavailable
Set FSO = New FileSystemObject
Set FileSpec = FSO.GetFile(FileWithPath$)
Returned_Attrib = FileSpec.Attributes
'Loop through Binary Attributes and Append as Required
For ii = 7 To 0 Step -1
If 2 ^ ii <= Returned_Attrib Then
Returned_Attrib = Returned_Attrib - 2 ^ ii
'Set File Attribute Based on Binary Component
Select Case 2 ^ ii
Case 0
'Normal 0 Normal file. No attributes are set.
FileAttrib = FileAttrib & "Normal"
Case 1
'ReadOnly 1 Read-only file. Attribute is read/write.
FileAttrib = FileAttrib & " ReadOnly"
Case 2
'Hidden 2 Hidden file. Attribute is read/write.
FileAttrib = FileAttrib & " Hidden"
Case 4
'System 4 System file. Attribute is read/write.
FileAttrib = FileAttrib & " System"
Case 8
'Volume 8 Disk drive volume label. Attribute is read-only.
FileAttrib = FileAttrib & " Volume"
Case 16
'Directory 16 Folder or directory. Attribute is read-only.
FileAttrib = FileAttrib & " Folder or directory"
Case 32
'Archive 32 File has changed since last backup. Attribute
is read/write.
FileAttrib = FileAttrib & " Archive"
Case 64
'Alias 64 Link or shortcut. Attribute is read-only.
FileAttrib = FileAttrib & " Alias"
Case 128
'Compressed 128 Compressed file. Attribute is read-only.
FileAttrib = FileAttrib & " Compressed"
End Select
End If
Next ii
