Private Sub Form_Load()
MsgBox FindExecutable("C:\INSTALL.LOG") ' --> C:\WINNT\system32\NOTEPAD.EXE
MsgBox FindExecutable("C:\WINNT\clock.avi") ' C:\Program\Windows Media Player\wmplayer.exe


End Sub