How Can I Tell When a File is no Longer Locked?

[wjfinniganjds]

I'd like to kick off a rename of a file as soon as it is written, but I am not sure how to tell when the program has released the lock.

Thanks!

[wjfinniganjds]

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

MySubje()

Private Sub MySubje()
On Error Resume Next
Dim strFileName
' Full path and name of file.
strFileName = "k:\test.txt"
Set fLog = fso.OpenTextFile(strFileName, ForAppending, True)
If Err.Number = 70 Then
WScript.Echo "locked"
Else
WScript.Echo "not locked"
End If
Err.Clear
End Sub