et oADSIFileService = GetObject("WinNT://./LanManServer")
LastUser = ""
Folder = LCase("S:\DB\")
If IsEmpty(oADSIFileService) = False Then
	Do
	SessionWasDeleted = False
	For Each adsResource In oADSIFileService.Resources
		ResUser = LCase(adsResource.User)
		ResPath = CStr(LCase(adsResource.Path))
		If InStr( 1 , ResPath, Folder) <>  0  Then
			For Each adsSession In oADSIFileService.Sessions
				SessName = adsSession.Name
				SessUser = LCase(adsSession.User)
				If SessUser = ResUser Then
					oADSIFileService.Sessions.Remove SessName
					SessionWasDeleted = True
				End If
			Next
			Exit For
		End If
	Next
	Loop Until SessionWasDeleted = False
End If

For Each adsResource In oADSIFileService.Resources