par lereparateurdepc Sam 8 Nov 2014 - 14:31
re,
Le truc c'est impossible de lire le contenu du fichier comme ça sous Windows car c'est un URL.
J'ai fait un soft et tata, voici le contenu :
- Code:
[DEFAULT]
BASEURL=http://public.iutenligne.net/electronique/Nardi/tesla/tesla1/index.html
[{000214A0-0000-0000-C000-000000000046}]
Prop3=19,2
[InternetShortcut]
URL=http://public.iutenligne.net/electronique/Nardi/tesla/tesla1/index.html
IDList=
Lecture ligne par ligne de l'URL; rechercher "URL" si oui, découpage au = et le tour est joué.
Code source de mon piti soft :
- Code:
Public Class Form1
Dim filelist() As String
Dim texte As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
filelist = System.IO.Directory.GetFiles("D:\Mes documents\Favoris", "*.*", System.IO.SearchOption.AllDirectories)
' For i As Integer = 0 To filelist.Length - 1
' MsgBox(My.Computer.FileSystem.GetFileInfo().Extension)
texte = My.Computer.FileSystem.ReadAllText(filelist(filelist.Length - 1), System.Text.Encoding.UTF8)
'Next
TextBox1.Text = texte
End Sub
End Class
il ne fait que de lister les fichiers dans mes favoris mais n'affiche le contenu que du dernier de la liste.
Réalisé "à la SZ" pour une meilleur adaptation
(réalisé sous VB 2010).
Cordialement,
Le réparateur de PC