openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Jörg Schmidt <joe...@j-m-schmidt.de>
Subject Re: .odt Dateien defekt, werden als .txt angesehen
Date Thu, 02 Feb 2017 09:12:49 GMT
Hallo, 

> From: technik_div@jrsch.de [mailto:technik_div@jrsch.de] 

> sieht schlecht aus. Es waren odt Dateien, jetzt fängt die 
> Testdatei mit 
> 24 B4 an. Außerdem ist sie zu klein für eine odt Datei. Da ist wohl 
> etliches defekt.
> 
> Gibt es eine Möglichkeit per Makro zu prüfen, ob eine Datei als odt 
> lesbar ist? 

naja, zumindest doch indem man versucht die Datei normal zu öffnen und auf deren Text zuzugreifen,
kommt kein Fehler ist sie lesbar, kommt ein Fehler dann nicht. Also ungefähr so (nicht getestet):

Sub Datei_testen(Dateiadresse As String)
  On Error Goto Fehler	
  tmp = StarDesktop.loadComponentFromURL(Dateiadresse, "_blank", 0, Array())
  inhalt = tmp.Text
  Msgbox "OK, Dateizugriff möglich"
  Exit Sub

  Fehler:
  Msgbox "Datei konnte nicht gelesen werden"
End Sub

Gruß
Jörg


---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message