function! <SID>SpawnExplorer(match)
    if isdirectory(a:match)
      VTreeExplore a:match
    endif
  endf

  augroup FileExplorer
   au!
   au BufEnter * silent! call <SID>SpawnExplorer(expand("<amatch>"))
  augroup END