FileSystemOBject et lien internet

Version imprimable

Suite à la discussion :

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

Code:

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?

26/12/2007, 10h30
ced600

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 ;)
04/01/2008, 16h18
supersnail

Je penserais plutôt à l'objet AJAX XMLHttpRequest(si t'as IE 6 installé,ça marche)
09/01/2008, 20h10
imparator_42

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?
09/01/2008, 20h15
Invité

Bonjour

Que veux-tu exactement faire ?

Starec
09/01/2008, 20h20
imparator_42

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...:)
09/01/2008, 21h50
RadPAT

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++

Juste une question :
quand tu as mis :

Code:

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 ;)

10/01/2008, 18h07
RadPAT

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++
11/01/2008, 17h20
imparator_42

Si je te coprends bien il faut ouvrir 1 page d'IE pour qu'on puisse télécharger?
:roll:

Merci de repondre RadPAT
11/01/2008, 17h27
RadPAT

Citation:

Envoyé par imparator_42

Si je te coprends bien il faut ouvrir 1 page d'IE pour qu'on puisse télécharger?
:roll:

Merci de repondre RadPAT

oui c'est ca, sauf si tu n'as pas besoin de t'authentifier.

A++
11/01/2008, 19h43
imparator_42

Ahhh oki, cest tres bien alors....
merci beaucoup
:yaisse2::king: