API: CreateFile aus Kernel32 Lib

Hallo zusammen

Wenn ich die Doku des Aufrufes richtig lese, sollte dieser API - Call u.a. ein File erzeugen. Den „Create Disposition“ Parameter ist als „CREATE_ALWAYS“ definiert

Deklaration:
Private Declare Function CreateFile Lib „kernel32“ Alias „CreateFileA“ (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Aufruf:
Dim var_result As Variant
var_result =CreateFile(strFile, GENERIC_READ, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
Debug.Print hFile

Natürlich kann mit den anderen Methoden (FSO, etc.) zum Ziel kommen. Nur ärgert es mich, dass es nicht läuft… :frowning:

Grüsse und Dank für Korrekturen - Peter

Hallo Peter

Aufruf:
Dim var_result As Variant
var_result =CreateFile(strFile, GENERIC_READ, 0, 0,
CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
Debug.Print hFile

Ich Frage mich was du mit einem leeren File, welches nur gelesen werden darf sinnvolles anstellen willst ??

Versuch’s doch mal GENERIC_ WRITE.

MfG Peter(TOO)

Aaaaaaaaaaaaaaahhhhhhhhhhhhhhhhhhhhhhhhh!!
Sch… So ein Mist!!! vielen Dank Peter

Sch… So ein Mist!!! vielen Dank Peter

Ich hoffe es sind dir noch ein paar Haare übrig geblieben :wink:)

MfG Peter(TOO)