Ouvrir et afficher le contenu d'un fichier texte sur le net

Question

Bonjour ! Alors, voila, j'ai un petit probleme, d'ou mon message.
Ce que je veux faire, c'est faire afficher le contenu d'un fichier .txt situer sur le net dans mon programme. 
J'arrive a faire afficher sans probleme le texte d'un fichier sur mon ordinateur, avec ce code :

Private Sub Command1_Click()
Open "C:\data.txt" For Input As #1
     Do While Not EOF(1)
        Line Input #1, Lg
        If T <> "" Then T = T + Chr(13) + Chr(10)
         T = T + Lg
    Loop
Close #1
Text2.Text = Lg 
End Sub 

Mais je n'arrive pas a ouvrir un fichier sur le net pour faire le meme truc... Donc... j'ai besoin d'aide ! ;)

cs_Brunodec · Answer

désolé, je voulais juste savoir, si quelqu'un te répond, si tu pouvais me le dire...

pcpunch · Answer

Pour ouvir un fichier du net :

'utiliser un composant microsot internet transfert : inet
Dim LeTexte As String
LeTexte = Inet1.OpenURL("http://url du fichier txt")
Text1 = LeTexte


par contre pour un fichier de ton dur y a plus simple

Open "c:\fichier.txt" For Input As #1
Text1 = Input(LOF(1), 1)
Close #1

Drizzt_9781 · Answer

Euh il me dit erreur 424 objet requiered avec ce code Possible qu'il y ait une erreur ?

Drizzt_9781 · Answer

Probleme resolu, le code marche super ! :)

Ouvrir et afficher le contenu d'un fichier texte sur le net

4 réponses

Discussions similaires