1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
| Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.View = System.Windows.Forms.View.List
For Each url As String In ListeDesFavoris()
ListView1.Items.Add(url)
Next
End Sub
Function ListeDesFavoris() As List(Of String)
Dim listeFavoris As New List(Of String) 'la liste qu'on renverra à la fin, une fois remplie
Dim dossierFavrois As String = Environment.GetFolderPath(Environment.SpecialFolder.Favorites) 'on obtient le chemin spécifique au dossier Favoris
If System.IO.Directory.Exists(dossierFavrois) Then 'si le dossier favoris existe
'on récupère tous les fichiers de tous les sous dossiers
'l'etoile indique "tous les fichiers" et AllDirectories précise qu'il faut chercher dans tous les sous dossiers
For Each fichier As String In System.IO.Directory.GetFiles(dossierFavrois, "*", System.IO.SearchOption.AllDirectories)
Using sr As New System.IO.StreamReader(fichier) 'on se prépare à lire chaque fichier
While sr.Peek <> -1 'tant qu'il y a quelque chose dans les fichiers
Dim ligneCourante As String = sr.ReadLine 'on lit les fichiers ligne par ligne
If ligneCourante.Contains("BASEURL") Then
Dim url As String = ligneCourante.Substring(8) 'si la ligne contient BASEURL, on enleve le début "BASEURL=" pour garder la vraie URL
listeFavoris.Add(url) 'on remplit notre liste
Exit While
ElseIf ligneCourante.Contains("URL") Then
Dim url As String = ligneCourante.Substring(4) 'si la ligne contient URL, on enleve le début "URL=" pour garder la vraie URL
listeFavoris.Add(url) 'on remplit notre liste
Exit While
End If
End While
End Using
Next
End If
Return listeFavoris 'on retourne la liste remplie
End Function
'dés qu'on séléctionne un élément, on navigue vers celui-ci
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
WebBrowser1.Navigate(e.Item.Text)
End Sub
End Class |
