返回文件的屬性代碼.
FileGetAttrib ( "文件名" )
文件名 | 目標(biāo)文件(目錄)名稱(chēng). |
成功: | 返回文件屬性代碼字符串. |
失敗: | 返回 "" 空字符串, 設(shè)置 @error 為 1. |
Local $attrib
= FileGetAttrib(@WindowsDir & "\win.ini")
If @error
Then
MsgBox(4096, "錯(cuò)誤", "無(wú)法獲得文件屬性.")
Exit
Else
If
StringInStr($attrib, "R")
Then
MsgBox(4096, "", "此為只讀文件.")
EndIf
EndIf
; 以文本形式顯示完整的屬性信息
; 排列依據(jù)實(shí)際文件而定, 每個(gè)大寫(xiě)字母是唯一的
; 一個(gè)很好的字符串拆分練習(xí)幫助弄清楚函數(shù)是如何工作的...
Local $input
= StringSplit("R,A,S,H,N,D,O,C,T",
",")
Local $output
= StringSplit("只讀 /, 存檔 /, 系統(tǒng) /, 隱藏 /" &
_
", 普通 /, 目錄 /, 脫機(jī)文件 /, 壓縮 /, 臨時(shí) /", ",")
For $i = 1 To
9
$attrib = StringReplace($attrib, $input[$i], $output[$i], 0, 1)
;
最后一個(gè)參數(shù)是指定函數(shù) StringReplace 替換時(shí)區(qū)分大小寫(xiě)
Next
$attrib =
StringTrimRight($attrib, 2)
;刪除結(jié)尾的反斜線(xiàn)
MsgBox(0, "", "文件屬性:
" & $attrib)
provider with jb51.net (unicode) |