Declare Function PathRemoveFileSpec Lib "Shlwapi" _ Alias "PathRemoveFileSpecW" _ (ByVal pszPath As Long) As Boolean
В случае удаления чего-либо возвращается ненулевое значение, иначе возвращается 0
Смотри пример в Shlwapi