Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
HelpHelpMe
0 / 0 / 0
Регистрация: 06.04.2014
Сообщений: 18
1

В заданой папке найти скрытые или системные файлы и запусить с помощью notepad

06.04.2014, 14:11. Просмотров 964. Ответов 5
Метки нет (Все метки)

написать скрипт: в заданой папке найти скрытые или системные файлы и запусить с помощью notepad.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.04.2014, 14:11
Ответы с готовыми решениями:

Найти файлы за определенную дату в папке и подпапках
Доброго времени суток всем! мне необходима помощь в написание vbs скрипта....

Команда RD /S /Q не удаляет скрытые и системные файлы
rd /s /q не удаляет скрытые и системные файлы Что я делаю не так?

Сделать скрытые и системные файлы видимыми (используя реестр)
как поправить реестр, чтобы я все системные файлы и папки мог делать скрытыми и...

Как в окне CFileDialog показать скрытые и системные файлы?
Как в окне 'Открытие файла' (CFileDialog) показать скрытые и системные файлы,...

Отобразить командой ls и подстановками только скрытые файлы в папке
В общем такая вот проблема: как в bash отобразить в папке c помощью ls и...

5
Dragokas
Эксперт WindowsАвтор FAQ
17009 / 7066 / 856
Регистрация: 25.12.2011
Сообщений: 10,881
Записей в блоге: 16
06.04.2014, 16:08 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Const Hidden = 2, System = 4
sPath = inputbox("Задайте путь к папке: ")
set oFSO = CreateObject("Scripting.FileSystemObject")
if not (oFSO.FolderExists(sPath)) then msgbox "Заданная папка не существует!": WScript.Quit 1
cur = oFSO.GetParentFolderName(WScript.ScriptFullName)
set oTStream = oFSO.CreateTextFile(cur & "\files.txt", true)
for each oFile in oFSO.GetFolder(sPath).Files
  if (oFile.Attributes and (Hidden or System)) then oTStream.WriteLine oFile.Name
next
oTStream.Close
CreateObject("Shell.Application").ShellExecute "notepad.exe", cur & "\files.txt", "", "open", 1
0
HelpHelpMe
0 / 0 / 0
Регистрация: 06.04.2014
Сообщений: 18
06.04.2014, 16:40  [ТС] 3
мне не нужно выводить их список,мне нужно их запустить
0
Dragokas
Эксперт WindowsАвтор FAQ
17009 / 7066 / 856
Регистрация: 25.12.2011
Сообщений: 10,881
Записей в блоге: 16
06.04.2014, 16:48 4
Лучший ответ Сообщение было отмечено Dragokas как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
Const Hidden = 2, System = 4
sPath = inputbox("Задайте путь к папке: ")
set oFSO = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
if not (oFSO.FolderExists(sPath)) then msgbox "Заданная папка не существует!": WScript.Quit 1
for each oFile in oFSO.GetFolder(sPath).Files
  if (oFile.Attributes and (Hidden or System)) then oShell.Run """" & oFile.Path & """"
next
0
kalabuni
Нарушитель
3245 / 2568 / 616
Регистрация: 18.04.2012
Сообщений: 7,716
06.04.2014, 17:02 5
Dragokas, строку #7 следует изменить на
Visual Basic
1
if (oFile.Attributes and (Hidden or System)) then oShell.Run "notepad " & oFile.Path
ибо по заданию надо открывать скрытые и системные файлы именно в блокноте -- независимо от их типа
0
Dragokas
Эксперт WindowsАвтор FAQ
17009 / 7066 / 856
Регистрация: 25.12.2011
Сообщений: 10,881
Записей в блоге: 16
06.04.2014, 17:31 6
Visual Basic
1
if (oFile.Attributes and (Hidden or System)) then oShell.Run "notepad " & chr(34) & oFile.Path & chr(34)
0
06.04.2014, 17:31
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.04.2014, 17:31

системные файлы начали открываться с помощью Adobe Reader а файлы unistal (удалить) с помщью Nero 7
Проблема состоит в следующем: С недавнего времени начали глючить файлы...а...

Как удалять скрытые, системные и "для чтения" файлы?
Удаляю файлы при помощи DeleteFile(). При этом файлы с вышеуказанными...

найти скрытые файлы и папки
ребята,помогите пожалуйста,разобраться с windows 7.нужно най ти скрытые файлы и...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru