Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei löschen/Fehler, weil noch geöffnet

Datei löschen/Fehler, weil noch geöffnet
01.07.2004 10:44:21
Uwe
Hallo zusammen,
ich möchte per Makro eine Datei löschen. Wenn diese allerdings noch geöffnet ist, gibt es eine Fehlermeldung.
Gibt es eine Möglichkeit vorher zu testen, ob die Datei geöffnet ist oder die Möglichkeit die Datei erst zu schließen und dann zu löschen.
Gruß
Uwe

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei löschen/Fehler, weil noch geöffnet
ChrisL
Hi Uwe

Function DateiIstFrei(ByVal sDateiname As String) As Boolean
'Funktion zur Überpfüfung, ob Datei bereits geöffnet
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

Schliessen kannst du die Datei nur, wenn du die Datei auch selber geöffnet hast.
Workbooks("XY").Close
Gruss
Chris
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige