1、首先，使用VS2012新建一个VB窗口应用程序，文件名和保存目录根据需求设定即可。
2、由于只是一个测试程序，这里就在工程给定的Form1窗体上添加一个Button控件，重命名为“判断文件夹属性”。
3、对“判断文件夹属性”按钮添加一段代码，使得点击该按钮可选择目录，确认后判断选择的目录是否具有隐藏属性，具体代码如下： Private Sub Button1_C造婷用痃lick(sender As Object, e As EventArgs) Handles Button1.Click Dim dirInfo As IO.DirectoryInfo '定义一个文件对话框 Dim pathName As String '定义一个字符串保存目录 Dim folderBrowserDlg As FolderBrowserDialog '定义一个文件夹路径对话框 folderBrowserDlg = New FolderBrowserDialog() '新建一个文件夹浏览对话框对象 folderBrowserDlg.ShowDialog() '显示文件夹路径对话框 pathName = folderBrowserDlg.SelectedPath() dirInfo = New IO.DirectoryInfo(pathName) If (dirInfo.Attributes And IO.FileAttributes.Hidden) <> IO.FileAttributes.Hidden Then MsgBox("选择的文件夹：" & pathName & "不是隐藏属性。") Else MsgBox("选择的文件夹：" & pathName & "是隐藏属性。") End If End Sub
4、然后再计算机某个目录下新建一个测试目录，在测试目录新建一个“没有隐藏的文件夹”和一个“隐藏的文件夹”。同时设定“隐藏的文件夹”属性为“隐藏”。
5、通过勾选资源管理器的“查看”->“隐藏的项目”，使得“隐藏的文件夹”被显示，方便后面实验。
6、运行前面新建的VB工程，点击“判断文件夹属性”按钮。
7、当我们选择“没有隐藏的文件夹”并点击“确定”后，程序弹出“选择的文件夹F:\test\没有隐藏的文件夹不是隐藏属性”，这与我们设定的一致，对于不具备隐藏属性的文件夹判断成功！
8、而当我们选择“隐藏的文件夹”时，软件弹出“选择的文件夹F:\test\隐藏的文件夹是隐藏属性”，对隐藏的文件夹判定也是成功的。
