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

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

null@example.com (badik) — Tue, 29 Apr 2014 02:56:43 +0000

У 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 (Запомнить путь выбранный ранее)

null@example.com (wildwolf007) — Mon, 28 Apr 2014 19:19:16 +0000

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

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

null@example.com (JSmаn) — Sun, 27 Apr 2014 19:54:25 +0000

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

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

null@example.com (wildwolf007) — Sun, 27 Apr 2014 19:07:05 +0000

Ранее в теме 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 нужно запомнить и потом данную переменную использовать в параметрах, но как сделать что б все диски и рабочий стол так же отображался, а не только открытый данный путь пока не пойму.