code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| 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 INTERNET_FLAG_RELOAD = &H80000000
Const INTERNET_FLAG_TRANSFER_BINARY = 2
Public Function GetFile(RemoteFile As String, LocalFile As String) As Boolean
' doel:
'
' Een bestand downloaden
If hConnection <> 0 Then
If FtpGetFile(hConnection, RemoteFile, LocalFile, False, 0,
INTERNET_FLAG_RELOAD + INTERNET_FLAG_TRANSFER_BINARY, 0) = True Then
GetFile = False
Else
GetFile = True
End If
End If
End Function |
Deze functie werkt onder Windows 2000 naar behoren, onder Windows 98 wil het echter niet lukken:
pas op de ftp server het bestand aan, windows 2000/xp haalt hem netjes van de ftp server. Windows 98 haalt hem uit de cache, en heeft dus een oude versie. Dit moet gefixed worden, anders werkt het programma niet. Alleen een restart werkt om toch de juiste op te halen.
Iemand een oplossing voor dit zeer vage probleem, of doe ik het verkeerd?
.modbreak: geen nood, ik heb even je post geedit omdat dingen als < en > niet goed worden geconverteerd door een huidige bug in react. Aangezien ik html rechten heb gaat het bij mij dus wel goed
[ Voor 21% gewijzigd door .oisyn op 27-10-2003 19:46 . Reden: layout ]