jetzt muss ich heute wieder den ersten Tag nach meinem viel zu kurzem Urlaub arbeiten und nun das
Ich möchte gern gerne so eine Art Hilfe-Datei erstellen, die über einen Button gestartet wird.
Sub Button_Help
.
.
.
if FileExists ("U:\Tempalte\help.html") then
sFile = "U:\Template\help.html"
else
msgbox "Datei nicht vorhanden"
end if
'Shell("U:\Template\help.html", 2)
Shell(sFile, 2)
end sub
Als Ergebnis bekomme ich aber eine Fehlermeldung: Datei nicht gefunden.
Die Datei ist aber da - dafür habe ich ja bereits die If-Abfrage extra dazwischen gepackt, um mögliche Fehler oder so zu vermeiden
Leider alles ohne Erfolg
Vielleicht weiß ja jemand was ich hier übersehen habe
Ich kann leider nicht sagen, warum am Schluss die Fehlermeldung kommt, obwohl die Datei vorhanden ist.
Ich will dich nur auf einen logischen Fehler in deinem Programm aufmerksam machen. Denn wenn die Datei nicht vorhanden ist, erhälts du zwar eine Meldungsbox, aber nach Bestätigung wird trotzdem der Shell Befehl ausgeführt. Dann kommt auch eine Fehlermeldung. Ich würde den Shell-Befehl vor den else-Befehl setzen.
Die If-Abfrage soll da garnicht hin.
Die ist nur da, weil ich irgendwann mal so genervt war und um nun ganz sicher zu gehen, dass es diese Datei auch wirklich gibt habe ich das eingebaut.
Ansonsten hast du natürlich recht.
Sollte ich das dann auch mal irgendwann zum laufen bekommen
wird da natürlich auch noch Abfangroutine für Fehler eingebaut...
logischer Fehler. Mit shell() kannst du ein externes Programm starten, keine Datei!
Dein Programmaufruf müsste also so etwa wie shell("irgend/ein/Pfad/mozilla.exe pfad/dateiname.html",2)
oder so. Nur der Aufruf einer Datei wird nicht funktionieren.
Gruss
Thomas
hab es eben getestet - läuft dann so wie gewünscht.
Das Probl. ist aber, dass ich nicht unbedingt erst noch die Pfadangabe zu dem Explorer oder Mozilla auslesen möchte
Gibt es denn eine andere Möglichkeit eine Datei direkt zu starten?
Gibt es denn eine andere Möglichkeit eine Datei direkt zu starten?
Nein Dateien sind halt nun mal keine Programme. Wenn du in einer Shell die Datei eingibst und Return drückst, wird auch nichts passieren. Dass unter Windows (und unter KDE, Gnome) beim Aufruf einer html-Datei der Standardbrowser startet, ist ein Ergebnis der Benutzeroberfläche, der Zuordnung der MIME Typen und der entsprechenden Verknüpfungen - um es dem Benutzer so einfach wie möglich zu machen. Das geht aber nicht beim Skripting.
Um nicht den Pfad zu erforschen - vielleicht kannst du eine Umgebungsvariable auslesen? (nicht getestet).
Gruss
Thomas
Du könntest natürlich den Pfad der für eine Dateiendung registrierten Anwendung aus der Registrierung lesen (Für lesen/schreiben in der Registry gibt es Beispielcode in den mitgelieferten Bibliotheken in OpenOffice).
Andererseits ist das hier bequemer. Mit *.HTML funktioniert es, aber es sollte eigentlich jede Datei mit dem für die Endung registrierten Anwendung öffnen, so die Datei nicht schnell genug weglaufen kann.
Sub beliebige_Datei_starten
'Dateiendung muß auf dem System registriert sein
Dim starten as object
starten = createUnoService("com.sun.star.system.SystemShellExecute")
starten.execute(ConvertToUrl("U:\Template\help.html"), "", 0)
End Sub
Das ist natürlich nur unter Windows zu verwenden, ich glaube nicht das es unter Linux geht getestet habe ich es aber nicht.
Dateien sind halt nun mal keine Programme. Wenn du in einer Shell die Datei eingibst und Return drückst, wird auch nichts passieren. Dass unter Windows (und unter KDE, Gnome) beim Aufruf einer html-Datei der Standardbrowser startet, ist ein Ergebnis der Benutzeroberfläche, der Zuordnung der MIME Typen und der entsprechenden Verknüpfungen - um es dem Benutzer so einfach wie möglich zu machen. Das geht aber nicht beim Skripting. 
