·µ»ØÖ¸¶¨ÎļþµÄŒÙÐÔ´ú´a¡£
FileGetAttrib ( "ÎļþÃû" )
…¢”µ(sh¨´)
ÎļþÃû | Ä¿˜Ë(bi¨¡o)ÎļþÃû¡£ |
·µ»ØÖµ
³É¹¦£º | ·µ»ØÏà‘ª(y¨©ng)µÄÊìϤ×Ö·û´®´ú´a¡£ |
ʧ”¡£º | ·µ»ØÒ»‚€(g¨¨)¿Õ×Ö·û´®²¢°Ñ @error ÔO(sh¨¨)žé 1¡£ |
×¢Òâ
±¾º¯”µ(sh¨´)·µ»ØµÄ×Ö·û´®Œ¢ÊÇÒÔÏÂ×Ö·ûµÄ½MºÏ£¨"RASHNDOCT"):
ÏàêP(gu¨¡n)
FileGetTime, FileSetAttrib
ʾÀý
$attrib = FileGetAttrib(@HomeDrive & "\boot.ini")
If @error Then
MsgBox(4096,"åe(cu¨°)Õ`", "Ÿo·¨«@µÃŒÙÐÔ¡£")
Exit
Else
If StringInStr($attrib, "R") Then
MsgBox(4096,"", "Ô“Îļþ¾ßÓÐÖ»×xŒÙÐÔ¡£")
EndIf
EndIf
; ÒÔÎı¾ÁбíµÄÐÎʽï@ʾԓÎļþµÄÍêÕûŒÙÐÔÐÅÏ¢
; ß@¶Î³ÌÐòºÜºÃµØÀûÓÃÁËÿ‚€(g¨¨)´óŒ‘×Ö·ûµØÎ¨Ò»ÐÔ
; ͬ•r(sh¨ª)ß@Ò²ÊÇ×Ö·û´®º¯”µ(sh¨´)ß\(y¨´n)ÓõÄÒ»‚€(g¨¨)²»åe(cu¨°)µÄʾÀý...
$input = StringSplit("R,A,S,H,N,D,O,C,T",",")
$output = StringSplit("Read-only /, Archive /, System /, Hidden /, _
Normal /, Directory /, Offline /, Compressed /, Temporary /", ",")
For $i = 1 to 9
$attrib = StringReplace($attrib, $input[$i], $output[$i], 0, 1)
; StringReplace µÄ×îºóÒ»‚€(g¨¨)…¢”µ(sh¨´)±íʾҪ…^(q¨±)·Ö´óСŒ‘
Next
$attrib = StringTrimRight($attrib, 2) ;È¥³ý½Y(ji¨¦)βµÄ·´Ð±¾€·ûÌ–(h¨¤o)
MsgBox(0,"ÍêÕûµÄÎļþŒÙÐÔÁÐ±í£º", $attrib)