Obtention d'éléments à partir d'un dossier SourceForge SVN Project

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 

Ceci est mon code et cela n'a pas fonctionné. L'erreur était "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".

Comment faire? Merci!

Answer 1

Pour corriger l'erreur que vous posez, il suffit de changer le mot Function en Sub. Cependant, après avoir fait cela, votre code ne fonctionnera toujours pas. Vous aurez une nouvelle erreur, car le répertoire System.IO et les classes de fichiers fonctionnent uniquement sur le système de fichiers local. Vous ne pouvez pas référencer un emplacement https distant de cette façon. Vous devrez utiliser System.Net.HttpWebRequest/System.Net.HttpWebResponse ou System.Net.WebClient à la place, ce qui signifie essentiellement partir de zéro avec ce code.

---

Un exemple très simple qui peut ou peut ne pas fonctionner, selon l'exigence 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