progmail$ ist thunderbird, File.s ist der geklammerte Pfad + Dateiname, der angezeigt werden soll und pathwork$ ist nochmals der Pfad zur Datei. Das gleiche Problem besteht bei html-Dateien mit firefox und bei Fotos mit Fotoflare was aber wenigstens nur einen 2.Reiter öffnet. Auch VLC für videos zeigt den Fehler. Die beiden einzigen Programme. die richtig nur einmal starten sin LibreOffice und foxitreader.
ElseIf pathwork$ = pathfiles$ And Right(File$,4) = ".eml"
RunProgram(progmail$, File.s, pathwork$)
Ich suche und suche und finde keinen Grund für das Verhalten. Hier zur Übersicht die komplette Auswertung welche Datei mit welchem Programm angezeigt werden soll:
Code: Alles auswählen
If pathwork$ = pathaudio$
RunProgram(progaudio$, File.s, pathwork$) ; z.Zt noch unbenutzt
ElseIf pathwork$ = pathfoto$
RunProgram(progfoto$, File.s, pathwork$) ; fotoflare
ElseIf pathwork$ = pathvideo$
RunProgram(progvideo$, File.s, pathwork$) ; vlc
ElseIf pathwork$ = pathfiles$ And Right(F$, 3) = "pdf"
RunProgram(progpdf$, File.s , pathwork$) ; foxitreader
ElseIf pathwork$ = pathfiles$ And ((Left(Right(File$,4) ,2)) =".o" Or (Left(Right(File$,4) ,3)) = ".do" Or (Left(Right(File$,5) ,2)) = ".do" Or (Left(Right(File$,4) ,3)) = ".xl" Or (Left(Right(File$,5) ,3)) = ".xl")
RunProgram(progfile$, File.s, pathwork$) ; libreoffice
ElseIf pathwork$ = pathfiles$ And Right(File$,4) = ".eml"
RunProgram(progmail$, File.s, pathwork$) ; thunderbird
Else
RunProgram(proghtml$, File.s, pathwork$) ; firefox
EndIf