Thanks arnelgp, problem is I haven't made it clear I'm doing this in Access, so your code stops part way through,
Public Function WhoHasLockMyFile(serverName As Variant, fileFullPath As String) As String
Dim varServer, varFile, objFS, varFoundNone, objRes
Dim FindPos As Long
' first, get the...