vb如何遍歷文件並跳過隱藏文件

我的代碼下面可以取消隱藏所有隱藏的文件，文件夾，子文件夾和子文件。問題是，如果有任何路徑的訪問被拒絕，它將停止。如何使代碼跳過對被拒絕路徑的訪問並繼續其他路徑。

1

2

三

四

五

六

七

八

九

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

dim my drive As String =“D:\“

Dim FileCounter為整數= 0

Dim FolderCounter As Integer = 0

將DriveObj調成新IO。目錄信息（我的驅動器）

將文件調暗為IO。FileInfo（）= drive obj。get files（“*。*“，IO。SearchOption . AllDirectories）

將目錄調暗為IO。directory info（）= drive obj。get directories（“*。*“，IO。SearchOption . AllDirectories）

將文件名隱藏為IO。文件系統信息

對於文件中的每個文件名

出錯時繼續下壹步

如果（IO。File.GetAttributes（文件名。全名）和IO。file attributes . Hidden）= IO。文件屬性。然後隱藏

顯示文件。

IO。文件屬性（文件名。全名，IO。文件屬性。Normal）

file counter = file counter+1

如果…就會結束

然後

Dim DirectoryName As IO。目錄信息

對於目錄中的每個目錄名

出錯時繼續下壹步

如果（IO。file . get attributes（directory name。全名）和IO。file attributes . Hidden）= IO。文件屬性。然後隱藏

顯示文件夾。

IO。file . set attributes（directory name。全名，IO。文件屬性。Normal）

folder counter = folder counter+1

如果…就會結束

然後