<![CDATA[Серый форум — Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?id=9113 Fri, 10 Jan 2014 16:05:30 +0000 PunBB <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=79062#p79062 Спасибо. Тему можно закрывать.

]]> Fri, 10 Jan 2014 16:05:30 +0000 https://forum.script-coding.com/viewtopic.php?pid=79062#p79062 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=79034#p79034

Ну допустим нужно получить доступ к рабочему столу, через вот такой вот выбор, как ?

Например задать 0 четвёртым аргументом BrowseForFolder или его вообще опустить (ещё есть какой-то CLSID и специальные наименования вроде "shell:Desktop" или "shell:DesktopFolder").

]]> Wed, 08 Jan 2014 23:22:33 +0000 https://forum.script-coding.com/viewtopic.php?pid=79034#p79034 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=79024#p79024 Скажите, а откуда получили &H1 Or &H10 Or &H200, &H11 данные наименования ? откуда их узнали для разных ОС (windows xp, windows vista, windows 7 )?
Shell.BrowseForFolder method (Windows) --> BROWSEINFO structure (Windows).

Спасибо.

]]> Wed, 08 Jan 2014 19:38:12 +0000 https://forum.script-coding.com/viewtopic.php?pid=79024#p79024 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=79023#p79023 Ну допустим нужно получить доступ к рабочему столу, через вот такой вот выбор, как ?

]]> Wed, 08 Jan 2014 19:36:17 +0000 https://forum.script-coding.com/viewtopic.php?pid=79023#p79023 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78981#p78981

Скажите, а откуда получили &H1 Or &H10 Or &H200, &H11 данные наименования ? откуда их узнали для разных ОС (windows xp, windows vista, windows 7 )?

Shell.BrowseForFolder method (Windows) --> BROWSEINFO structure (Windows).

И как я понимаю доступ к раб столу лучше не открывать ? Ибо что б не было ошибок ?

Причём тут доступ к Рабочему столу?

]]> Tue, 07 Jan 2014 10:58:57 +0000 https://forum.script-coding.com/viewtopic.php?pid=78981#p78981 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78979#p78979 И как я понимаю доступ к раб столу лучше не открывать ? Ибо что б не было ошибок ?

]]> Tue, 07 Jan 2014 10:03:29 +0000 https://forum.script-coding.com/viewtopic.php?pid=78979#p78979 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78978#p78978 Скажите, а откуда получили &H1 Or &H10 Or &H200, &H11 данные наименования ? откуда их узнали для разных ОС (windows xp, windows vista, windows 7 )?

]]> Tue, 07 Jan 2014 09:58:25 +0000 https://forum.script-coding.com/viewtopic.php?pid=78978#p78978 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78916#p78916

Nothing -- возвращается объект ShellFolder, а не строка.

Точно. Там же «Set». Старею, дурею …

]]> Sun, 05 Jan 2014 04:18:25 +0000 https://forum.script-coding.com/viewtopic.php?pid=78916#p78916 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78915#p78915 Nothing -- возвращается объект ShellFolder, а не строка.

]]> Sun, 05 Jan 2014 03:47:26 +0000 https://forum.script-coding.com/viewtopic.php?pid=78915#p78915 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78914#p78914 shiz пишет:

Разве?

А что будет, ежели пользователь нажмёт «Отмена»?

]]> Sun, 05 Jan 2014 03:32:39 +0000 https://forum.script-coding.com/viewtopic.php?pid=78914#p78914 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78912#p78912 alexii пишет:

Там всё равно надо проверять на «Not … Is Nothing»

Эта проверка в коде есть.

alexii пишет:

, на пустую строку

Разве?

alexii пишет:

и, наконец, на существование папки в файловой системе (дабы не наткнуться на какую-нибудь «Панель управления» или «Мои веб-узлы»).

Надо.

wildwolf007 пишет:
Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Example", 0, "My Computer") 
If objFolder Is Nothing Then
MsgBox "No folder selected.",,MyTitle
Else
MsgBox objFolder.Items.Item.path
asdf = objFolder.Items.Item.path
End If

заменить

Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Example", &H1 Or &H10 Or &H200, &H11) 

If objFolder Is Nothing Or Not objFolder.Self.IsFileSystem Then
    MsgBox "No folder selected.",, MyTitle
Else
    asdf = objFolder.Self.path
    MsgBox asdf
End If

?

]]> Sun, 05 Jan 2014 01:47:59 +0000 https://forum.script-coding.com/viewtopic.php?pid=78912#p78912 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78909#p78909 Там всё равно надо проверять на «Not … Is Nothing», на пустую строку и, наконец, на существование папки в файловой системе (дабы не наткнуться на какую-нибудь «Панель управления» или «Мои веб-узлы»).

]]> Sun, 05 Jan 2014 00:27:28 +0000 https://forum.script-coding.com/viewtopic.php?pid=78909#p78909 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78903#p78903 
        MsgBox objFolder.Items.Item.path
        asdf = objFolder.Items.Item.path

при выборе Рабочего стола даёт ошибку "Требуется объект: 'objFolder.Items.Item'".
Исправляется с помощью

asdf = objFolder.Self.path
]]> Sat, 04 Jan 2014 23:19:27 +0000 https://forum.script-coding.com/viewtopic.php?pid=78903#p78903 <![CDATA[Re: Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78891#p78891 А через метод browseForFolder() объекта Shell.Application не проще?

]]> Sat, 04 Jan 2014 19:11:30 +0000 https://forum.script-coding.com/viewtopic.php?pid=78891#p78891 <![CDATA[Обзор папок на HTA (проблема с рабочим столом)]]> https://forum.script-coding.com/viewtopic.php?pid=78880#p78880 Формирую через HTA меню через которое можно выбрать папку, а потом что б все содержимое папки выдалось на форму. Все в принципе работает только вот в windows 7 есть такая проблема если выбираем рабочий стол, то начинают сыпаться ошибки (наверное потому что windows 7 использует относительные ссылки ) как можно что б при выборе рабочего стола отобразились все файлы, а не посыпались ошибки?

        sDinamicContent = sDinamicContent & "<Form Name=ChkBoxFrm>"

        Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Example", 0, "My Computer") 
        If objFolder Is Nothing Then
        MsgBox "No folder selected.",,MyTitle
        Else
        MsgBox objFolder.Items.Item.path
        asdf = objFolder.Items.Item.path
        End If
        Set objFolder = Nothing

        Set objNetwork = CreateObject("Wscript.Network")    
            Name_Login_Div.InnerHTML = "Логин пользователя: " & objNetwork.UserName
        MsgBox asdf 
            Set FSO = CreateObject("Scripting.FileSystemObject")
            Set Folder = FSO.GetFolder(asdf)
            Dim MyArray1
            
            For Each File In Folder.Files
        
            sDinamicContent = sDinamicContent & "<input style=""background-color:#00ff00"" name=""File.Name"" value=""File.Name"" type=""checkbox""/>" & File.Name & "<br>"

            MyArray1 = File.Name
            MsgBox MyArray1
        Next
            
        sDinamicContent = sDinamicContent & "<input style=""background-color:#00ff00"" name=""ChkBx1"" Checked value=""Box1"" type=""checkbox""/>" & "<br>"
        sDinamicContent = sDinamicContent & "<input style=""background-color:#ffff00"" name=""ChkBx2"" value=""Box2"" type=""checkbox""/>" & "<br>"
          sDinamicContent = sDinamicContent & "<input style=""background-color:#ff0000"" name=""ChkBx3"" value=""Box3"" type=""checkbox""/>" & "<br>"
        sDinamicContent = sDinamicContent & "<input type=""Button"" Value=""Check""  onclick=""CheckChkBx"" />" & "<br>"   
        sDinamicContent = sDinamicContent & "</Form>"

        sDinamicContent = sDinamicContent & "<div class=""NormalLink"" id=""TextFile_Notepad"" onclick=RunApplication(me.id) onmouseover=me.className='NormalLinkMouseOver' onmouseout=me.className='NormalLink'>- Открыть файл в блокноте</div>"
        sDinamicContent = sDinamicContent & "<div class=""NormalLink"" id=""TextFile_Form"" onclick=RunApplication(me.id) onmouseover=me.className='NormalLinkMouseOver' onmouseout=me.className='NormalLink'>- Отобразить здесь</div>"
        DynamicContent_Div.InnerHTML = sDinamicContent
            Else
               DynamicContent_Div.InnerHTML = "Файл не найден"
            End If
]]> Sat, 04 Jan 2014 17:31:01 +0000 https://forum.script-coding.com/viewtopic.php?pid=78880#p78880