作者bleeza (what's wrong with ptt?)
看板Visual_Basic
標題[.NET] FileSystemInfo的屬性attributes
時間Wed Dec 19 11:33:01 2007
Dim i As Integer
Dim fileAttr() As Integer = {FileAttributes.Archive, _
FileAttributes.Compressed, FileAttributes.Device, _
FileAttributes.Directory, FileAttributes.Encrypted, _
FileAttributes.Hidden, FileAttributes.Normal, _
FileAttributes.NotContentIndexed, FileAttributes.Offline, _
FileAttributes.ReadOnly, FileAttributes.ReparsePoint, _
FileAttributes.SparseFile, FileAttributes.System, _
FileAttributes.Temporary}
Dim fileAttrString() As String = {"Archive", "Compressed", _
"Device", "Directory", "Encrypted", "Hidden", "Normal", _
"NotContentIndexed", "Offline", "ReadOnly", "ReparsePoint", _
"SparseFile", "System", "Temporary"}
Dim attr As String
Dim di As DirectoryInfo = New DirectoryInfo("C:\123")
Try
Dim dirs As DirectoryInfo() = di.GetDirectories("*")
Dim info As DirectoryInfo
For Each info In dirs
Response.Write("目錄 : " & info.Name & " --- ")
attr = ""
For i = fileAttr.GetLowerBound(0) To fileAttr.GetUpperBound(0)
if (
info.Attributes And fileAttr(i)) <> 0 Then
If attr <> "" Then
attr += ", "
End If
attr += fileAttrString(i)
End If
Next i
Response.Write("屬性 : " & attr & "<br />")
Next info
Catch e As Exception
Response.Write("有錯誤發生 : " & e.ToString())
End Try
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
黃色部份想請教各位高手
程式執行會SHOW出內容如下
目錄 : aaa --- 屬性 : Directory, Hidden
目錄 : bbb --- 屬性 : Directory
目錄 : ccc --- 屬性 : Archive, Directory
--------------------------------------------
請問一下要怎麼解釋if (info.Attributes And fileAttr(i)) <> 0這個判斷式?
另外，這是不是表示VB的判斷式可以用0 1 來表示true or false
不像JAVA的boolean值只能用true false來表示
謝謝囉！
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.30.45.196
※ 編輯: bleeza 來自: 163.30.45.196 (12/19 11:33)
※ 編輯: bleeza 來自: 163.30.45.196 (12/19 11:38)
1F：→ jujudy:And 用在數值時屬於「位元運算」, 而非「邏輯運算」 12/19 11:55