• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 212
  • Last Modified:

Locked files

Is there a way to detect if a file is locked (in use)
0
dgb
Asked:
dgb
1 Solution
 
watyCommented:
Function CheckOpenFile(sFile as String) as Boolean

   Dim nFile As Integer

   nFile = FreeFile

   on error goto Error_Read

   Open sFile For Input Lock Read As #nFile
   Close #nFile

   CheckOpenFile = False

   Exit Function
Error_Read:
   if Err = 70 then
      msgbox "File already open"
   End If

   close #nFile
   
   CheckOpenFile = True

   Exit Function

End Sub
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now