Private Declare Function CreateFile Lib "kernel32" Alias _
          "CreateFileA" _
          (ByVal lpFileName As String, _
           ByVal dwDesiredAccess As Long, _
           ByVal dwShareMode As Long, _
           lpSecurityAttributes As SECURITY_ATTRIBUTES, _
           ByVal dwCreationDisposition As Long, _
           ByVal dwFlagsAndAttributes As Long, _
           ByVal hTemplateFile As Long) As Long
 
Private Declare Function SetEndOfFile Lib "kernel32" Alias _
         "SetEndOfFile" _
         (ByVal hFile As Long) As Long
 
Private Declare Function SetFilePointer Lib "kernel32" Alias _
          "SetFilePointer" _
          (ByVal hFile As Long, _
           ByVal lDistanceToMove As Long, _
           lpDistanceToMoveHigh As Long, _
           ByVal dwMoveMethod As Long) As Long
 
Private Declare Function CloseHandle Lib "kernel32" Alias _
           "CloseHandle" _
           (ByVal hObject As Long) As Long
 
Private Const GENERIC_WRITE = &H40000000
Private Const OPEN_ALWAYS = 4
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const FILE_SHARE_READ = &H1
Private Const FILE_BEGIN = 0
 
Private Function SetEndOfMyFile(Byval sFileName As String, Byval nPos As Long) _
  As Boolean
       Dim hFileHandle As Long
 
       SetEndOfMyFile = False
 
       'File öffnen
       hFileHandle = CreateFile(sFileName, _
                                                       GENERIC_WRITE, _
                                                        FILE_SHARE_READ, _
                                                        0, _
                                                        OPEN_ALWAYS, _
                                                        FILE_ATTRIBUTE_NORMAL,
                                                        0)
 
       'Datensatzzeiger setzen
        SetFilePointer hFileHandle, nPos, Byval 0,FILE_BEGIN
 
        'EOF setzen     
        SetEndOfMyFile = CBool(SetEndOfFile(hFileHandle))
 
        'File schließen
        CloseHandle hFileHandle
End Function