FUNCTION WhoHas LPARA tcFileName oWS = CREATEOBJECT("WScript.Network") lcComputer = oWS.ComputerName CREATE CURSOR Resources (User C(20), Path C(254)) oFileService = GETOBJECT("WinNT://" + lcComputer + "/lanmanserver,Fileservice") FOR EACH oFile IN oFileService.Resources INSERT INTO Resources (User, Path) ; VALUES (oFile.User, oFile.Path) ENDFOR SELECT User From Resources ; WHERE LOWER(Path) = LOWER(tcFileName) ; INTO CURSOR HasFile SELE hasFile lcHasString = "" SCAN lcHasString = lcHasString + ALLTRIM(User) + ", " ENDSCAN IF !EMPTY(lcHasString) lcHasString = LEFT(lcHasString, LEN(lcHasString)-2) MESSAGEBOX(ALLTRIM(STR(RECCOUNT("Resources"))) + " total files open. " + CHR(13) + ; "The following users have the file " + tcFileName + ; " open:" + CHR(13) + CHR(13) + lcHasString, 64, "Open Files") ELSE MESSAGEBOX(ALLTRIM(STR(RECCOUNT("Resources"))) + " total files open. " + CHR(13) + ; " No user has " + LOWER(tcFileName) + " open.", 64,"") ENDIF