Маска файла

[exp.]

есть 2а файла с одинаковыми именами, но разными маскаим.
как зная 1й в VB6 выбрать 2й файл

напр: file.xxx и file.yyy
нужен file.yyy, зная file.xxx

ЗЫ перерыл много статей и форумов, ничего подобного не нашел

[Хакер]

бред какой то.

Что значит "выбрать файл"? где расположены файлы?
какие могут быть имена и расширения?

[_ae_]

Dim s As String
s = "file.xxx"
MsgBox Left(s, Len(s) - 4) & ".yyy"

[Хакер]

Ну тогда уж

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

Dim s As String
s = "file.xxx"
MsgBox Split(s, ".")(0) + ".yyy"


ибо универсальнее.

[GSerg]

В самом деле?
И даже в случае с Archive1.part1.rar?

[Хакер]

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

Dim s As String
s = "a.d.file.xxx"
MsgBox Mid(s, 1, InStrRev(s, ".")) + "yyy"

[exp.]

спасибо други за понимание, если честно сам потом не понял что написал

благодаря вам проблема решена!

[AlexBlack]

а не за что)

учись задавать вопросы, и всё будет тип-топ.
удачи!

[exp.]

еще один вопросик
как отделить имя файла от дирректории
напр файлу открытому CommonDialog'ом присвайвается имя типа:
DriveLetter:\folder\file.xxx

нужно чтобы осталось только имя файла. т.е file.xxx

[Хакер]

mid$(filename, Instrrev(filename, "\"))

[exp.]

Хакер
выручил
нет слов

[Хакер]

Хакер
выручил
нет слов

Это ты меня послал или поблагодарил?

[exp.]

поблагодарил

так же не подскажешь почему у меня при запуске таймера возникает ошибка RunTime error 97?
и еще Basic вылетает при вызове функции ShellExecute??

[Хакер]

А ты уверен, что именно 97? Просто, довольно-таки экзотическая ошибка, и таймеру надо ой как постараться чтобы её вызвать.

[exp.]

да, пробовал не таймер - тоже самое но ошибка именно такая.

то этого идет ShellExecute(от которого дебуггер вылетает), после чего через определенное время должно происходить другое событие пришлось тупо поставить на другую кнопку, чтобы нажимать самому.

[Хакер]

Вердикт: Код в студию.

[exp.]

все решил как всегда все оказалось элементарно..