VPF::В чем ошибка ? - Форум программистов

Kaprizniy

Дата 18.11.2005, 12:19 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

данные из ини файла:

Цитата

"n:\new_stat\new\"
"n:\new_stat\archiv\"
"n:\new_stat\"
"c:\program files\winrar\winrar.exe"

Код


Public pathin, patharc, pathns, patharch As String

-----------------------------------------------------------
'процедура загрузки ини файла

Private Sub Form_Load()
'Загрузка конфигурации
'
'pathin - путь к файлам обновлений
'patharc - путь к архивным копиям для отката
'pathns - путь к каталогу НьюСтата
'patharch - путь и имя к архиватору
 On Error GoTo errorini
 Open "nsu.ini" For Input As #1
   Input #1, pathin
   Input #1, patharc
   Input #1, pathns
   Input #1, patharch
 Close #1
File1 = pathin
GoTo skiperror
errorini:
a = MsgBox("В текущем каталоге не найден NSU.INI. Завершение работы.", vbOKOnly, " Критическая Ошибка!"): End
skiperror:
End Sub
'-------------------------------------------------


Private Sub File1_Click()
'Загрузка TLG (телегаммки в окно информации)
Text1 = ""
a = Shell(patharch + " e " + pathin + File1 + " " + pathin + " *.tlg", vbMinimizedNoFocus)
If LCase(Right(File1, 3)) = "ar1" Then GoTo skipAR1
retr:
Open (pathin + Mid(File1, 1, 8) + ".tlg") For Input As #1
 Do
  Line Input #1, Text
  Text1 = Text1 + Text + Chr(13) + Chr(10)
 Loop Until EOF(1)
Close #1
Kill (pathin + "*.tlg")
skipAR1:
refreshh
End Sub

и вот тут то он пишет НЕМОГУ НАЙТИ ФАЙЛ! после второго клика, хотя все переменные имеют верыне данные((

для сведенья - сеть постороена на НОВЕЛЕ. программа корректно работает в вин 2000 (и в сервере тож), но нехочет в 9х и ХП.. что тут нетак ? видимо делов сетке, но я всеже привел часть кода. буду благодарен за любые толковые идеи. заранее сиба!!!

Это сообщение отредактировал(а) Akina - 18.11.2005, 18:12

Akina

Дата 18.11.2005, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Kaprizniy @ 18.11.2005, 13:19)

вот тут то он пишет НЕМОГУ НАЙТИ ФАЙЛ

В метод File1_Click добавить код обработки ошибки и посмотреть имя запрашиваемого на открытие файла.

Заодно поправить Form_Load - вместо Input использовать Line Input

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Kaprizniy

Дата 20.11.2005, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 18.11.2005

Репутация: нет
Всего: нет

ой, забыл написать)) пишет что ненайдена телеграмма. (*.tlg)
перешли за эти выходные под домен, лично переводил, права перепроверил - ничего не изменилось smile

пс: line input ничего не меняет, т.к в ини файле по одному значению в строке, и ктому же в кавычках. та и ошибка не там, а именно в открытии распакованого файлика. хотя он есть.

Это сообщение отредактировал(а) Kaprizniy - 20.11.2005, 18:01

Kaprizniy

Дата 20.11.2005, 18:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 18.11.2005

Репутация: нет
Всего: нет

Разобрался))
дело было в том, что РАР отрабатывал медленнее, чем програма начинала читать файл телеграммы smile

спасиба за участие smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »