[Iska]

но он выдаёт ошибку »

Какую?

В каком окружении исполняется скрипт?

[angel_lyucifer]

В каком окружении исполняется скрипт? »

Поясните пожалуйста что это такое? Ошибка на скрине...
Мне нужен скрипт типа обзора файлов. Скрипт будет запускаться bat-ником. После этого должно открыться стандартное окно поиска файлов для rar-архивов. После выбора файла окно закрывается и рядом со скриптом генерируется текстовый файл, в котором сохраняется полный путь к указанному файлу.

[Iska]

Ошибка на скрине... »

Можно было просто нажать Ctrl-C в этом диалоге.

Поясните пожалуйста что это такое? »

Ровно то, что написано. Невозможно создать объект указаного класса, потому как либо не зарегистрирована библиотека COMDLG32.OCX, либо вообще отсутствует (в скобках отмечу, что она к тому же требует и лицензирования).

Мне нужен скрипт типа обзора файлов. »

Можете попробовать рецепты отсюда: vbscript: вызов интерактивного диалога открытия файла — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум.

[angel_lyucifer]

Можете попробовать рецепты отсюда: vbscript: вызов интерактивного диалога открытия файла — Windows Script Host, HTA (VBScript, JScript) — Коллекция скриптов и идей — Серый форум. »

Данный рецепт взял я именно от туда, 2 других рецепта тоже не работают...

Код:

Этот скрипт выдаёт ошибку 

---------------------------
Windows Script Host
---------------------------
Сценарий:	D:\Лаболатория\SMOG\open.vbs
Строка:	1
Символ:	1
Ошибка:	Невозможно создание объекта контейнером ActiveX: 'UserAccounts.CommonDialog'
Код:	800A01AD
Источник: 	Ошибка выполнения Microsoft VBScript

---------------------------
ОК   
---------------------------
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "WSH скрипты (*.vbs, *.js)|*.vbs;*.js|Все файлы (*.*)|*.*"
objDialog.FilterIndex = 2
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
    Wscript.Quit
Else
    Wscript.Echo objDialog.FileName
End If

или

Код:

Этот скрипт выдаёт ошибку 
---------------------------
Windows Script Host
---------------------------
Сценарий:	D:\Лаболатория\SMOG\open.vbs
Строка:	1
Символ:	1
Ошибка:	Невозможно создание объекта контейнером ActiveX: 'SAFRCFileDlg.FileOpen'
Код:	800A01AD
Источник: 	Ошибка выполнения Microsoft VBScript
---------------------------
ОК   
---------------------------
Set objDialog = CreateObject("SAFRCFileDlg.FileOpen")
intResult = objDialog.OpenFileOpenDlg
WScript.Echo "Результат операции: " & CStr(intResult)
WScript.Echo "Выбран файл: " & objDialog.FileName

[Iska]

angel_lyucifer, либо заполняйте свою конфигурацию, либо указывайте условия исполнения, в данном случае — ОС. «UserAccounts.CommonDialog» и «SAFRCFileDlg.FileOpen» — основаны на библиотеках, идущих в комплекте с Windows XP.

[Petya V4sechkin]

angel_lyucifer, ещё варианты VBScript File Browser.

[angel_lyucifer]

Petya V4sechkin Petya V4sechkin»

Как добавить фильтр в скрипт?

Код:

Function BrowseForFile()
    With CreateObject("WScript.Shell")
        Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
        Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
        Dim tempName : tempName = fso.GetTempName() & ".hta"
        Dim path : path = "HKCU\Volatile Environment\MsgResp"
        With tempFolder.CreateTextFile(tempName)
            .Write "<input type=file name=f>" & _
            "<script>f.click();(new ActiveXObject('WScript.Shell'))" & _
            ".RegWrite('HKCU\\Volatile Environment\\MsgResp', f.value);" & _
            "close();</script>"
            .Close
        End With
        .Run tempFolder & "\" & tempName, 1, True
        BrowseForFile = .RegRead(path)
        .RegDelete path
        fso.DeleteFile tempFolder & "\" & tempName
    End With
End Function
MsgBox BrowseForFile

[Serguei Kouzmine]

почему не подходит Powershell ?


Function Get-FileName($initialDirectory)
{
[System.Reflection.Assembly]::LoadWithPartialName("System.windows.forms") |
Out-Null

$OpenFileDialog = New-Object System.Windows.Forms.OpenFileDialog
$OpenFileDialog.initialDirectory = $initialDirectory
$OpenFileDialog.filter = "All files (*.*)| *.*"
$OpenFileDialog.ShowDialog() | Out-Null
$OpenFileDialog.filename
}

[hp1nt0]

Зайдите на http://www.robvanderwoude.com/batchtools.php
Поскрольте до OpenFileBox (2) Batch tool to present an Open File Dialog and return the selected file path
и скачайте. Это утилита командной строки делающая то что вам нужно.
Для записи в текстовичок просто ставите ридерект >>