RUN TIME ERROR '75' при запуске программы на 98 винде!

[Skif_Xaero]

Проблемма собственно вот в чем...
Написал прогу для презентации предприятия. Требованием было: Автозапуск и работа проги с диска. Так вот... на 2000-й и на ХРюше работает нормально, а на 98-й пишет ошибку, мол Ран Тайм Ерор 75
The specified Path/file name cannot be accessed or is invalid. Перепробовыл все что вспомнил, ничего не помогает... ну и решил на форум написать может сдесь знают в чем дело.
Заранее спасибо!

[Tarik]

Ну, сначала попробуй потестить прогу на 98 из IDE

[GSerg]

Ага...
Неужели он, этот доставший всех баг?
Его разве нет в FAQ?
Странно, странно...
Но есть, однако ж, подозренье...
У тебя там нигде в коде app.path не фигурирует?

[Skif_Xaero]

Ага...
Но есть, однако ж, подозренье...
У тебя там нигде в коде app.path не фигурирует?

Так точно! Фигурирует!!!
Private Sub Form_Load()
Dim Path1 As String
'MsgBox Drive1.Drive

MakeWindow Me, True
Label1.Caption = "О компании"
'AlwaysOnTop Me, True
'MsgBox App.Path + "\w.rtf"
List1.Visible = False

fileFoto.Visible = False
List1.Path = App.Path & "Doc"
fileFoto.Path = App.Path & "foto"
'For t = 0 To File1.ListCount - 1
' List1.AddItem Mid$(File1.List(t), 1, Len(File1.List(t)) - 4)
'Next t
' Make the Maximize/Restore button have the Maximize image
imgTitleMaxRestore.Picture = imgTitleMaximize.Picture
RichTextBox1.LoadFile App.Path + "\doc\info\w.rtf"
End Sub

[GSerg]

Так вот
В случае, если app.path суть корень диска, то он возвращается с финальным слэшем. А если не корень - без слэша.
Посему выдели отдельный модуль, закатай в него функцию

Код: Выделить всё

function EnsureSlash(s as string) as string
if right$(s,1)="\" then ensureslash=s else ensureslash=s & "\"
end function


и включай его во все проекты.