новогодние чудеса уже начались




.....................................

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

WShell перестала фурычить
Method 'Run' of object 'IWshShell3' failed

WShell.Run """C:\Program Files\A4\DrvFRTst.exe""", 1, True - работает


а это не работает
strPUTI = "C:\Program Files\A4\DrvFRTst.exe"
WShell.Run strPUTI, 1, True
а раньше - работало


а теперь работает вот так

strPUTI = """" & strPUTI & """"
Call WShell.Run(strPUTI, 3, True)


новогодние чудеса уже начались

http://www.lib.csu.ru/dl/bases/prg/kompress/articles/2002%5F05%5Fnewobject/

Спасибо!!!!

Application.FileDialog имеет параметр который указывает какой тип диалога открывать
Application.FileDialog(msoFileDialogFilePicker) - выбор файла
Application.FileDialog(msoFileDialogFolderPicker) - выбор папки
остальные найдешь сам в Help

Ну хватит на сёдня -
пиду до хаты...............
Всем приятного вечерочка.................

Чё эт я никада не угадываю изюминку, в предложеных тобой примерах........

Тока ни говори, что я не внимателен.........

Второй аргумент функции Shell [,windowstyle] - для распаха на весь экран - vbMaximizedFocus (3)

А вот запуск прграмы -

Dim WShell As Object  Set WShell = CreateObject("WScript.Shell") WShell.Run strPUTI, 3, True

где strPUTI - переменнаяполного пути к программе

нет изюминка в msoFileDialogFolderPicker

Если Вынимательно, то видна изюминка dlgOpenFolder.Show

Как говорит Силыч - в каждом человеке - есть изюминка.

Это имя переменной среды окружения.

а если вЫнимательно почитать Help

Dim dlgOpenFolder As FileDialog Set dlgOpenFolder = Application.FileDialog(msoFileDialogFolderPicker) dlgOpenFolder.Show Debug.Print dlgOpenFolder.SelectedItems(1)

нифига себе SystemRoot

Call Shell(Environ("SystemRoot") & "\explorer.exe C:\Documents and Settings\........", 1)

Private Sub cmdFileDialog_Click()    Dim fDialog As Office.FileDialog    Dim varFile As Variant    Me.FileList.RowSource = ""    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)    With fDialog       .AllowMultiSelect = True       .Title = "Please select one or more files"       .Filters.Clear       .Filters.Add "Access Databases", "*.ACCDB"       .Filters.Add "Access Projects", "*.ADP"       .Filters.Add "All Files", "*.*"       If .Show = True Then          'Loop through each file selected and add it to our list box.          For Each varFile In .SelectedItems             Me.FileList.AddItem varFile          Next       Else          MsgBox "You clicked Cancel in the file dialog box. Кликните и уходите....."       End If    End With End Sub

не подойдёт

Это видимо диалог...... открытия.
А мне просто развернуть папку на весь экран
(как это делается двойным щелчком по желтенкой пиктограммке)
Нахожуся я в программе - на кнопочку нажал - я уже нахожусь в папке.
со всем её содержимым..

Application.FileDialog не пойдет?

Как программно ткрыть папку?
Для просмотра тиа проводник запустить и параметры передать......
наример : "C:\Моя_Папка "