Comportement bizarre de FtpPutFile

Bonjour tout le monde,

Je ne sais pas si quelqu'un a rencontre le cas suivant :

- J'utilise l'API FtpPutfile pour ecrire un fichier sur le serveur et je desire tester si l'operation a ete bien effectuee ou non. Pour cela si j'utlise ce code :

  If  FtpPutFile(hConnection, localFileName, serverFileName, FTP_TRANSFER_TYPE_ASCII, 0) Then 
     MsgBox("OK")
  Else 
     MsgBox("KO")
  End If

alors tout va bien.

En revanche, si je recupere la valeur retournee dans une variable booleenne puis tester derriere alors il se passe des choses bizarres.

Exemple avec ce code :

  bRet = FtpPutFile(hConnection, localFileName, serverFileName, FTP_TRANSFER_TYPE_ASCII, 0)
  Debug.Print "bRet = " & CStr(bRet)
  Debug.Print "Comparer bRet et True = " & CStr(bRet = True)
  Debug.Print "Comparer bRet et False = " & CStr(bRet = False)

alors j'obtiens les 3 lignes d'affichage suivantes:

bRet = Vrai
Comparer bRet et True = Faux
Comparer bRet et False = Faux

Bizarre, bizarre. Quelqu'un a eu ce probleme? Merci de votre aide.

Luong

cela tend à dire que la variable bRet n'est tout simplement pas vraiment déclarée comme booléenne

si elle l'était, voilà le genre de choses que tu obtiendrais :

Private Sub Command1_Click()
  Dim toto As Boolean
  toto = True
  MsgBox CStr(toto)
  MsgBox "Comparer bRet et True = " & CStr(toto = True)
  MsgBox "Comparer bRet et False = " & CStr(toto = False)
End Sub

et ce serait bon,

Montre-nous ta déclaration de FtpPutFile

Voila le complement de ce qui etait dit ce matin :

Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Private Const FTP_TRANSFER_TYPE_ASCII = &H1

Sub Test(hConnection as Long, localFileName as string, serverFileName as string)
   Dim bRet as Boolean

  bRet = FtpPutFile(hConnection, localFileName, serverFileName, FTP_TRANSFER_TYPE_ASCII, 0)
  Debug.Print "bRet = " & CStr(bRet)
  Debug.Print "Comparer bRet et True = " & CStr(bRet = True)
  Debug.Print "Comparer bRet et False = " & CStr(bRet = False)
End Sub

Luong

Alors il n'y a AUCUNE raison (à moins qu'un autre code vienne changer la valeur de bREt pour obtenir ce que tu déclares obtenir alors que vBret = True !!!!!! (que ce soit ton bRet ou mon toto !!!)
Il y a surement un hic que tu ne nous montres pas, là !

ajout : à moins également que tu aies, à un endoit ou à l'autre, mal frappé bRet, bien sur...

Mais si tu utilises Option Explicit, ce serait dénoncé ! (question : as-tu utilisé Option Explicit ?)

Oui, Option Explicit est generee systematiquement a chaque module que je cree. Je ne pense pas avoir oublie de vous montrer qc. De plus, les 3 lignes Debug.Print .... se suivent et c'est le resultat obtenu. Je vais essayer ce week-end pour voir si je ne peux pas vous creer un cas de test sur un serveur Ftp qcq. Merci.

Luong

On attend avec une certaine impatience....ce "cas de figure" extraordinaire !