FileSystemOBject et lien internet

**imparator_42** · 23/12/2007, 22h09

Suite à la discussion :

http://www.developpez.net/forums/sho...00#post2674200

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ImportFileF2()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFile = FSO.OpenTextFile("C:\Documents and Settings\user\Bureau\Macro\Source.txt", ForReading)
Set DestFile = FSO.CreateTextFile("C:\Documents and Settings\user\Bureau\Macro\GeneratedTextFile.txt", ForWriting)
While Not SourceFile.AtEndOfStream
     DestFile.WriteLine SourceFile.Readline
     DestFile.WriteLine("")
Wend
Set DestFile = Nothing
Set SourceFile = Nothing
Set FSO = Nothing
End Sub

est ce que pour : SourceFile ....
on peut aussi mettre un lien internet?

**ced600** · 26/12/2007, 10h30

Jamais essayé de passer un lien à FSO.

Mais rien ne t'empêches de mettre un lien internet à la place su chemin complet du fichier, et de regarder ce qu'il se passe

**supersnail** · 04/01/2008, 16h18

Je penserais plutôt à l'objet AJAX XMLHttpRequest(si t'as IE 6 installé,ça marche)

**imparator_42** · 09/01/2008, 20h10

jai changé la source par un lien internet :
ça me fait Runtime error '5': invalid procedure call or argument

donc ça ne marche pas en remplaçant la source...

et 'supersnail' tu panses faire comment?

Invité · 09/01/2008, 20h15

Bonjour

Que veux-tu exactement faire ?

Starec

**imparator_42** · 09/01/2008, 20h20

je voudrais télécharger nimporte quel type de fichier sous la forme préchoisie

Comme dans le code :
ex: je télécharge le fichier www.aaa.fr/a.html
et il enregistre dans un répertoire préchoisi : C:\windows\abc.txt ou autre extension...

mais je voudrais que ça soit directe...

**RadPAT** · 09/01/2008, 21h50

Salut,

si tu veux simplement télécharger un fichier depuis internet vas voir la réponse que j'avais proposée ici :

http://www.developpez.net/forums/sho...d.php?t=439377

A++

**imparator_42** · 10/01/2008, 13h49

Juste une question :
quand tu as mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If web.Status <> "200" Then
       SaveWebBinary = False
       Set web = Nothing
       Msgbox "Internet ne peut pas etre joint, démarrez une session IE."
       TagIe = 1
    End If

Dans quel cas il nous montre ce msgbox?

Et merci pour cette information

**RadPAT** · 10/01/2008, 18h07

Salut,

ces lignes vont vérifier que tu as bien une session ouverte sur le net, dans ce cas le status est à 200. Dans le cas contraire le status est différent de 200 et tu dois t'authentifier afin d'ouvrir une sesssion pour que ca marche.
En fait si j'ai fait ca, c'est que je n'ai pas réussi à faire apparaitre en vbs la fenetre de loggin et mot de passe pour accéder au net...

A++