[VBS] Tester l'existence d'un fichier CSV sur intranet

Tester l'existence d'un fichier CSV sur intranet [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 17-08-2010 à 11:55:07    

Bonjour,
 
Je souhaiterais savoir s'il est possible de tester l'existence d'un fichier qui se trouve sur l'intranet : http://xxxxxxx-gap/yyyy/ANNUAIRE.csv
 
Si ce n'est pas le cas, je pourrai éventuellement essayé de copier ce fichier en local, puis ensuite utiliser l'objet Scripting.FileSystemObject avec la fonction FileExists. A noter que le code ci-dessous me retourne systématiquement "Faux".
 
 
Merci par avance.

Reply

Marsh Posté le 17-08-2010 à 11:55:07   

Reply

Marsh Posté le 17-08-2010 à 12:19:22    

Avec l'objet WinHttp.WinHttpRequest.5.1 par exemple.
 
Exemple de code simplifié à compléter :  
 

Code :
  1. Set HttpRequest  = CreateObject("WinHttp.WinHttpRequest.5.1" )
  2. HttpRequest.Open "GET", strURL
  3. HttpRequest.Send()


 
Ensuite tu examines le HttpRequest.Status pour avoir le code retour HTTP.
 
Plus de doc disponible ici : http://msdn.microsoft.com/en-us/li [...] 85%29.aspx

Reply

Marsh Posté le 17-08-2010 à 12:41:10    

Ok merci, je teste ça dans l'après midi !

Reply

Marsh Posté le 17-08-2010 à 12:52:38    

Faudra rajouter un peu de gestion d'erreurs a ce code, sinon ton script s'arrêtera sur certains problèmes (genre site non résolvable par DNS).

Reply

Marsh Posté le 17-08-2010 à 17:02:30    

Niquel ca marche.
 
Je te remercie :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed