Открыт ли файл?

[bam]

Подскажите как узнать открыт ли файл?

Есть файл "qqq.txt", лежит на "Комп3". Есть две проги "П1" и "П2" (написанные на VB), которые запущены на компах "Комп1" и "Комп2". Проги о существовании друг друга не знают. Как прогой "П1" определить открыт ли файл "qqq.txt" прогой "П2"?

Пробывал тупо найти ошибку о том, что нельзя файл открыть если он уже занят. Выглядит это так:
В проге "П2" писал:

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

Private F As Integer
Private Sub Form_Load()
   F = FreeFile
   Open "C:\tools.pmf" For Input As F
   Timer1.Interval = 30000
   Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
   Close F
End Sub

В проге "П1" и в течении 30 секунд запускал ее:

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

Private F As Integer
Private Sub Form_Load()
   F = FreeFile
   Open "C:\tools.pmf" For Input As F
End Sub


но, данные действия не привели ни к какой ошибке.

[ANDLL]

CreateFile с SHARE_NONE

[bam]

ANDLL, кодом помоги, а то я не работал с CreateFile.

[Денис]

bam

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

lock Optional. Keyword specifying the operations restricted on the open file by other processes: Shared, Lock Read, Lock Write, and Lock Read Write.

[Twister]

http://twister.rootkits.ru/articles/han ... um.php#p_3

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

[bam]

Денис, громадное спасибо, именно то что нужно.

[Денис]

bam
Пжалуйста.
Я может уже говорил, но повторюсь: Широко известно, что в vb6 нету офлайн-справки. Мой вариант решения - юзать hlp-файлы от vb5 или (если vb5 тоже нету под рукой) справку по VBA из Word например. Справка по office vba имеет неоспоримое преимущество - это контекстная справка, то есть мы тупо пишем Open в любом модуле и жмем F1. Появляется окошко с описанием. В hlp-файлах vb5 нужно уже юзать встроенный рубрикатор.

[bam]

В продолжение разбора доступа к файлу.
Столкнулся с такой проблемой:
Открываю файл и блокирую его на запись

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

Open Adres For Append Lock Write As F

затем пытаюсь его программно скопировать с помощью FileCopy, а VB его не копирует, хотя если просто (в проводнике) скопировать, то копирует. В чем моя ошибка?

[Хакер]

что в vb6 нету офлайн-справки.

С чего бы это?

[bam]

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

[Хакер]

bam
Не получается. Как ты на основании того, что фраза "в VB6 нет офлайн спраки" - ложь, сделал вывод, что нельзя скопировать файл?

[bam]

Хакер, залез в справку... и на FileCopy пишет,
Remarks
If you try to use the FileCopy statement on a currently open file, an error occurs.
Но ведь должен быть способ скопировать файл, если проводник его копирует...

[bam]

Ну что, никто не знает что ли?? не верю... помогите, плиз...

[Wolfie]

Попробуй CopyFile из API

[ZOD]

Вот это должно помочь.
В модуль:

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

Public Const OPEN_EXISTING = 3
Public Const FILE_ATTRIBUTE_NORMAL = &H80&
Public Const GENERIC_READ = &H80000000

Public 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
           
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long


Сама функция проверки: если занят - false, нет - true.

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


Public Function IsFreeFile(ByVal sLongFileName As String) As Boolean
     Dim hfile As Long
     IsFreeFile = False
     hfile = CreateFile(sLongFileName, GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
     
     If hfile <> -1 Then
         IsFreeFile = True
     End If
     CloseHandle hfile
End Function