Получение элементов из папки из проекта SourceForge SVN

Question

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».

Как это сделать? Благодаря!

Answer 1

Чтобы исправить ошибку, о которой вы спрашиваете, просто измените слово 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