0

さて、私はまだこの問題を解決する方法を見つけていません。私のプログラムは単純ですが、ツリービューにディレクトリを一覧表示しようとしています。ユーザーがそれをクリックすると、リストビューボックスにすべてのファイルが一覧表示されます。「マイドキュメント」フォルダおよび他のいくつかのフォルダをクリックすると、「不正アクセス例外」が発生します。これを解決する方法は?ツリービューをクリックしたディレクトリからファイルを一覧表示するだけで、ファイルを開くことすらしていません。

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

ありがとうございました!

4

0 に答える 0