private Declare Function PathFileExists Lib "shlwapi.dll" Alias _
  "PathFileExistsA" (ByVal pszPath As String) As Long

dim i&
for i=lbound(path) to ubound(path)
      if cbool(PathFileExists(path(i))) then
         <font color='green'>pfad existiert</font>
      end if
next i