CreateFile=For Binary

[Source]

Какая комбинация флагов ф-и CreateFile соответствует оператору Open ... For Binary?

[BV]

Каких флагов? Флагов режима чтения у функции нет.

[Source]

вообщем, мне надо, чтобы программа могла копировать открытые другими приложениями файлы (в большинстве случаев могла прочитать данные). Тестирую на открытом в Microsoft Word файле doc. Нужно подогнать под эту задачу 2 ф-и (нужны обе):

Код: Выделить всё

CreateFile(Path & NameFile, GENERIC_READ, FILE_SHARE_READ, ByVal 0&, OPEN_EXISTING, ByVal 0&, ByVal 0&)
Open Path & NameFile For Binary Access Read Shared As hFile

пока остановился на CreateFile - не может открыть, выдаёт ошибку. Far копирует открытый doc, значит, доступ есть. Или вместо CreateFile использовать OpenFile, файл-то существует. Но и CreateFile должна работать...

[HiSER]

Ты пытаешься открывая файл запретить его читать, в то время, когда он уже открыт - по этому и ошибка.
убери GENERIC_READ

+ гляди в Err.LastDllError

[Source]

ты хотел сказать "Запретить его писать?" Word то его открыл для записи!

[Source]

если файл успешно открыт для чтения, может возникнуть ошибка чтения и в каком случае?

[BasiС]

надо, чтобы программа могла копировать открытые другими приложениями файлы..

Если непринципиально использование именно API, можно так:

Код: Выделить всё

Public Function LoadFileB(fFName As String) As Byte()
'Считывание файла в бинарном режиме
Dim sBody() As Byte, fn As Integer: fn = FreeFile
Open fFName For Binary Access Read As fn 'Считываем файл
    sBody = Space$(LOF(fn) / 2)
    Get fn, , sBody
Close fn
LoadFileB = sBody
Debug.Print UBound(sBody)
End Function

Public Sub SaveFileB(fFName As String, sBody() As Byte)
'Запись файла в бинарном режиме
Dim fn As Integer: fn = FreeFile
Open fFName For Binary As fn
    Put fn, , sBody
Close fn
End Sub

'Использование:

Call SaveFileB(newFName, LoadFileB(oldFName)) 'Перезапись файла

способ позволяет копировать открытый файл oldFName в newFName.

[HiSER]

Блин сам уже запутался...
Вот так должно работать:

Код: Выделить всё

h = CreateFile("c:\1.doc", GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0)