Thomas Risi Softwareentwicklung

FileStatus

Immer wieder gerne in den Foren gefragt: Ist eine (Excel)-Datei bereits (von einem anderen Nutzer) geöffnet ?

Hier eine Funktion um diese Frage zu klären ...

Option Explicit Public Enum XL_FILESTATUS XL_UNDEFINED = -1 XL_CLOSED XL_OPEN XL_DONTEXIST End Enum Public Function FileStatus(xlFile As String) As XL_FILESTATUS On Error Resume Next Dim File%: File = FreeFile Err.Clear Open xlFile For Binary Access Read Lock Read As #File Close #File Select Case Err.Number Case 0: FileStatus = XL_CLOSED Case 70: FileStatus = XL_OPEN Case 76: FileStatus = XL_DONTEXIST Case Else: FileStatus = XL_UNDEFINED End Select End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)