2013-11-04 33 views
3

我處理所有特定文件夾如何判斷文件是否被隱藏時,它具有多重屬性

Dim dirInfo As New DirectoryInfo(spreadsheetFolder) 
excelFiles = dirInfo.GetFiles("*.xlsx") 

Excel文件在此文件夾中「〜$ weird.xlsx」文件有時會出現,我對這些文件不感興趣,想跳過它們。

我想跳過任何隱藏的文件。這裏的問題是,fileinfo.attributes並不僅僅包含隱藏屬性,它是

Hidden Or Archive Or NotContentIndexed {8226} 

,我已經遍佈只有工作,如果隱藏的淨是唯一的屬性的代碼,我該怎麼辦如果還有其他人?

我知道我可以忽略開始「〜$」的任何事情,但這並不好玩,現在這個問題正在擾亂我!

謝謝你們

回答

1

可以使用HasFlag屬性。示例代碼:

Dim excelFiles() As FileInfo = dirInfo.GetFiles("*.xlsx") 

For Each curFile In excelFiles 
    If (curFile.Attributes.HasFlag(FileAttributes.Hidden)) Then 
     'This one is hidden 
    End If 
Next 
+0

謝謝,這工作得很好! – lilactiger89

+0

@ lilactiger89不客氣。 – varocarbas

相關問題