Проверить папку на наличие файлов

bulgakov Пользователь Сообщений: 160 Регистрация: 02.05.2015	#1 12.11.2015 18:47:19 Привет. Помогите пожалуйста. Как проверить папку на наличие файлов, если нет то выйти из функции, если есть то удалить все фаилы.

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#2 12.11.2015 18:56:59 Изучайте. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

bulgakov

Пользователь

Сообщений: 160 Регистрация: 02.05.2015

12.11.2015 19:11:52

Код

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\")
MsgBox Folder.Files.Count
Set File = Folder.Files.Item("AUTOEXEC.BAT")
MsgBox File.Path
Set File = Folder.Files("AUTOEXEC.BAT")
MsgBox File.Path

bulgakov Пользователь Сообщений: 160 Регистрация: 02.05.2015	#4 12.11.2015 19:12:26 Пойдёт?

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 12.11.2015 19:47:26 Это Вы у кого спрашиваете? )

bulgakov Пользователь Сообщений: 160 Регистрация: 02.05.2015	#6 12.11.2015 20:16:59 У участников форума!

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#7 12.11.2015 20:20:08 А самому проверить код - нет возможности?