Dokument Viewer

[oktobaer]

Hallo Ihr!

Lese via FileControl ein DateiNamen ein und möchte diesen in einem Viewer anzeigen lassen.
In VBA ging das durch Aufruf des Internet Explorer mit dem FileNamen als Anhang.

Code: Alles auswählen

SUB FileControl_auswerten
	if init%=1 then exit sub
	
		Datei$=MDB_Dlg.getControl("FileControl").text
		Programm$="iexplore.exe "
		Befehl$= Programm$ & Datei$
		SHELL Befehl$
END SUB

So einfach geht es natürlich nicht...

Habt Ihr eine Idee?

OktoBaer

PS.: Als DateiTypen sollen gehen: PDF, übliche Grafiken, HTML, OpenOffice-Files

[oktobaer]

SUB FileControl_auswerten
init%=1 then exit sub

Datei$=MDB_Dlg.getControl("FileControl").text
Programm$="C:\Programme\Internet Explorer\IEXPLORE.EXE "
Befehl$= Programm$ & Datei$
SHELL (Befehl$)
END SUB

Der kpl. Pfad wird benötigt, dann geht es doch!
Der Explorer ruft dann abhängig von der Datei automatisch den entsprechenden Viewer auf, z.B. bei PDF.

Noch nicht perfekt, aber es geht schon mal...

Oktobaer