If Left(sErr, 3) = "257"
Then
V_Connected =
True
Else
V_Connected =
False
End
If
V_Busy =
False
End
Sub
avec les déclarations suivnates :
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As Long
Et bien ça marche pas mais pas du tout à la ligne : FtpGetCurrentDirectory
mon buffer sOrgPath reste toujours vide ! je ne comprends pas pourquoi. Mes déclarations du buffer semble bien conforme à vb.net mais il est toujours vide.
Pourtant cet appel fonctionne à merveille sous vb6.
Si quelqu'un peut m'aider...
COlive.
Deux intellectuels assis iront moins loin qu'un con qui marche. Pensez-y !
Pensez à cliquer sur réponse acceptées quand votre problème est solutionné.