Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / удалить все файлы из папки / 7 сообщений из 7, страница 1 из 1
29.10.2004, 10:34:27
    #32760511
Наследники OIT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удалить все файлы из папки
подскажите пожалуйста, как удалить (из VB) все файлы из папки ?
...
Рейтинг: 0 / 0
29.10.2004, 10:44:55
    #32760533
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удалить все файлы из папки
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Sub delit()
Dim fname
ChDir "c:\tmp"
fname = Dir("")
While fname <> ""
Kill "c:\tmp\" & fname
fname = Dir()
Wend

End Sub
...
Рейтинг: 0 / 0
29.10.2004, 10:55:31
    #32760558
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удалить все файлы из папки
dir не сможе удалить вложенные папки.

можно воспользоваться библиотекой Scripting Runtime
она удалит все, включая и подпапки

Dim FSO As FileSystemObject
Set FSO = New FileSystemObject
FSO.DeleteFolder "c:\Temp\disketa", True
...
Рейтинг: 0 / 0
29.10.2004, 11:12:04
    #32760596
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удалить все файлы из папки
подскажите пожалуйста, как удалить (из VB) все файлы из папки ?
...
Рейтинг: 0 / 0
29.10.2004, 11:48:15
    #32760691
Наследники OIT
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удалить все файлы из папки
Да спасибо ! нужно было удалить именно файлы :)
...
Рейтинг: 0 / 0
29.10.2004, 11:52:42
    #32760703
АлексейК
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удалить все файлы из папки
2 ищ
не обижайся, я лоханулся с раскраской ленточной формы и теперь тоже ехидничаю
...
Рейтинг: 0 / 0
29.10.2004, 12:12:36
    #32760756
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
удалить все файлы из папки
на конкретный вопрос ты ответил
правильно.
я просто предложил вариант "а вдруг"
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / удалить все файлы из папки / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]