Получение списка папок в каталоге

1.) Проверка здесь . В основном сделайте это:

Function FileExists(ByVal FileToTest As String) As Boolean
   FileExists = (Dir(FileToTest) <> "")
End Function

я предоставлю Вам право выяснять различную необходимую обработку ошибок, но это среди вещей обработки ошибок, которые я рассмотрел бы:

• Проверка на передаваемую пустую строку.
• Проверка на строку, содержащую символы, недопустимые в имени файла / путь

2.), Как Удалить Файл. Взгляд это. В основном используют команду Kill, но необходимо допускать возможность файла, являющегося только для чтения. Вот функция для Вас:

Sub DeleteFile(ByVal FileToDelete As String)
   If FileExists(FileToDelete) Then 'See above          
      ' First remove readonly attribute, if set
      SetAttr FileToDelete, vbNormal          
      ' Then delete the file
      Kill FileToDelete
   End If
End Sub

Снова, я оставлю обработку ошибок Вам, и снова это вещи, которые я рассмотрел бы:

• это должно вести себя по-другому для каталога по сравнению с файлом? Пользователю, должно быть, придется явно указать, что они хотят удалить каталог?

• Вы хотите, чтобы код автоматически сбросил атрибут "только для чтения", или пользователю нужно дать своего рода признак, что атрибут "только для чтения" установлен?

РЕДАКТИРОВАНИЕ: Отмечание этого ответа как сообщество Wiki, таким образом, любой может изменить его в случае необходимости.