Code:
Shared Function FileIsLocked(ByVal fileFullPathName As String) As Boolean
Dim isLocked As Boolean = False
Dim fileObj As System.IO.FileStream
Try
fileObj = New System.IO.FileStream(_
fileFullPathName, _
System.IO.FileMode.Open, _
System.IO.FileAccess.ReadWrite, _
System.IO.FileShare.None)
Catch
isLocked = True
Finally
If fileObj IsNot Nothing Then
fileObj.Close()
End If
End Try
Return isLocked
End Function
i want to see if a file is locked
Comment