- Код: Выделить всё
Set oCD = CreateObject("MSComDlg.CommonDialog")
oCD.DialogTitle = "Какой файл изволите выбрать для обработки?"
oCD.MaxFileSize = 256
oCD.InitDir = "."
oCD.Filter = "Text (*.txt)|*.txt"
oCD.ShowOpen
If oCD.FileName = "" Then
MsgBox("Файл не выбран")
Else
iname = oCD.FileName
Set ts1 = fso.OpenTextFile(iname)
End If
И в результате получил сообщение сабж.
класс не лицензирован для использования
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- wait
- Начинающий
- Сообщения: 1
- Зарегистрирован: 19.01.2004 (Пн) 13:12
класс не лицензирован для использования
wait » 19.01.2004 (Пн) 13:17
В Visual Basic(e) я новичек,попытался запустить скрипт такого содержания
- Sebas
- Неуловимый Джо
-
- Сообщения: 3626
- Зарегистрирован: 12.02.2002 (Вт) 17:25
- Откуда: столько наглости такие вопросы задавать
Sebas » 19.01.2004 (Пн) 13:22
либо версия не enterprice, либо в реестре лажа, тут на форуме кто товыкладывал файл реестра для регистрации все хкомпонентов
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?
sebas<-@->mail.ru
sebas<-@->mail.ru
- RayShade
- Scarmarked
-
- Сообщения: 5511
- Зарегистрирован: 02.12.2002 (Пн) 17:11
- Откуда: Russia, Saint-Petersburg
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4