[srinivas.alwala]

Private Sub Form_Load()
Dim FSO As Object
	Set FSO = CreateObject("Scripting.FileSystemObject")
	Dim Fl As Object
	strFolder = "C:\Documents and Settings\DMISAdmin\Desktop\"  ' path remains same always.

	strfile = "tst.txt"  ' filename remains same always.
	Do While strfile <> ""
		If strfile <> "." And strfile <> ".." Then
			Set Fl = FSO.GetFile(strFolder & "\" & strfile)
			MsgBox "File name is: " & strfile	'<-- works okay
			MsgBox "Date created is: " & Fl.DateCreated  '<-- works okay
			MsgBox "Date last modified is: " & Fl.DateLastModified  '<-- works okay
			
		   ' following line works okay so long as the file is opend on the local drive
		   ' is there someting like .ldb is for .mdb files to detect
		   ' this (whether it is open and the current user)
			MsgBox "Filecurrently is open: " & WorkbookIsOpen(strfile)   '<-- Need help *****
			MsgBox "Current User is: " & "????"	 '<-- Need help *****
			Set Fl = Nothing
		End If
		strfile = Dir()
	Loop
	Set FSO = Nothing
	
'This is the WorkbookIsOpen() function....
End Sub

Private Function WorkbookIsOpen(wbName) As Boolean
   '   Returns TRUE if the workbook is open
   Dim x As Workbook
   On Error Resume Next
   Set x = Excel.Workbooks(wbName)  ' error here as subscript out of range.
   If Err.Number = 0 Then WorkbookIsOpen = True _
		Else WorkbookIsOpen = False
End Function