|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.06.2012, 10:07 | #1 |
Регистрация: 05.04.2011
Сообщений: 6
|
Удаление пустой папки
Как средствами VBA проверить папку на пустоту, и если она пуста то удалить её, иначе ничего не предпринимать????
|
03.06.2012, 10:29 | #2 |
Регистрация: 05.04.2011
Сообщений: 6
|
Sub Проверка_папки_на_пустоту()
Dim fso As Object Dim fold Set fso = CreateObject("Scripting.FileSystemO bject") Set fold = fso.GetFolder("C:\Папка") If fold.Files.count = 0 Then RmDir ("C:\Папка") End If End Sub |
03.06.2012, 14:24 | #3 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Можно так
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запрет на удаление пустой строки StringGrid | Sheeby | Помощь студентам | 8 | 25.04.2011 07:31 |
Удаление пустой строки | ggxxx | Microsoft Office Excel | 2 | 30.04.2010 16:10 |
Попытки запуска пустой папки | DeKot | Безопасность, Шифрование | 9 | 18.12.2009 19:31 |
удаление строки, начинающейся с пустой ячейки | grichanuk | Microsoft Office Excel | 3 | 01.12.2009 05:31 |
Удаление пустой страницы Word | Flame_of_Death | Общие вопросы Delphi | 1 | 16.07.2009 07:07 |