Подскажите как удалить в каталоге все файлы скажем с раширением
*.tmp.
Удаление файлов заданного расширения
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 2
• Страница 1 из 1
- Тимофей
- Обычный пользователь
- Сообщения: 83
- Зарегистрирован: 01.03.2004 (Пн) 10:01
- Откуда: Киров
Удаление файлов заданного расширения
Тимофей » 01.02.2005 (Вт) 8:19
- GM
- programador
- Сообщения: 1427
- Зарегистрирован: 24.06.2003 (Вт) 15:56
- Откуда: 194.67.52.100
GM » 01.02.2005 (Вт) 8:52
Перечисляем файлы с помощью Dir или FindFirstFile, а далее Kill.
- Код: Выделить всё
MyPath = "C:\"
MyName = Dir(MyPath & "*.tmp")
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) And vbDirectory) <> vbDirectory Then
'kill(MyPath & MyName) 'если msgbox показывает нужные результаты, то роскоментируй этот код
msgbox(MyPath & MyName)
End If
End If
MyName = Dir
Loop
الفيجوال بيسك الرابح
Сообщений: 2
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2