Re: Probleme mit Dateizugriff nach downloaden

Hallo luemmel

wird (nicht selbst geschrieben): (hier verkürzt)
----------------------------------------------------------
hFile = apiCreateFile(mstrDestination, _
GENERIC_READ Or GENERIC_WRITE, _
0&, 0&, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0&

If hFile = INVALID_HANDLE_VALUE Then err.Raise
conERR_GENERIC

'Read in MAX_CHUNK Chunk
Do
ReDim abytData(MAX_CHUNK)
lngRet = apiInetReadFile(hFTP, _
abytData(0), _
MAX_CHUNK, _
lngBytesRead)
Call apiWriteFile(hFile, abytData(0), MAX_CHUNK, _
lngBytesWritten, 0&

lngTotalBytesWritten = lngTotalBytesWritten +
lngBytesWritten
'Call SysCmd(acSysCmdUpdateMeter,
CInt(lngTotalBytesWritten / mlngSize))
Loop Until lngRet 0 And lngBytesRead = 0
-----------------------------------------------------------

Wo ist hier der CLOSE ?????

apiCreateFile() entspricht einem normalen OPEN(), mit speziellen eigenschaften. Nach dem LOOP müsste ein
"Call apiCloseFile(hFile)" folgen bevor du ein Open mit der gleichen Datei machen kannst.

das seltsame dabei: der Zugriff wird verweigert bevor der
programmablauf in die nähe von Open... usw. kommt
sobald ich das Open... usw. auskommentierte kam es nicht zu
"Zugriff verweigert" jeder versuch den programmablauf zu
verzögern scheiterte.

VB optimiert halt den Code und deshalb ist die abgearbeitete Reihenfolge nicht immer identisch mit der programmierten.

(der code oben steht mit in einer recht umfangreichen class)
der code mit Open...usw. in in einer einer eigenen prozedur

MfG Peter(TOO)