AW: Datei durch einen anderen Benutzer gesperrt
22.05.2011 11:44:44
Peter
Hallo Rudi
Konnte das Makro erst jetzt testen - musste noch etwas schrauben, weil ich anders rum einlese - doch jetzt funktioniert es - ich hab es so gemacht -vielen dank ond en schöne Sunntig :-)
Sub CheckFiles_While_For()
Dim sFil As String, xA As Variant, myFile As Object, j As Integer
ChDir ThisWorkbook.Path 'Wichtig!
sFil = Dir("Makro-F*.xls*")
ReDim xA(0)
Do Until sFil = ""
ReDim Preserve xA(j)
xA(j) = sFil
j = j + 1
sFil = Dir
Loop
For j = 0 To UBound(xA)
Select Case TestOpen(xA(j)) 'myFile)
Case 0: MsgBox xA(j) & " steht zur Verfügung."
Case 1: MsgBox xA(j) & " ist geöffnet."
Case 2: MsgBox xA(j) & " gibt es nicht."
End Select
Next j
End Sub
Function TestOpen(ByVal sFile As String) As Integer
If Dir(sFile) = "" Then
TestOpen = 2
Else
On Error GoTo ERRORHANDLER
Open sFile For Random Access Read Lock Read Write As #99
Close #99
End If
ERRORHANDLER:
If Err = 70 Then TestOpen = 1
End Function