Hello all,

I've got a programm running that retrieves information from a file.
After all the information is gathered the file (among other things) is placed in another directory.

I'm now encountering small problems while moving the file(s). The file can't be moved because of the fact the file is locked by another process (which creates this file).

Is there a way in VB to determ if a file has a lock or not?
I've looked at the Getattr function, but that doesn't return what I need.

If anybody can point me in the right direction....

Thanks in advance.

--KhalilDutch--
___________________________
If ... Then
...
Else
...
Whatever....

: Hello all,
:
: I've got a programm running that retrieves information from a file.
: After all the information is gathered the file (among other things) is placed in another directory.
:
: I'm now encountering small problems while moving the file(s). The file can't be moved because of the fact the file is locked by another process (which creates this file).
:
: Is there a way in VB to determ if a file has a lock or not?
: I've looked at the Getattr function, but that doesn't return what I need.
:
: If anybody can point me in the right direction....
:
: Thanks in advance.
:
: --KhalilDutch--
: ___________________________
: If ... Then
: ...
: Else
: ...
: Whatever....
:


Hi, try

Private Function IsLocked() as boolean
  On Error Goto FileIsLocked
  #iFile=FreeFile()
  Open "C:\Path\file.ext" For Output Lock Read Lock Write as #iFile
  Close #iFile
  IsLocked=True
  Exit Function
FileIsLocked:
  Exit Function
End Function

If the file is locked, Open will cause error, if not, True is returned

..this should work..


Pavlin II[/size]

Don't take life too seriously anyway you won't escape alive from it!