Discussion :

[adlinformatik]

Bonjour :
Avant de télécharger un fichier je doit vérifier s'il existe ou pas
pour cela j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim oWinHTTP As WinHTTP.WinHttpRequest
Dim TotalSize
Set oWinHTTP = New WinHTTP.WinHttpRequest
 
oWinHTTP.Open "GET", strUrl, False
'OU 
oWinHTTP.Open "POST", strUrl, False  
 
oWinHTTP.Send
 
if oWinHTTP.Status = 200 then
'Fichier Existant
else
'Fichier inexistant
end if

Seulement, si je veut vérifier l’existence d'une page web ou un petit fichier ça marche parfaitement, mais si je veut vérifier l’existence d'un fichier, un peu volumineux, par exemple 10 Mo ou un peu plus, avec ma mauvaise connexion, ça prends plusieurs minutes, 10 ou 20 ou plus !
et parfois pas de résultat, un message d'erreur dû surement a la lenteur de ma connexion

J'ai compris alors qu'avec ces deux méthodes, le code télécharge la totalité du fichier avant de rendre le résultat existant ou pas (200 ou autre) !

J'ai essayer avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Taille = oWinHTTP.GetResponseHeader("Content-Length")
if Taille = 0    'etc...

Même problème !

Existe t'il une solution pour juste vérifier l’existence du fichier rapidement

Merci d'avance

[l_autodidacte]

J'ai le code d'un programme pour télécharger des fichiers.
Le code comporte une fonction qui fait exactement ce qui est demandé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Function GetRemoteFileSize(strURL$) As Double
    Const lTimeOut& = 30000 ' 30 secondes d'attente
   Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = &H3300 '13056
   Dim T1  As Date, T2 As Date
   T1 = Time
 
    oHttp.setTimeouts lTimeOut, lTimeOut, lTimeOut, lTimeOut
    oHttp.setOption 2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
    oHttp.open "HEAD", strURL, False  'sync
    oHttp.send
    DoEvents
 
    Do While oHttp.Status <> 200
        Set oHttp = Nothing
 
        Set oHttp = New ServerXMLHTTP60
 
        oHttp.setOption 2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
        oHttp.open "HEAD", strURL, False  'sync
        oHttp.send
        T2 = Time
        DoEvents
        If DateDiff("s", T1, T2) >= lTimeOut And oHttp.Status <> 200 Then
            GetRemoteFileSize = 0
            Exit Do
            Exit Function
        End If
    Loop
   If oHttp.Status = 200 Then _
    GetRemoteFileSize = CDbl(oHttp.getResponseHeader("Content-Length"))

En espérant que cela puisse aider.

[adlinformatik]

Mille Merci

Donc il fallait utiliser la commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oHttp.open "HEAD", strURL, False

Car "Get" et "Post", téléchargent le fichier
J'ai tester et ça marche parfaitement

Le reste du code est aussi intéressant, je vais adapter mes codes en l'utilisant, surtout ce qui concerne le TimeOut !

Mille merci une autre fois