powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / удалить все файлы из папки
7 сообщений из 7, страница 1 из 1
удалить все файлы из папки
    #32760511
Наследники OIT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
подскажите пожалуйста, как удалить (из VB) все файлы из папки ?
...
Рейтинг: 0 / 0
удалить все файлы из папки
    #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
удалить все файлы из папки
    #32760558
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
dir не сможе удалить вложенные папки.

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

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


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