Ist Datei geöffnet? [Erledigt]

[Jan]

Kann man einfach feststellen, ob eine Datei gerade durch irgendein anderes Programm geöffnet ist?

Jan

[Tom]

Meinst Du Tabellen? Das geht sehr simpel (und ginge auch noch eleganter):

Code: Alles auswählen

FUNCTION CheckIsInUse(cTable)
USE (cTable) EXCLUSIVE NEW
IF NetErr()
  RETURN .T.
ENDIF
CLOSE
RETURN .F.

[Jan]

Hallo Tom,

neenee, nicht so einfach, bitte . Es geht mir nicht um eine Datenbank, sondern um irgendwelche anderen Dateien. Also pdf, Text, oder sonstwas.

Jan

[Martin Altmann]

Einfach löschen - wenn es klappt, war sie nicht geöffnet

Viele Grüße,
Martin

[Bertram Hansen]

Aber vorher bitte eine Kopie anlegen!

Spaß beiseite, wie wäre es mit FOPEN(cFile, FO_EXCLUSIVE) ?

[Tom]

Eine Applikation, die die Datei tatsächlich öffnet - und nicht etwa nur eine lokale Kopie davon, wie z.B. Acrobat - sollte das Dateiattribut "Read Only" setzen, das man m.E. über die Tools-Funktion FileAttr() (FA_READONLY) abfragen kann. Aber. Viele Apps tun das nicht - aus gutem Grund, denn ein Absturz der Workstation, die das gemacht hat, würde das Öffnen dieser Datei auf ewig verhindern. Word zum Beispiel murkst mit einem Flag-File herum, das dem Dateinamen entspricht, aber als erste zwei Zeichen Tilde-Dollar enthält (diese Datei wird "hidden" angelegt). Ähnliches macht Excel. Verlässlich ist nichts davon. Insofern hat Martins Idee durchaus etwas für sich: Wenn es gelingt, die Datei zu löschen oder zu überschreiben, war sie möglicherweise nicht geöffnet. Allerdings sollte man bei dieser Methode dafür sorgen, dass das Original stantepede wieder entsteht.

[AUGE_OHR]

Kann man einfach feststellen, ob eine Datei gerade durch irgendein anderes Programm geöffnet ist?

Computerverwaltung -> geöffnete Dateien ... aber du willst es sicherlich aus deiner Xbase++ Application ( Setup ? ) machen

Ich müsste mal bei WMI nachsehen welche der Functionen das machen könnte ... wenn du einen Tip hast könnte ich den "Source" dazu schnell "generieren"

[Jan]

Hallo,

die Idee mit FOpen() werde ich mal versuchen. Hört sich gut an.

Jan

[Markus Walter]

Hallo Jan,

fopen im exclusiv-Modus ist sicher ein guter Ansatz, aber...
das Gelingen hängt aus meiner Sicht auch immer von den "Zugriffs-Konkurenten" ab und von der konkreten Situation. Nicht alle Programme halten eine Datei physikalisch geöffnet während sie die "Datei bearbeiten".

Nehmen wir mal folgenden Beispiel-Code eines Fremdprogrammes:

Code: Alles auswählen

cText := memoread("test.txt")

... hier ein längerer Vorgang, der den Dateiinhalt ändert

memowrit("test.txt", cText

Hier wäre zwischen dem Lesen und Schreiben die Datei nicht geöffnet, also würde in diesem Zeitfenster eine Überprüfung mit fopen-exclusiv gelingen, allerdings würde später ggf. das Konkurrenz-Programm abstürzen, hängen oder was auch immer (wenn Du die Datei dann noch geöffnet hast) oder Deine Änderungen überschreiben (wenn Du die Datei wieder geschlossen hast...
Aber eine Lösung für solche Fälle ist schwierig bis unmöglich.

[Jan]

Hallo Markus,

so wie Tom es zu einfach gesehen hat, so siehst Du das (zum Glück) zu kompliziert. In meinem Fall geht es darum, das ich eine pdf erstelle, und dabei das gesamte Programm sich ins Nirwana verabschiedet, wenn diese pdf gerade geöffnet ist. Ich muß also einfach nur über den Ansatz von Bertram ein exklusives Öffnen versuchen. In meinem Fall reicht das schon aus.

Abgesehen davon denke ich mal, das es eher ungewöhnlich ist, eine Datei während des lesens nicht geöffnet zu halten.

Jan

[Markus Walter]

Hallo Markus,

so wie Tom es zu einfach gesehen hat, so siehst Du das (zum Glück) zu kompliziert.

Ich bin dafür bekannt, vieles zu kompliziert zu sehen...

Abgesehen davon denke ich mal, das es eher ungewöhnlich ist, eine Datei während des lesens nicht geöffnet zu halten.
Jan

Optimist, versuch doch mal z. B. Windows-Notepad...