0

この「サポートされていない例外」を回避する方法を知っている人はいますか?

'Amends label2 to file name as text (works in conjunction with PART 00-AB form1)...
    Label2.Text = "Project: " & Form1.Label5.Text & " could not be found"

    'sugesting other related files in the folder...
    Dim di As New IO.DirectoryInfo("v:\" & Label2.Text & "\Tekeningen\Tekenwerk De Mar\Definitief\" & Label2.Text & ".PDF")
    Dim diar1 As IO.FileInfo() = di.GetFiles()
    Dim dra As IO.FileInfo

    For Each dra In diar1
        If System.IO.Path.GetExtension(dra.Name).ToLower() = "pdf" Then
            ListBox1.Items.Add(dra)
        End If
    Next
End Sub
4

1 に答える 1

2

これは、指定したパスがクラスでサポートされていないことを意味しますDirectoryInfo。私はディレクトリでなければなりません.PDFファイルを使用しようとしているようです.

多分あなたはこのようなものが欲しかった:

Dim di As New IO.DirectoryInfo("v:\" & Label2.Text & "\Tekeningen\Tekenwerk De Mar\Definitief\")

ちなみに、これを使用すると、フォルダー内のすべてのファイルをチェックする必要なく、PDF ファイルのみをより高速に取得できます。

DIm diar1 As IO.FileInfo() = di.GetFiles("*.pdf")
于 2013-02-18T08:15:38.157 に答える