Серый форум — HTA: Обзор папок на HTA (Запомнить путь выбранный ранее)

Re: HTA: Обзор папок на HTA (Запомнить путь выбранный ранее)

2014-04-29T02:56:43Z

У mozers есть утилита UFEBS_Viewer
Можно поигратся с первым параметром объекта HtmlDlgHelper.OpenFileDlg "c:\\UserFolder\\*"

function DialogOpenFile() {
    var dialog = '';
    document.body.insertAdjacentHTML('beforeEnd', dialog);
    var fname = HtmlDlgHelper.OpenFileDlg("c:\\UserFolder\\*","","XML-документы (*.xml)|*.xml|Все файлы (*.*)|*.*|", "Открытие документа УФЭБС");
    HtmlDlgHelper.outerHTML = '';
    if (!fname) self.close(); // при отказе от выбора закрываем приложение
    return fname;
}

Re: HTA: Обзор папок на HTA (Запомнить путь выбранный ранее)

2014-04-28T19:19:16Z

Проблема в том, что когда выставляешь путь 4м параметром уже выбрать другой диск невозможно или зайти в другую папку уровнем выше..

Re: HTA: Обзор папок на HTA (Запомнить путь выбранный ранее)

2014-04-27T19:54:25Z

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

HTA: Обзор папок на HTA (Запомнить путь выбранный ранее)

2014-04-27T19:07:05Z

Ранее в теме http://forum.script-coding.com/viewtopic.php?id=9113 вели обсуждения по схожей проблеме. Решил не поднимать прошлую тему, а создать новую.
Пользователь выбирает директорию для нахождения файла заходит в структуру каталогов, но допустим ему нужно выбрать повторно обзор и выбрать необходимую директорию с файлами и пользователю приходится заново проходить весь путь размещения каталогов что б найти свою папку.

Вопрос: "Возможно ли запомнить каталог который пользователь выбрал ранее?"



    Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Выберите каталог размещения файлов:", &H1 Or &H10 Or &H200 Or &H11, &H11 ) 
        If objFolder Is Nothing Then
            MsgBox "Не выбран каталог размещения файлов"
            'DynamicContent_Div.InnerHTML = "Не выбран каталог размещения файлов"
            
        Else
            Dim UserChooseFolder
            UserChooseFolder = objFolder.Items.Item.path

                End IF

Теоретически предполагаю что переменную UserChooseFolder нужно запомнить и потом данную переменную использовать в параметрах, но как сделать что б все диски и рабочий стол так же отображался, а не только открытый данный путь пока не пойму.