[VBscript] Récupération de fichier internet
Résolu
malhsi
Messages postés
5
Statut
Membre
-
furious -
furious -
Bonjour,
J'ai récupéré un script (vbscript) qui permet d'enregistrer en local et automatiquement un fichier à partir d'internet.
Trouvé ici : https://www.generation-nt.com/reponses/telecharger-un-fichier-a-partir-d-une-adresse-http-entraide-137853.html
Le script :
Je l'utilise dans un fichier .hta. En cliquant sur "Bouton", le fichier se télécharge sans problème.
Par contre, si je modifie le fichier fichier.txt sur le serveur et reclique sur "Bouton", le fichier téléchargé n'est pas modifié. Il reste identique à celui téléchargé la première fois.
Si je comprends bien (mais je suis assez limité à ce niveau), le flux de données reste dans le cache du navigateur.
J'ai essayé en bloquant le cache dans les balises META : pas mieux.
Si vous savez ce qu'il faut que je modifie dans le script ou si vous avez d'autres solutions, je suis preneur.
Merci.
J'ai récupéré un script (vbscript) qui permet d'enregistrer en local et automatiquement un fichier à partir d'internet.
Trouvé ici : https://www.generation-nt.com/reponses/telecharger-un-fichier-a-partir-d-une-adresse-http-entraide-137853.html
Le script :
<script type="text/vbscript">
Function Objet_XMLHTTP
On Error Resume Next
Set Objet_XMLHTTP=CreateObject("Microsoft.XMLHTTP")
Set Objet_XMLHTTP=CreateObject("MSXML2.XMLHTTP")
On Error GoTo 0
End Function
Sub Importer_Fichier_Du_Web(source,destination)
Set HTTP=Objet_XMLHTTP
With HTTP
.Open "GET",source,False
.Send
End With
With CreateObject("ADODB.Stream")
.Type=1
.Open
.Write HTTP.ResponseBody
.SaveToFile destination,2
.Close
End With
Set HTTP=nothing
End Sub
Sub Bouton_onClick
Importer_Fichier_Du_Web "http://url/fichier.txt","fichierlocal.txt"
End Sub
</script>
<span id="Bouton" name="Bouton">Bouton</span>
Je l'utilise dans un fichier .hta. En cliquant sur "Bouton", le fichier se télécharge sans problème.
Par contre, si je modifie le fichier fichier.txt sur le serveur et reclique sur "Bouton", le fichier téléchargé n'est pas modifié. Il reste identique à celui téléchargé la première fois.
Si je comprends bien (mais je suis assez limité à ce niveau), le flux de données reste dans le cache du navigateur.
J'ai essayé en bloquant le cache dans les balises META : pas mieux.
Si vous savez ce qu'il faut que je modifie dans le script ou si vous avez d'autres solutions, je suis preneur.
Merci.
A voir également:
- [VBscript] Récupération de fichier internet
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier .dat - Guide