| |
|
|
| | Как программно ткрыть папку?
Для просмотра тиа проводник запустить и параметры передать......
наример : "C:\Моя_Папка " | |
| |
| |
| |
|
|
| | Application.FileDialog не пойдет? | |
| |
| |
| |
|
|
| | Это видимо диалог...... открытия.
А мне просто развернуть папку на весь экран
(как это делается двойным щелчком по желтенкой пиктограммке)
Нахожуся я в программе - на кнопочку нажал - я уже нахожусь в папке.
со всем её содержимым.. | |
| |
| |
| |
|
|
| |
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
|
не подойдёт | |
| |
| |
| |
|
|
| |
Call Shell(Environ("SystemRoot") & "\explorer.exe C:\Documents and Settings\........", 1)
|
| |
| |
| |
|
|
| |
|
|
| | Это имя переменной среды окружения. | |
| |
| |
| |
|
|
| | Второй аргумент функции Shell [,windowstyle] - для распаха на весь экран - vbMaximizedFocus (3) | |
| |
| |
| |
|
|
| | а если вЫнимательно почитать Help
Dim dlgOpenFolder As FileDialog
Set dlgOpenFolder = Application.FileDialog(msoFileDialogFolderPicker)
dlgOpenFolder.Show
Debug.Print dlgOpenFolder.SelectedItems(1)
|
| |
| |
| |
| |
|
|
| | Если Вынимательно, то видна изюминка dlgOpenFolder.Show
Как говорит Силыч - в каждом человеке - есть изюминка. | |
| |
| |
| |
|
|
| | нет изюминка в msoFileDialogFolderPicker | |
| |
| |
| |
|
|
| | Чё эт я никада не угадываю изюминку, в предложеных тобой примерах........ 
Тока ни говори, что я не внимателен......... | |
| |
| |
| |
|
|
| | Application.FileDialog имеет параметр который указывает какой тип диалога открывать
Application.FileDialog(msoFileDialogFilePicker) - выбор файла
Application.FileDialog(msoFileDialogFolderPicker) - выбор папки
остальные найдешь сам в Help  | |
| |
| |
| |
|
|
| |  Спасибо!!!!
| |
| |
| |
| |
|
|
| | http://www.lib.csu.ru/dl/bases/prg/kompress/articles/2002%5F05%5Fnewobject/ | |
| |
| |
| |
|
|
| | А вот запуск прграмы -
Dim WShell As Object
Set WShell = CreateObject("WScript.Shell")
WShell.Run strPUTI, 3, True
|
где strPUTI - переменнаяполного пути к программе | |
| |
| |
| |
|
|
| | Ну хватит на сёдня -
пиду до хаты...............
Всем приятного вечерочка.................  | |
| |
| |
|
|
| |
|
|
| | Таки да. У меня тоже сегодня отказывается работать то, что позавчера работало. | |
| |
| |
|
|
|
|
WShell перестала фурычить
