Ouvrir Un Fichier .txt Distant

Version imprimable

27/12/2006, 12h24
KronprinZ

Ouvrir Un Fichier .txt Distant
Juste une petite question qui paraitera sans doute très simple à la majorité d'entre vous... Je débute complétement en vbscript, je sais juste bidouiller 2-3 trucs en vba et en dos.

Je voudrais executer un script vbs qui irait récupérer le contenu d'un fichier .txt situé sur un serveur web distant.
En local, c'est dans mes cordes, ça marche sans pb :
Code:

1 2 3 4 set oFS = CreateObject("Scripting.FileSystemObject") set oFile = oFS.GetFile("C:\electro.txt") set ts = oFile.OpenAsTextStream total = ts.readline
=> Comment faire exactement la même chose mais en récupérant ce fichier electro.txt situé sur une adresse du type http://192.135.xxx.xxx/repertoire/ ??? J'ai essayé des trucs du style (...) set oFile = oFS.GetFile("http://192.135.xxx.xxx/repertoire/electro.txt") mais bien sûr ça ne marche pas...

Deuxième question du même tonneau : Quelqu'un peut-il me donner la correspondance en vbscript de la focntion dos "start http://192.135.xxx.xxx/chemin/chemin/fichier.pdf" qui permet facilement d'ouvrir un fichier distant.

Merci pour vos réponses !
31/01/2007, 22h49
Subkill
Citation:

Envoyé par KronprinZ

Deuxième question du même tonneau : Quelqu'un peut-il me donner la correspondance en vbscript de la focntion dos "start http://192.135.xxx.xxx/chemin/chemin/fichier.pdf" qui permet facilement d'ouvrir un fichier distant.

Je ne connais pas les fonctions dos, mais si c'est ouvrir le pdf que tu veux faire voiçi le code:
Code:

1 2 3 4 5 6 7 Set WshShell = WScript.CreateObject("WScript.Shell") dim url 'Le chemin du URL url = "192.135.xxx.xxx/chemin/chemin/fichier.pdf" WshShell.Run url
je sais que ca fonctionne quand le url commence par http:// alors ca doit aussi marché....

Bonjour,

C'est du VB, mais tu dois pouvoir t'en inspirer :

Code:

1
2
3
4
5
6
7
8
9
10
 
Set IE = CreateObject("InternetExplorer.Application")
 
IE.Visible = False
IE.Silent = True
   IE.Navigate "http://MonURL.fr"
   Do Until IE.ReadyState = READYSTATE_COMPLETE
   DoEvents
   Loop 'attend la fin du chargement
   Contenu = IE.Document.DocumentElement.innerHTML

10/02/2007, 11h02
__alex__
Citation:

Envoyé par KronprinZ

Deuxième question du même tonneau : Quelqu'un peut-il me donner la correspondance en vbscript de la focntion dos "start http://192.135.xxx.xxx/chemin/chemin/fichier.pdf" qui permet facilement d'ouvrir un fichier distant.

tu peux aussi lancer la fonction Start à partir de ton vbs :
Code:

1 2 3 Set objShell = CreateObject("Wscript.Shell") objShell.Run "cmd \c start http://192.135.xxx.xxx/chemin/chemin/fichier.pdf"