home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / FileGetAttrib.au3 < prev    next >
Encoding:
Text File  |  2004-09-22  |  845 b   |  23 lines
  1. $attrib = FileGetAttrib(@HomeDrive & "\boot.ini")
  2. If @error Then
  3.     MsgBox(4096,"Error", "Could not obtain attributes.")
  4.     Exit
  5. Else
  6.     If StringInStr($attrib, "R") Then
  7.     MsgBox(4096,"", "File is read-only.")
  8.     EndIf
  9. EndIf
  10.  
  11. ; Display full attribute information in text form
  12. ; Arrays rely upon the fact that each capital letter is unique
  13. ; Figuring out how this works is a good string exercise...
  14. $input = StringSplit("R,A,S,H,N,D,O,C,T",",")
  15. $output = StringSplit("Read-only /, Archive /, System /, Hidden /, _
  16.         Normal /, Directory /, Offline /, Compressed /, Temporary /",  ",")
  17. For $i = 1 to 9
  18.     $attrib = StringReplace($attrib, $input[$i], $output[$i], 0, 1)
  19.     ; last parameter in StringReplace means case-sensitivity
  20. Next
  21. $attrib = StringTrimRight($attrib, 2) ;remove trailing slash
  22. MsgBox(0,"Full file attributes:", $attrib)
  23.