Не работает дозапись WriteFile - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток! Товарищи, проблема вот в чём, необходимо, чтобы каждый раз при вызове функции она добавляла в файл информацию в следующую строку, либо в произвольную. Попытался в SetFilePointer указать со 2-й строки писать, а она всё равно в 1-ю пишет и ничего не дописывает. Каждый раз в 1-ю строку. Помогите, пожалуйста.

Решение задачи: «Не работает дозапись WriteFile»

textual
Листинг программы
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
.....
Call WriteFile(hFile, a(0), UBound(a) + 1, dwWrittenBytes, ByVal 0&)

Оцени полезность:

5   голосов , оценка 4.2 из 5