Hallo Leute,
folgendes Problem: Wir haben die Dokumenterstellung so programmiert, dass wir die Endung prüfen und entsprechend das Programm initialisieren, also bei DOT wird Microsoft Office initialisiert, bei OpenOffice-Vorlagen entsprechend OO etc.
Das Problem ist, dass ja auch Openoffice entsprechend Word-Vorlagen öffnen sollte, dazu habe ich diesen Code reinprogrammiert:
Leider funktioniert der gar nicht, Rückgabewert ist ein leerer String.
Kennt da jemand einen anderen Weg, ich wie das Standardprogramm zu einer Datei herausfinden kann, oder ist mein Code irgendwie fehlerhaft?
Wie immer danke ich im Voraus und verbleibe mit freundlichen Grüssen
Müller Matthias
folgendes Problem: Wir haben die Dokumenterstellung so programmiert, dass wir die Endung prüfen und entsprechend das Programm initialisieren, also bei DOT wird Microsoft Office initialisiert, bei OpenOffice-Vorlagen entsprechend OO etc.
Das Problem ist, dass ja auch Openoffice entsprechend Word-Vorlagen öffnen sollte, dazu habe ich diesen Code reinprogrammiert:
Code:
Private Function checkGetExecutable(mFile As String) As String
'http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tipps/tip0147.shtml
On Error GoTo checkGetExecutable_Error
Dim thisReturnValue As String
Dim thisEXE As String
Dim thisPfad As String
Dim thisDatName As String
Dim thisResult As Long
thisEXE = Space(254) & Chr(0)
thisPfad = FilesPath(mFile)
thisDatName = FilesName(mFile)
thisResult = FindExecutable(thisDatName, thisPfad, thisEXE)
thisReturnValue = Left(thisEXE, InStr(thisEXE, Chr(0)))
checkGetExecutable_Ende:
On Error Resume Next
checkGetExecutable = thisReturnValue
Exit Function
checkGetExecutable_Error:
Debug.Print Err.Description & "(" & Err.Number & ")" & " checkGetExecutable in clsBookmarks "
Debug.Assert (Err = False)
On Error Resume Next
WriteDBGView Err.Description & "(" & Err.Number & ")" & " checkGetExecutable in clsBookmarks ", App.EXEName
GoTo checkGetExecutable_Ende
Resume
End Function
Leider funktioniert der gar nicht, Rückgabewert ist ein leerer String.
Kennt da jemand einen anderen Weg, ich wie das Standardprogramm zu einer Datei herausfinden kann, oder ist mein Code irgendwie fehlerhaft?
Wie immer danke ich im Voraus und verbleibe mit freundlichen Grüssen
Müller Matthias