|
|
|
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&msg=38312897&tid=1448169]: |
0ms |
get settings: |
7ms |
get forum list: |
16ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
173ms |
get topic data: |
14ms |
get forum data: |
3ms |
get page messages: |
59ms |
get tp. blocked users: |
2ms |
| others: | 207ms |
| total: | 487ms |
| 0 / 0 |
