Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
6 / 6 / 0
Регистрация: 04.02.2014
Сообщений: 23

Удалить все пустые папки в текущей папке

07.05.2014, 00:12. Показов 2468. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Удалить все пустые папки в текущей папке
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
07.05.2014, 00:12
Ответы с готовыми решениями:

Переместить все файлы из всех подкаталогов в текущий каталог и удалить пустые подкаталоги
Переместить все файлы из всех подкаталогов в текущий каталог и удалить подкаталоги, если у них нет своих подкаталогов

Переменная текущей папки
Есть код Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") oShell.run "D:\Programs\off.bat", 0 Set oShell =...

Как узнать имя текущей папки?
Есть папка с файлами и в ней файлик vbs. Папка может перемещаться время от времени. И важно знать для вбс имя текущей папки, т.е. той папки...

3
74 / 50 / 29
Регистрация: 30.08.2012
Сообщений: 143
07.05.2014, 02:01
Почитайте документацию: http://www.script-coding.com/W... bject.html
1
27 / 26 / 11
Регистрация: 25.03.2014
Сообщений: 217
17.05.2014, 17:37
Лучший ответ Сообщение было отмечено Eva Rosalene как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
strFldr = Wscript.arguments.Item(0)
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
DelBlank strFldr
 
Sub DelBlank(sFldr)
   Dim oD, cD, oI
 
   Set oD = objFSO.GetFolder(sFldr)
   Set cD = oD.SubFolders
 
   For Each oI In cD
     DelBlank oI.Path
   Next
 
   If oD.Size = 0 Then
      oD.Attributes = 0
      oD.Delete
   End If
End Sub
Сохранить в DelBlank.VBS
Вызывать через командную строку:
Bash
1
CScript DelBlank.VBS "C:\Temp"
Вместо "C:\Temp" можно указать любую папку
2
23.04.2020, 11:37

Не по теме:

полезно. спс

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.04.2020, 11:37
Помогаю со студенческими работами здесь

Удалить все пустые папки в текущей папке
Удалить все пустые папки в текущей папке.

Как удалить все файлы, пустые и непустые папки из текущей директории?
Подскажите, как удалить все файлы, пустые и непустые папки из текущей директории.

Удалить все пустые папки(рекурсия)
Хочу написать программу, которая будет искать пустые папки начиная с заданной директории и удалять их. Алгоритм такой: Заходить во...

Удалить в текущей папке все TXT-файлы, кроме перечисленных
Добрый день! Собственно в названии сам вопрос. Нашёл такой вариант решения: @echo off set "folder=папка для поиска .txt" ...

Найти папки с заданным именем, удалить старые файлы и пустые папки
добрый день помогите написать маленький скриптик 1. найти папки с именем "папка обмена" в /volume1/public 2. в найденных папках...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru