Hallo
Ich öffne einen FTP Zugang zum Web mit:
'-------------------------------------------------------------
hOpen = InternetOpen(FTP_UAgent, INTERNET_OPEN_TYPE_DIRECT, _
vbNullString, vbNullString, 0)
If hOpen 0 Then
If Check1.Value Then nFlag = INTERNET_FLAG_PASSIVE
hConnection = InternetConnect(hOpen, FTP_Server, _
INTERNET_INVALID_PORT_NUMBER, _
FTP_User, FTP_PassW, _
INTERNET_SERVICE_FTP, nFlag, 0)
'--------------------------------------------------------------
So, dies funktioniert soweit. Jetzt möchte ich eine Datei öffnen um den Inhalt dieser Datei einzulesen. Ich versuchte es mit:
'--------------------------------------------------------------
hfile = InternetOpenUrl(hConnection, „NHK/Testa/CExist.txt“, vbNullString, _
ByVal 0&, INTERNET_FLAG_RELOAD, _
ByVal 0&:wink:
InternetReadFile(hfile, Buffer, l, result&:wink:
'---------------------------------------------------------------
Dies Funtioniert aber nicht. Was mache ich dann falsch?
Besten Dank für eure Antwort.
Grüsse Sebastian