Flasher
|
 Posted: Sat Nov 30, 2013 21:01 Post subject: |
 |
|
| Code: | '========================================
' Копировать имена выбранных папок/файлов
'========================================
Const P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
With CreateObject("WScript.Shell")
.Run """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"" /ef tcm(2017)""",, True
A = .RegRead(P) : If A > 0 Then .RegWrite P, 0, "REG_DWORD"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
Clip = .document.Parentwindow.ClipboardData.GetData("text")
List = Replace(Clip, "\" + chr(13), chr(13))
List = Replace(Clip, "/" + chr(13), chr(13))
.document.ParentWindow.ClipboardData.SetData("text"), List
.ExecWB 45, 2 : .Quit
End With : If A > 0 Then .RegWrite P, A, "REG_DWORD"
End With |
См. путь к TCFS2.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
