0 
   Function getItems()
        ''# make a reference to a directory
        Dim di As New IO.DirectoryInfo("https://ipossum.svn.sourceforge.net/svnroot/ipossum/")
        Dim diar1 As IO.FileInfo() = di.GetFiles()
        Dim dra As IO.FileInfo

        ''#list the names of all files in the specified directory
        For Each dra In diar1
            ListBox1.Items.Add(dra)
        Next
    End Function

それは私のコードであり、うまくいきませんでした。エラーは " Warning 1 Function 'getItems' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used. C:\Users\******\AppData\Local\Temporary Projects\iPossum\Form1.vb 13 5 iPossum" でした。

どうすればいいですか？ありがとう！

4

1 に答える 1

2

質問しているエラーを修正するには、単語Functionを に変更するだけですSub。

ただし、これを行った後でも、コードは機能しません。System.IO ディレクトリとファイル クラスはローカル ファイル システムでのみ機能するため、新しいエラーが発生します。そのようにリモートの https の場所を参照することはできません。代わりに System.Net.HttpWebRequest/System.Net.HttpWebResponse または System.Net.WebClient を使用する必要があります。これは、基本的にこのコードを最初から作成することを意味します。

https 要件に応じて、機能する場合と機能しない場合がある非常に単純な例:

Dim fileList As String
Using wc As New WebClient
    fileList = wc.DownloadString("https://ipossum.svn.sourceforge.net/svnroot/ipossum/")
End Using
''# Here you'll have to parse the file names out of this response on your own
于 2010-08-04T21:30:42.897 に答える