Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateiprüfung --> ob offen ist

Dateiprüfung --> ob offen ist
29.11.2002 19:55:40
Steffen
Guten Abend Leute, heute häufen sich die Probleme wieder,

ich habe in einer Zelle einen Dateinamen, mit Pfad stehen:

z.B.:

C:\Test\Test\Test.xls

Nun möchte ich vor dem öffnen prüfen, ob diese Datei schon offen ist, wie kann ich das bewerkstelligen, die Pfadangabe muss mit in der Zelle stehen!?

Danke schonmal

Steffen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateiprüfung --> ob offen ist
29.11.2002 20:03:42
Nepumuk
Hallo Steffen,
mit diesem Programm:

Option Explicit
Sub DateiZustand()
Dim Pfad As String
    Pfad = ' hier deine Zelladresse
    If DateiIstFrei(Pfad) = False Then
      MsgBox "Datei ist bereits geöffnet !"
    Else
      MsgBox "Datei ist z.Zt. nicht geöffnet !"
    End If
End Sub

Function DateiIstFrei(sDateiname As StringAs Boolean
Dim hFile As Integer
    On Error Resume Next
    hFile = FreeFile()
    Open sDateiname Access Read Lock Read Write As #hFile
    If Err Then
      DateiIstFrei = False
    Else
      DateiIstFrei = True
    End If
    Close #hFile
End Function

     Code eingefügt mit Syntaxhighlighter 1.14

Gruß
Nepumuk

Anzeige
Danke geht,
29.11.2002 21:46:13
Steffen
super, woher weist Du das bloß alles!

Steffen

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige