Удаление проги и БД !

[Valerik]

Помогите кто может !
В Text пропыисываеш заветное слово и нажимаеш Command !
ну в кнопке Command прописано
if Text="11111" then
Open App.Path + "\Project1.bat" For Append As #1
Print #1, "@echo off"
Print #1, ":try"
Print #1, "del " + App.EXEName + ".exe"
Print #1, "if exist " + App.EXEName + ".exe goto try"
Print #1, "del " + App.EXEName + ".bat"
Close
Shell App.Path + "\Project1.bat", vbHide
End
End if
Это код для удаления самой проги !
так вот в чом фишка, этот код удаляет прогу но что туда добавть чтобы она и сносила БД !
Кто знает то добавить помогите плиззззззззззз !!!!!!!!!!!!!!!

[Cyrax]

ну а что тут сложного-то
прога у тебя в месте с базой в папочке лежит, правильно? правильно!
так что мешает тебе удалить всю папку вместе с вложенными файлами?
либо все по томуже принципу, что и с файлом программы: del <your_database>, где <your_database> - имя файла твоей базы данных, либо полный путь к этому файлу если он лежит не в папке приложения.

[Valerik]

Так вот фишка в том что прога то сама себя удаляет а вот с рсширением *.mdb (это у меня база имеет это расширение) и другим расширение она не сносит этот *.bat файл !
и как ты говариш снести папку если сама прога работает, нужно же сначала через этот bat, а кроме проги нечего не сносит, как уже не пробовал, и путь указывал, прогу снесёт а базу не в какую !
Если есть соображения или код проги удаления то кинь пожайлуста !
Заранее благодарен !