Пытаюсь открыть папку из формы Экселя кнопкой. Пишу:
ChDir "C:\Documents and Settings"
Не срабатывает - что не так???
Stepler ^{(щёлк-щёлк!!)}

Как же мне открыть папку с файлами (типа как при нажатии кнопки Обзор" при сохранении/открытии документов).... ???
Stepler ^{(щёлк-щёлк!!)}

Да, забыл сказать...
пробовал:
'Dim oFSO, oFolder, oFile, oText


'Set oFSO = CreateObject("scripting.filesystemobject")
'Set oFolder = oFSO.GetFolder("C:\Documents and Settings\")
'For Each oFile In oFolder.Files
'WScript.Echo oFile.Path
'Next
'Set oText = oFSO.OpenTextFile(oFolder.Path & "\\*.doc")
'WScript.Echo oText.ReadAll
'oText.Close
Папку видит, но "встаёт" на скрипте...
Stepler ^{(щёлк-щёлк!!)}

Добил:
Dim FN As String
Dim result As Integer
With Application.FileDialog(1)
.Title = "Найдите свой документ"
.InitialFileName = "C:\"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Все документы Word", "*.doc; *.txt", 1
result = .Show
If result = 0 Then Exit Sub
FN = Trim(.SelectedItems.Item(1))
End With
On Error Resume Next
Stepler ^{(щёлк-щёлк!!)}