Показать сообщение отдельно
Старый 21.02.2007, 12:30   #7
fylhtqrf
Постоялец
 
Пол:Мужской
Регистрация: 03.09.2005
Адрес: отдаленный район ссыльных каторжников
Сообщений: 243
Репутация: 42
По умолчанию Re: Помогите созд. скрипт создания папки на рабочем столе.

Вот взял с сайта микрософта([Для просмотра ссылок требуется регистрация. Зарегистрироваться...] показывает перечень объектов на РАБОЧЕМ ДЕСКТОПЕ

Const DESKTOP = &H10&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(DESKTOP)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path
Set colItems = objFolder.Items
For Each objItem in colItems
Wscript.Echo objItem.Name
Next
счас может еще ченибудь нарою
__________________
ВСе что мне нужно: доброе слово, теплая постель ..... и не ограниченная власть
fylhtqrf вне форума
 
Ответить с цитированием Вверх
Сказали спасибо:
 
Время генерации страницы 0.07849 секунды с 9 запросами