さて、私はまだこの問題を解決する方法を見つけていません。私のプログラムは単純ですが、ツリービューにディレクトリを一覧表示しようとしています。ユーザーがそれをクリックすると、リストビューボックスにすべてのファイルが一覧表示されます。「マイドキュメント」フォルダおよび他のいくつかのフォルダをクリックすると、「不正アクセス例外」が発生します。これを解決する方法は?ツリービューをクリックしたディレクトリからファイルを一覧表示するだけで、ファイルを開くことすらしていません。
FolderBrowserDialogを使用すると、この例外は発生せず、MyDocumentsフォルダーを参照したり、ファイルを開いたりすることもできます。
Try
Dim strdirs() As String = IO.Directory.GetDirectories(ds)
tv1_temp(arr_ind(0)).Nodes.clear()
For Each d As String In strdirs
Dim ss = d.Substring(d.LastIndexOf(IO.Path.AltDirectorySeparatorChar) + 1)
Dim tn = New TreeNode(ss)
tn.Name = ss
tv1_temp(arr_ind(0)).Nodes.Add(tn)
Next
tv1_temp(arr_ind(0)).ExpandAll()
Catch ex As IO.IOException
Comment.Text = "Device not ready!"
Catch ex As System.UnauthorizedAccessException
Comment.Text = ("Unauthorized Access to this directory!")
End Try
ありがとうございました!