Fonction "URLDownloadToFile" sur Timer formulaire. [Résolu]

[dbzzzde]

Bonjour,

J'utilise la fonction "URLDownloadToFile" pour téléchargé un fichier ini à distance sur internet et l'utiliser pour modifier certaine valeur dans une table.

Le code utilisé pour téléchargé le fichier :

Code :

1
2
3
4
5
6
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
PathFic = CurrentProject.Path & "\temp\Fichier.ini"
URL = fichier_distant
 
URLDownloadToFile 0, URL, PathFic, 0, 0

La fonction marche correctement si je l'utilise à l'ouverture de la base.

Mon problème :

Si j'utilise cette fonction sur le timer de mon formulaire principal (pour vérifier régulièrement les modifications du fichier ini), le fichier téléchargé est toujours identique à celui téléchargé a l'ouverture de la base même si celui du serveur distant a été modifié.
Je pense qu'a l'ouverture de la base, le fichier doit être stocké dans un cache et c'est celui ci qui doit être repris sur mon timer et non pas celui de mon serveur distant.

Comment récupérer le bon fichier ou vider ce cache avant chaque téléchargements ?

Si quelqu'un a une idée ?

Merci de votre aide

[Arkham46]

bjr,

penche toi sur l'API DeleteUrlCacheEntry

[dbzzzde]

Merci pour ta réponse

Les premiers test effectué avec l'API DeleteUrlCacheEntry a l'air de fonctionner.

Voici la solution que j'ai utilisé :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szUrl As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function DeleteUrlCacheEntry Lib "wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
 
Private Sub Form_Timer()
 
Dim PathFic As String
Dim URL As String
 
PathFic = CurrentProject.Path & "\temp\Fichier.ini"
URL = fichier_distant
 
URLDownloadToFile 0, URL, PathFic, 0, 0
 
DeleteUrlCacheEntry (URL)
 
End Sub

Merci de ton aide.

DBzzzDE