如何获取隐藏文件和文件夹名称并将其显示在列表框控件中

Question

我想显示目录计算机中隐藏的搜索结果 file/folder。命令提示符中的命令 show file/folder hidden like this "shell ("dir/ah")"。

现在我遇到问题了？我如何将这些代码执行到 vb.net 并在列表框 vb.net 中显示结果？

Answer 1

遍历给定路径中的每个文件。如果它具有隐藏的属性，则将其添加到列表中。最后将其分配给 ListBox

的数据源

Dim myHiddenFileList As List(Of String) = New List(Of String)()
Dim thePath As String = "Some Directory Path"
' Iterate through file in directory thePath
For Each f In My.Computer.FileSystem.GetFiles(thePath)
Dim fileAttributes As FileAttributes = My.Computer.FileSystem.GetFileInfo(f).Attributes
If Not fileAttributes Is Nothing AndAlso fileAttributes = FileAttributes.Hidden Then
myHiddenFileList.Add(f) ' It is hidden so add to the list
End If
Next

myListBox.DataSource = myHiddenFileList ' myListBox is a list box already defined on the form.

Answer 2

Dim directory As New DirectoryInfo("D:\Apps\Hidden")
Dim hidden_Files As FileInfo() = directory.GetFiles(). _
                                 Where(Function(file) (file.Attributes And FileAttributes.Hidden) <> 0).ToArray()

Dim hidden_folders As DirectoryInfo() = directory.GetDirectories(). _
                                        Where(Function(dirs) (dirs.Attributes And FileAttributes.Hidden) <> 0).ToArray()

并且您可以将它们添加到如下所示的 ListBox 控件中（您可以使用您的逻辑而不是这个）：

 lstHiddenItems.Items().Add("--FILES--")
 For Each itm In hidden_Files
     lstHiddenItems.Items.Add(itm.Name)
 Next
     lstHiddenItems.Items().Add("")
     lstHiddenItems.Items().Add("--FOLDERS--")
 For Each itm In hidden_folders
     lstHiddenItems.Items.Add(itm.Name)
 Next

结果

如何获取隐藏文件和文件夹名称并将其显示在列表框控件中

How to get hidden files and folders name and show it in a listbox control

vb.net

cmd

command-prompt