Letzter oder Aktiver User ermitteln
29.09.2006 09:30:02
MartinCH
Ich möchte gerne das untenstehende Sub und die folgenden Functionen zum Ermitteln des aktiven Besitzers einer Datei benutzen. Jedoch ist das Ergebnis leer. Was mache ich falsch?
Sub Test()
If TestOpen("J:\AKTIONEN\Cockpit_Aktionen\2006\InOutEventZusammenzug_Version_5.0-2006.xls") Then
MsgBox LastUser("J:\AKTIONEN\Cockpit_Aktionen\2006\InOutEventZusammenzug_Version_5.0-2006.xls")
Else
MsgBox "Nicht geöffnet"
End If
End Sub
Private Function TestOpen(sPath As String) As Integer
If Dir(sPath) = "" Then
TestOpen = 2
Else
On Error GoTo ERRORHANDLER
Open sPath For Random Access Read Lock Read Write As #1
Close #1
End If
ERRORHANDLER:
If Err = 70 Then TestOpen = 1
End Function
Function LastUser(strFileName As String) As String
Dim strText As String
Dim strFlag1 As String, strFlag2 As String
Dim i As Integer, j As Integer
strFlag1 = Chr(0)
strFlag2 = Chr(32) & Chr(32)
Open strFileName For Binary As #1
strText = Space(LOF(1))
Get 1, , strText
Close #1
j = InStr(1, strText, strFlag2)
i = InStrRev(strText, strFlag1, j) + Len(strFlag1)
LastUser = Mid(strText, i, j - i)
End Function
Besten Dank für Eure Begutachtung
Martin
PS Den Code habe ich auf dem Forum http://www.excel-center.de/forum/read.php?f=1&i=68240&t=68145
gefunden