Обсуждение темы "Обмен кнопками"

[Batya]

Еще как !!!!!! Спасибо !

Нда... Постарайся, задавать вопросы более грамотно.
Ставлю себе "пятёрку" за телепатию

[Palich]

Flasher
Вот так не работает если переместить а не скопировать папку именно так она у меня и работала, внутрь я не лазил

C:\No Limits [1993]\Break The Chains - 2 Unlimited.mp3

А вот так все робит

Break The Chains - 2 Unlimited.mp3

[Flasher]

Palich
Ясно. Для возобновления работы выделенных плейлистов используй этот скрипт со следующими параметрами кнопки:
"([:a-zа-я]+)\\" "" %L

[happywanderer]

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

[Flasher]

Если с перезагрузкой, то так:

Код: Выделить всё

' Отключить иконки, вызов меню и запись на рабочий стол
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

Без - так:

Код: Выделить всё

' Запретить запись на Рабочий стол
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

[happywanderer]

Flasher Спасибо, но сейчас проверить не могу, т.к. на чужой машине рисковать не хочу. На домашней проверю и отпишусь. И ещё вопрос: это работает(вступает в силу) только на том пользователе из под которого сделаны изменения или для всех пользователей на машине отрубается доступ к рабочему столу? Ну и если не затруднит - кнопочку для обратимого процесса.

[Flasher]

happywanderer
Первый вариант - для всех, второй - для текущего юзера. А как надо было?
Для обратных:

Код: Выделить всё

' Вкключить иконки, вызов меню и запись на Рабочий стол 
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

Код: Выделить всё

' Разрешить запись на Рабочий стол 
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]

Первый вариант - для всех, второй - для текущего юзера. А как надо было?

Думаю что оба варианта пригодятся. Большое Спасибо!!! Как проверю-отпишусь.

[Artee]

Подскажите, пожалуйста, как создать текстовый файл со списком всех (включая скрытых) папок, подпапок, файлов в папке и подпапках с относительными путями?
Чтобы список, начиная с глубины вложений, выглядел так:

папка 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]

Artee
А поиском воспользоваться? 1, 2.

[Artee]

А поиском воспользоваться? 1, 2.

Это я и так нашел!
1 - не катит.
2 - что с теми кодами там делать не знаю.

[Flasher]

1 - не катит.

Отчего же? Было спрошено "как создать", значит всё катит.

2 - что с теми кодами там делать не знаю.

Что-то вас много сегодня. Возвращаемся к пройденному.

[Artee]

Отчего же?

От этого:

папка 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
...

Что-то вас много сегодня.

Artee 1.
Тфу... Ушел в гугль.

[Flasher]

От этого:

А там как-то иначе?
Пути к папкам

папка 3\подпапка 2
папка 2\подпапка 1
папка 3
папка 2
папка 1

для каких целей используются?

Вот так

Код: Выделить всё

папка 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.Полное имя]

А вот с папками, увы, ничем помочь не могу.
Для таких премудростей явно отдельная тема требуется, а не "обмен кнопками".

Тфу... Ушел в гугль.

Вообще-то в приведённых Avada ссылках все ответы по кодам даны. Какой ещё гугль?

[happywanderer]

Без перезагрузки:

Код: Выделить всё

' Запретить запись на Рабочий стол
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

Код: Выделить всё

' Разрешить запись на Рабочий стол 
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

Работает отлично, во всех учётках, даже в "Гость", за что автору СПАСИБО!