|
|
|
INPUTBOX с проводником
|
|||
|---|---|---|---|
|
#18+
Добрый день. Подскажите, пожалуйста, можно ли организовать следующую задумку: Есть InputBox в который пользователю предлагается ввести путь к файлу. sFilePath = InputBox("Укажите путь к файлу .xls", "Выбор файла", "E:\Documents\Document.xlsx") Пользователю в этом случае выводится окно куда можно ввести текст. А можно ли сделать так, чтобы была кнопка "..." по нажатию на которую открывался провоник и строка(путь к файлу) формировалась исходя из выбранного документа в проводнике? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.06.2013, 15:27 |
|
||
|
INPUTBOX с проводником
|
|||
|---|---|---|---|
|
#18+
Забыла написать, я VBScript осваиваю :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 27.06.2013, 15:28 |
|
||
|
INPUTBOX с проводником
|
|||
|---|---|---|---|
|
#18+
user89, Спасибо БОЛЬШОЕ :-) В итоге, получилось реализовать так: Function BrowseForFile(pstrPath, pstrFilter) Set objDialog = CreateObject("MSComDlg.CommonDialog") objDialog.Filter = pstrFilter objDialog.InitDir = pstrPath objDialog.MaxFileSize = 256 objDialog.Flags = &H80000 + &H4 + &H8 intResult = objDialog.ShowOpen() BrowseForFile = objDialog.FileName End Function Данное решение подойдет для Windows 7 В результате открывается такое диалоговое окно: Красота !!! :) Спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2013, 15:30 |
|
||
|
|
start [/forum/topic.php?fid=22&tid=1448169]: |
0ms |
get settings: |
5ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
333ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
21ms |
get tp. blocked users: |
1ms |
| others: | 205ms |
| total: | 588ms |
| 0 / 0 |
