| Вопрос: Окно выбора файла... | Добавлено: 29.11.07 17:30 |
Автор вопроса:  Archangel
|
|
Хочу написать сценарий, который выбирает файл (Open Dialog или т.п.) и сохраняет в отдельные переменные путь к его директории и его имя.
Заранее большое спасибо. Напишите, если знаете... |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  alroy Вопросов: 3 Ответов: 28 |
Профиль | | #1 | Добавлено: 11.12.07 09:18 |
Set FSO=WScript.CreateObject("Scripting.FileSystemObject"
Set oCD = CreateObject("MSComDlg.CommonDialog"
oCD.DialogTitle = "Какой файл изволите выбрать для обработки?" oCD.MaxFileSize = 256 oCD.InitDir = "." oCD.Filter = "Text (*.*)|*.*" oCD.ShowOpen If oCD.FileName = "" Then MsgBox("Файл не выбран"
Else iname = oCD.FileName Set ts1 = fso.OpenTextFile(iname) MsgBox iname End If |
||
Страница: 1 |