Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA"
(Byval lpFile As String, Byval lpDirectory As String, Byval lpResult As String)
Function FindExByFileName(Byval Datei As String) As String
Dim Pfad As String
Pfad = Space$(256)
FindExecutable Datei, vbNullString, Pfad
FindExByFileName = Trim(Pfad)
Sub Click(Source As Button)