3

我正在处理特定文件夹中的所有 excel 文件

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

在这个文件夹中有时会出现“~$weird.xlsx”文件,我对这些文件不感兴趣,想跳过它们。

我想跳过任何隐藏的文件。这里的问题是 fileinfo.attributes 不仅包含隐藏属性,它是

Hidden Or Archive Or NotContentIndexed {8226}

我在网上找到的代码只有在隐藏是唯一属性时才有效,如果还有其他属性我该怎么办?

我知道我可以忽略任何以“~$”开头的东西,但这并不好玩,这个问题现在困扰着我!

多谢你们

4

1 回答 1

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
于 2013-11-04T15:11:38.980 回答