У меня Windows XP SP3, IE8. Но возможно просто везет, в том плане, что IE8 параноидально чистит память.

Только текстовые(*.txt)    
Все(*.*)    
11cf-bb82-00aa00bdce0b></object>    
g?vascript:new ActiveXObject('InternetExplorer.Application').PutProperty('UniqueID', window);

При добавлении:

… & vbNullChar

ничего не изменилось. Windows XP SP3, IE 6.0.

У меня мусора не было, но можно попробовать в виде "Только текстовые(*.txt)|*.txt|Все(*.*)|*.*" & vbNullChar
Да, и если это переменная, а не явная строка, то нужно приводить к типу с помощью CStr. Тоже для всех параметров.
Если нужно несколько расширений, то можно так: "Только текстовые(*.txt;*.lst)|*.txt;*.lst|Все(*.*)|*.*
Первый параметр может содержать начальный путь, но только вместе с именем файла. При этом от имени файла "откусывается" расширение по фильтру. Т.е. можно указать (в моем примере) "c:\......\*.txt" и перейдет в указанный каталог, а в строке останется *

…но надеюсь должно и в Vista/XP.

Очевидно, подразумевалось — в «Vista/Windows 7».

AnvarovSR, если открыть список «Тип файлов» — после первых пунктов у меня идёт «каша».

Предлагаю решение с запуском HTA и вызовом функции из него:

Option Explicit

' Если возвращает True, то strFileName содержит полное имя файла

Private Function OpenFileDlg(strFileName)
  Const SW_HIDE = 0
  Const CUniqueID = "UniqueID" ' Для распознования "своего" окна
  Const CSleepInterval = 100 ' Ожидаем запуска MSHTA.exe циклом в CSleepCount интервалов с засыпанием на CSleepInterval мсек
  Const CSleepCount = 100

  Dim objWshShell, objShell, objShellWindows, objIEItem, objHTA, iCount

  OpenFileDlg = False
  Set objWshShell = CreateObject("WScript.Shell")
  objWshShell.Run "%windir%\system32\MSHTA.EXE " & _
    """javascript:new ActiveXObject('InternetExplorer.Application').PutProperty('" & CUniqueID & "', window);""", SW_HIDE
  Set objWshShell = Nothing
  Set objShell = CreateObject("Shell.Application")
  Set objShellWindows = objShell.Windows
  Set objShell = Nothing
  iCount = 1
  Do Until iCount = CSleepCount
    For Each objIEItem In objShellWindows
      If IsObject(objIEItem.GetProperty(CUniqueID)) Then
        Set objHTA = objIEItem.GetProperty(CUniqueID)
        objIEItem.Quit
        Exit For
      End If
    Next
    WScript.Sleep CSleepInterval
    iCount = iCount + 1
  Loop
  Set objShellWindows = Nothing
  If IsObject(objHTA) Then
    objHTA.document.body.innerHTML = "<OBJECT ID=Dlg CLASSID=CLSID:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object>"
    strFileName = objHTA.Dlg.object.openfiledlg("", "", "Только текстовые(*.txt)|*.txt|Все(*.*)|*.*", "Выбрать файл")
    objHTA.close
    Set objHTA = Nothing
    OpenFileDlg = (strFileName <> "")
  End If
End Function

Dim strFileName

If OpenFileDlg(strFileName) Then
  WScript.Echo strFileName
End If

У меня XP, там это работает, но надеюсь должно и в Vista/XP.
Проверьте, кто может.

Со слов ВАЖНАЯ фишка.

Может быть это тоже как-то поможет.

А может кто-нибудь подтвердить или опровергнуть неработоспособность примеров вызова dialogbox в Windows 7 (указывайте пожалуйста битность ОС)?

Мой примерчик работает нормально (win7 32bit).
(Естественно, вначале comdlg32.ocx зарегистрировал в системе и лицензию в реестр добавил).

%ProgramFiles%\MSDN\MSDN8.0\Language Neutral Files\webdev10\SCREDIT.hxs

представляющий собой chm-файл справки. Открыть/распаковать его можно, например, в 7zip. Нас интересует содержимое вложенной папки:

\workshop\samples\author\editing\html_editor

Аналогично, имеется файл:

%ProgramFiles%\MSDN\MSDN8.0\Language Neutral Files\webdev10\progie.hxs

папка внутри chm:

\workshop\samples\author\editing\html_editor

содержимое полностью аналогично предыдущему.

OFF: Как я искал? «Far Manager» + плагин «7-Zip Alternative» .

абсолютно Ваша же ситуация. Насколько я понял, сие связано с тем, что кроме самого HTA нужны дополнительные файлы (кроме «html_editor.hta»). Сам на такое когда-то натыкался (да и забыл), из-за чего пришлось загружать пример с MS (который ныне доступен только как часть SDK:

). Позже я его ненароком удалил .

Однако, взять россыпью содержимое примера «HTML Editor Application» всё ещё можно здесь (в принципе, «stepfour.hta», «stepthree_a.htm», «stepthree_b.htm» и «steptwo.htm» — не нужны). Кроме того, естественно, должен наличествовать и быть зарегистрирован сам «MS Common Dialog Control»:

regsvr32.exe comdlg32.ocx

(именно «comdlg32.ocx», а не «comdlg32.dll»!; в «гольной» ОС он отсутствует, может быть взят с машины, где он уже есть, либо — непосредственно отсюда [хоть это и старая версия библиотеки]). После всего этого «html_editor.hta» заработал. А вот:

CreateObject("MSCOMDLG.COMMONDIALOG")

по прежнему требовал лицензии . Вылечился уже дважды упомянутым методом из постскриптума.

Напоминаю, речь шла о «гольной» XP SP3.

Примеры можно найти здесь.

Ну, а если, гм, ручками добавить в реестр как здесь (смотрим постскриптум)?

Конечно, регистрировал в реестре. Вопрос по всей видимости остается открытым.
Кстати, ошибка:

HTML_Editor.hta (Windows 7):
стока 89
символ 2
Объект не поддерживает это свойство или метод.
var oDropDown = oToolBar.createDropDownListAt("4");

Появляется как на 7-ке, так и на XP, возможно это связанно с установленными у вас компонентами Visual Studio?

Да, кстати, а может быть тут дело в пресловутом «запуск от имени администратора»? А то, может быть, mshta.exe пытается писать, а запись идёт в песочницу?!

Есть возможность проверить на двух одинаковых ОС 7, результат идентичен.

HTML_Editor.hta (Windows 7):
стока 89
символ 2
Объект не поддерживает это свойство или метод.
var oDropDown = oToolBar.createDropDownListAt("4");