Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBS/WHS/JS - Передача объекта в функцию

Ответить
Настройки темы
VBS/WHS/JS - Передача объекта в функцию

Аватара для ven00m

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


Сообщения: 76
Благодарности: 12

Профиль | Отправить PM | Цитировать

Изменения
Автор: ven00m
Дата: 17-07-2008
Описание: кривые руки
Вобщем надо написать скрипт для отчистки каталога со всеми подкаталогами (хз скока их там) от всяких ненужных файлов. Так как количество подкаталогов неизвестно то кроме как при помощи рекурсии имхо это не сделать, но у мну не получается передать в функцию каталог как объект. Заранее благодарен за помощь.
Код: Выделить весь код
'On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("c:\test\") ' Начальный каталог

Function Cleaner ( byRef Folder )

	For Each File in Folder.Files' Ищем в каталоге мусор среди файлов
		If File.Name = "$*" Or File.Name = "Thumbs.db" Or File.Name = "*.TMP" Then ' по маске
			'File.Delete 'удаляем 
			WScript.Echo File.Name
		End If
	Next
	
	For Each subFolder in Folder.SubFolders
		Cleaner ( subFolder )' вызываем эту же функцию для каждого подкоталога
	Next
		
End Function

Отправлено: 13:47, 17-07-2008

 

 


Moderator


Сообщения: 53441
Благодарности: 15497

Профиль | Отправить PM | Цитировать

ven00m, эта строка явно не к месту:
Цитата ven00m:
If File.Name = "$*" Or File.Name = "Thumbs.db" Or File.Name = "*.TMP" Then
Так работает:
Код: Выделить весь код
Set FSO = CreateObject("Scripting.FileSystemObject")

Set F = FSO.GetFolder("c:\test\") ' Начальный каталог
Cleaner F

Sub Cleaner(Folder)
  On Error Resume Next

  FSO.DeleteFile Folder.Path + "\$*", True
  FSO.DeleteFile Folder.Path + "\Thumbs.db", True
  FSO.DeleteFile Folder.Path + "\*.TMP", True

  For Each subFolder in Folder.SubFolders
    Cleaner subFolder
  Next
End Sub
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:39, 17-07-2008 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 3806
Благодарности: 824

Профиль | Отправить PM | Цитировать

функцию объявил, а где её вызов?

Отправлено: 15:45, 17-07-2008 | #3


Аватара для ven00m

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


Сообщения: 76
Благодарности: 12

Профиль | Отправить PM | Цитировать

Спасибо петруха. Все зашибись работает

Отправлено: 16:13, 17-07-2008 | #4



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » VBS/WHS/JS - Передача объекта в функцию

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Прочее - Два объекта viv2009 Сетевые технологии 0 22-01-2010 13:41
Разное - О смене владельца объекта Quaker_75 Microsoft Windows 2000/XP 1 23-12-2009 09:53
PowerShell - [решено] Проврка объекта в AD uneform_alex Скриптовые языки администрирования Windows 3 04-09-2009 06:24
Delphi - Delphi создание объекта ferrum2688 Программирование и базы данных 3 28-02-2007 22:04
Передача строки в функцию Javascript Faina Вебмастеру 7 07-03-2003 15:47


« Предыдущая тема | Следующая тема »


 
Переход