mit dem unten stehenden Script frage ich eich (für eine Folgeprozedur) ab, ob eine Datei "bereits geöffnet ist oder nicht" (derzeit nur mit "Meldung").
Nun habe ich das getestet - was passiert, wenn die Datei "gar nicht vorhanden" ist. Dann legt mir Excel die abgefragte Datei an - sprich ich habe in dem Ordner dann eine Datei "Test001.xls".
Kann mir jemand sagen warum ?
Danke!
Fabio
Function DateiIstFrei(sDateiname As String) As Boolean
Dim hFile As Integer
On Error Resume Next
hFile = FreeFile()
Open sDateiname For Random Access Read Lock Read Write As #hFile
If Err Then
DateiIstFrei = False
Else
DateiIstFrei = True
End If
Close #hFile
End Function
Sub DateiZustand()
Dim Pfad As String
Pfad = "C:\Testdateien_Excel\Test001.xls"
If DateiIstFrei(Pfad) = False Then
MsgBox "Datei ist bereits geöffnet !"
Else
MsgBox "Datei ist z.Zt. nicht geöffnet !"
End If
End Sub