Hej.

Finns det något sätt kontrollera om en fil finns öppen i en applikation?
Skall även fungera över nätverk, tex. user kalle har filen \\server1\filer$\test\test.doc öppen i word.
Filtyper och applikationer varierar.

/Tobbe

Så här brukar jag lösa det
<code>
Option Explicit

Private Sub FileOpenCheck()
Dim Fnum As Long, PathStr As String
Fnum = FreeFile
PathStr = "\\server1\filer$\test\test.doc"
On Error Resume Next
Open PathStr For Input As #Fnum
If Err = 55 Then _
MsgBox "Filen är öppnad av annan applikation"
Close #Fnum
Err.Clear
End Sub
</code>