api fptgetfiles

Question

bonjour,
voila mon probléme:
j'ai realisé un petit programme qui telécharge via un serveur ftp un fichier au format txt.Comme le contenu du fichier sur le serveur ftp change souvent,dans mon appli distante j'ai activer un timer(10s) pour mettre a jour le fichier sur mon disque dur,bien que le contenu du fichier sur le serveur soit modifier,je transfert toujour le meme contenu q'a la premiere connection.

que dois je faire pour que le fichier sur mon dique soit le meme que celui du serveur.

henneuse_alain · Answer

voici le prog:

Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
Const FTP_TRANSFER_TYPE_ASCII = &H1
Const FTP_TRANSFER_TYPE_BINARY = &H2
Const INTERNET_DEFAULT_FTP_PORT = 21               ' default for FTP servers
Const INTERNET_SERVICE_FTP = 1
Const INTERNET_FLAG_PASSIVE = &H8000000            ' used for FTP connections
Const INTERNET_OPEN_TYPE_PRECONFIG = 0                    ' use registry configuration
Const INTERNET_OPEN_TYPE_DIRECT = 1                        ' direct to net
Const INTERNET_OPEN_TYPE_PROXY = 3                         ' via named proxy
Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4   ' prevent using java/script/INS
Const MAX_PATH = 260
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
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 FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Boolean
Const PassiveConnection As Boolean = True

Private Sub Form_Load()
  'open an internet connection
    hOpen = InternetOpen("API-FTP", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    'connect to the FTP server
    hConnection = InternetConnect(hOpen, "217.136.206.217", INTERNET_DEFAULT_FTP_PORT, "alain", "alain", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
 'close the internet connection
    InternetCloseHandle hOpen
    
'close the FTP connection
    InternetCloseHandle hConnection
End Sub

Private Sub Timer1_Timer()

'retrieve the file from the FTP server
FtpGetFile hConnection, "alain.txt", "c:\ftp.txt", False, 0, FTP_TRANSFER_TYPE_ASCII, 0

Open "c:\ftp.txt" For Input As #1
Line Input #1, Data
Print Data
Close #1

End Sub
---------------------------
module
Global hConnection As Long, hOpen As Long, sOrgPath  As String

Api fptgetfiles

1 réponse

Discussions similaires