By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
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)