| View previous topic :: View next topic |
| Author |
Message |
Batya
Joined: 15 Dec 2004
Posts: 2227
Location: Москва, Россия
|
 (Separately) Posted: Fri Feb 11, 2011 20:37 Post subject: |
 |
|
| Palich wrote: | | Еще как !!!!!! Спасибо ! |
Нда... Постарайся, задавать вопросы более грамотно.
Ставлю себе "пятёрку" за телепатию 
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
| Back to top |
|
 |
Palich
Joined: 08 Feb 2010
Posts: 12
|
| (Separately) Posted: Fri Feb 11, 2011 21:50 Post subject: |
|
|
Flasher
Вот так не работает если переместить а не скопировать папку именно так она у меня и работала, внутрь я не лазил
C:\No Limits [1993]\Break The Chains - 2 Unlimited.mp3
А вот так все робит
Break The Chains - 2 Unlimited.mp3 |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Sat Feb 12, 2011 20:16 Post subject: |
|
|
Palich
Ясно. Для возобновления работы выделенных плейлистов используй этот скрипт со следующими параметрами кнопки:
"([:a-zа-я]+)\\" "" %L |
|
| Back to top |
|
|
happywanderer
Joined: 06 Oct 2009
Posts: 57
|
| (Separately) Posted: Tue Feb 15, 2011 11:27 Post subject: |
|
|
| Нужна кнопка для запрета создавать, копировать и сохранять файлы на Рабочий стол, если это возможно. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Tue Feb 15, 2011 22:26 Post subject: |
|
|
Если с перезагрузкой, то так:
| Code: | ' Отключить иконки, вызов меню и запись на рабочий стол
With CreateObject("WScript.Shell")
P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\"
.RegWrite P & "ActiveDesktop\NoAddingComponents",1,"REG_DWORD"
.RegWrite P & "ActiveDesktop\NoComponents",1,"REG_DWORD"
.RegWrite P & "Explorer\NoDesktop",1,"REG_DWORD"
End With |
Без - так: | Code: | ' Запретить запись на Рабочий стол
With CreateObject("WScript.Shell")
Name = Array("%USERPROFILE%\Desktop","%USERPROFILE%\Рабочий стол",_
"%ALLUSERSPROFILE%\Desktop","%ALLUSERSPROFILE%\Рабочий стол","%PUBLIC%\Desktop")
User=.ExpandEnvironmentStrings("%USERNAME%")
For Each N In Name
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /D """&User&""" /E",0,True
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /G """&User&""":R /E",0
Next
End With |
Last edited by Flasher on Wed Feb 16, 2011 12:56; edited 1 time in total |
|
| Back to top |
|
|
happywanderer
Joined: 06 Oct 2009
Posts: 57
|
| (Separately) Posted: Wed Feb 16, 2011 12:38 Post subject: |
|
|
| Flasher Спасибо, но сейчас проверить не могу, т.к. на чужой машине рисковать не хочу. На домашней проверю и отпишусь. И ещё вопрос: это работает(вступает в силу) только на том пользователе из под которого сделаны изменения или для всех пользователей на машине отрубается доступ к рабочему столу? Ну и если не затруднит - кнопочку для обратимого процесса. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Wed Feb 16, 2011 12:48 Post subject: |
|
|
happywanderer
Первый вариант - для всех, второй - для текущего юзера. А как надо было?
Для обратных:
| Code: | ' Вкключить иконки, вызов меню и запись на Рабочий стол
With CreateObject("WScript.Shell")
P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\"
.RegWrite P & "ActiveDesktop\NoAddingComponents",0,"REG_DWORD"
.RegWrite P & "ActiveDesktop\NoComponents",0,"REG_DWORD"
.RegWrite P & "Explorer\NoDesktop",0,"REG_DWORD"
End With |
| Code: | ' Разрешить запись на Рабочий стол
With CreateObject("WScript.Shell")
Name = Array("%USERPROFILE%\Desktop","%USERPROFILE%\Рабочий стол",_
"%ALLUSERSPROFILE%\Desktop","%ALLUSERSPROFILE%\Рабочий стол","%PUBLIC%\Desktop")
User=.ExpandEnvironmentStrings("%USERNAME%")
For Each N In Name
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /G """&User&""":F /E",0
Next
End With |
| happywanderer wrote: | | кнопочку для ... |
Скриптик. |
|
| Back to top |
|
|
happywanderer
Joined: 06 Oct 2009
Posts: 57
|
| (Separately) Posted: Wed Feb 16, 2011 15:03 Post subject: |
|
|
| Flasher wrote: | | Первый вариант - для всех, второй - для текущего юзера. А как надо было? |
Думаю что оба варианта пригодятся. Большое Спасибо!!! Как проверю-отпишусь. |
|
| Back to top |
|
|
Artee
Joined: 17 Feb 2011
Posts: 7
|
| (Separately) Posted: Thu Feb 17, 2011 18:52 Post subject: |
|
|
Подскажите, пожалуйста, как создать текстовый файл со списком всех (включая скрытых) папок, подпапок, файлов в папке и подпапках с относительными путями?
Чтобы список, начиная с глубины вложений, выглядел так:
папка 2\подпапка 1\подпапка 0\файл999.ex9
папка 2\подпапка 1\подпапка 0
папка 3\подпапка 2\файл888.ex8
папка 2\подпапка 1\файл777.ex7
папка 3\подпапка 2
папка 2\подпапка 1
папка 3\файл666.ex6
папка 2\файл555.ex5
папка 2\файл444.ex4
папка 1\файл333.ex3
папка 1\файл222.ex2
папка 3
папка 2
папка 1
файл111.ex1
файл000.ex0
...
Last edited by Artee on Thu Feb 17, 2011 19:06; edited 1 time in total |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 17, 2011 18:58 Post subject: |
|
|
Artee
А поиском воспользоваться? 1, 2. |
|
| Back to top |
|
|
Artee
Joined: 17 Feb 2011
Posts: 7
|
| (Separately) Posted: Thu Feb 17, 2011 19:09 Post subject: |
|
|
| Flasher wrote: |
А поиском воспользоваться? 1, 2. |
Это я и так нашел!
1 - не катит.
2 - что с теми кодами там делать не знаю. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 17, 2011 19:13 Post subject: |
|
|
| Artee wrote: | | 1 - не катит. |
Отчего же? Было спрошено "как создать", значит всё катит.
| Artee wrote: | | 2 - что с теми кодами там делать не знаю. |
Что-то вас много сегодня. Возвращаемся к пройденному. |
|
| Back to top |
|
|
Artee
Joined: 17 Feb 2011
Posts: 7
|
| (Separately) Posted: Thu Feb 17, 2011 19:24 Post subject: |
|
|
| Flasher wrote: | | Отчего же? |
От этого:
| Artee wrote: | папка 2\подпапка 1\подпапка 0\файл999.ex9
папка 2\подпапка 1\подпапка 0
папка 3\подпапка 2\файл888.ex8
папка 2\подпапка 1\файл777.ex7
папка 3\подпапка 2
папка 2\подпапка 1
папка 3\файл666.ex6
папка 2\файл555.ex5
папка 2\файл444.ex4
папка 1\файл333.ex3
папка 1\файл222.ex2
папка 3
папка 2
папка 1
файл111.ex1
файл000.ex0
... |
| Flasher wrote: | | Что-то вас много сегодня. |
Artee 1.
Тфу... Ушел в гугль. |
|
| Back to top |
|
|
Flasher
Joined: 06 Nov 2009
Posts: 14229
Location: Москва
|
| (Separately) Posted: Thu Feb 17, 2011 19:27 Post subject: |
|
|
А там как-то иначе?
Пути к папкам | Quote: | папка 3\подпапка 2
папка 2\подпапка 1
папка 3
папка 2
папка 1 |
для каких целей используются?
Вот так
| Code: | папка 2\подпапка 1\подпапка 0\файл999.ex9
папка 3\подпапка 2\файл888.ex8
папка 2\подпапка 1\файл777.ex7
папка 3\файл666.ex6
папка 2\файл555.ex5
папка 2\файл444.ex4
папка 1\файл333.ex3
папка 1\файл222.ex2
файл111.ex1
файл000.ex0 |
сделать первым способом - не проблема, достаточно перед сохранением отсортировать по колонке со следующими данными поля:
[=filex.Глубина вложенности][=tc.Путь][=tc.Полное имя]
А вот с папками, увы, ничем помочь не могу.
Для таких премудростей явно отдельная тема требуется, а не "обмен кнопками".
| Artee wrote: | | Тфу... Ушел в гугль. |
Вообще-то в приведённых Avada ссылках все ответы по кодам даны. Какой ещё гугль? |
|
| Back to top |
|
|
happywanderer
Joined: 06 Oct 2009
Posts: 57
|
| (Separately) Posted: Sat Feb 19, 2011 23:57 Post subject: |
|
|
| Flasher wrote: | Без перезагрузки: | Code: | ' Запретить запись на Рабочий стол
With CreateObject("WScript.Shell")
Name = Array("%USERPROFILE%\Desktop","%USERPROFILE%\Рабочий стол",_
"%ALLUSERSPROFILE%\Desktop","%ALLUSERSPROFILE%\Рабочий стол","%PUBLIC%\Desktop")
User=.ExpandEnvironmentStrings("%USERNAME%")
For Each N In Name
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /D """&User&""" /E",0,True
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /G """&User&""":R /E",0
Next
End With |
| Code: | ' Разрешить запись на Рабочий стол
With CreateObject("WScript.Shell")
Name = Array("%USERPROFILE%\Desktop","%USERPROFILE%\Рабочий стол",_
"%ALLUSERSPROFILE%\Desktop","%ALLUSERSPROFILE%\Рабочий стол","%PUBLIC%\Desktop")
User=.ExpandEnvironmentStrings("%USERNAME%")
For Each N In Name
.Run"cacls """&.ExpandEnvironmentStrings(N)&""" /G """&User&""":F /E",0
Next
End With |
|
Работает отлично, во всех учётках, даже в "Гость", за что автору СПАСИБО! |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
