Database Search

TechHome

• FileAttributes
• FileInfo
• Find Text in Files

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

FileAttributes Enumeration

 Keywords: System.IO.File FileAttributes File Attributes Enumeration

fn = AskFileName( 'Choose any file', 'c:\', '', '', 1 )

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; Create a class implemented by a managed assembly. 
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
objFile = ObjectClrNew("System.IO.File")  
FileAttributes = objFile.GetAttributes(fn)

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;Get FileAttributes Enumeration 
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
enumFileAttributes = ObjectClrNew( 'System.IO.FileAttributes' ) 

;Archive
if FileAttributes & enumFileAttributes.Archive == enumFileAttributes.Archive
 Pause("","Archived file")
else
 Pause("","Non Archived file")
endif

;Compressed
if FileAttributes & enumFileAttributes.Compressed == enumFileAttributes.Compressed
 Pause("","Compressed file")
else
 Pause("","Non Compressed file")
endif

;Directory
if FileAttributes & enumFileAttributes.Directory == enumFileAttributes.Directory
 Pause("","Is directory")
else
 Pause("","Is Not a directory")
endif

;Encrypted
if FileAttributes & enumFileAttributes.Encrypted == enumFileAttributes.Encrypted
 Pause("","Encrypted file")
else
 Pause("","Non Encrypted file")
endif

;Hidden
if FileAttributes & enumFileAttributes.Hidden == enumFileAttributes.Hidden
 Pause("","Hidden file")
else
 Pause("","Non Hidden file")
endif

;NotContentIndexed
if FileAttributes & enumFileAttributes.NotContentIndexed == enumFileAttributes.NotContentIndexed
 Pause("","NotContentIndexed file")
else
 Pause("","Content Indexed file")
endif

;Offline
if FileAttributes & enumFileAttributes.Offline == enumFileAttributes.Offline
 Pause("","Offline file")
else
 Pause("","Non Offline file")
endif

;ReadOnly
if FileAttributes & enumFileAttributes.ReadOnly == enumFileAttributes.ReadOnly
 Pause("","Read-only file")
else
 Pause("","Non Read-only file")
endif

;ReparsePoint
if FileAttributes & enumFileAttributes.ReparsePoint == enumFileAttributes.ReparsePoint
 Pause("","The file contains a reparse point")
else
 Pause("","The file does NOT contain a reparse point")
endif

;SparseFile
if FileAttributes & enumFileAttributes.SparseFile == enumFileAttributes.SparseFile
 Pause("","SparseFile file")
else
 Pause("","Non SparseFile file")
endif

;System
if FileAttributes & enumFileAttributes.System == enumFileAttributes.System
 Pause("","System file")
else
 Pause("","Non System file")
endif

;Temporary
if FileAttributes & enumFileAttributes.System == enumFileAttributes.System
 Pause("","Temporary file")
else
 Pause("","Non Temporary file")
endif

Exit

 

Article ID:   W17819

Filename:   FileAttributes.txt

File Created: 2014:01:17:11:25:06

Last Updated: 2014:01:17:11:25:06