Можно ли обращаться к файлу по имени, не используя расширения?

[Алекс7]

Можно ли обращаться к файлу по имени, не используя расширения?

Open "C:\sordcarc.17" For Input As #1

Имя файла всегда будет sordcarc, а расширения могут быть разными, но это всегда будет текстовый файл.

[Казанский]

x = Dir("C:\sordcarc.*")
if x="" then
    msgbox "Нет файла":stop
else
    Open "C:\" & x For Input As #1
end if

не проверял

[doober]

Можно так

Open "C:\" &  Dir("C:\sordcarc.17*") For Input As #1

[tae1980]

Сообщение от doober

Можно так

Open "C:\" &  Dir("C:\sordcarc.17*") For Input As #1

А что будет если найдется несколько файлов удовлетворяющих маску? Какой откроется? Или откроются все одновременно? Как переключаться между ними?

[Казанский]

А что будет если найдется несколько файлов удовлетворяющих маску? Какой откроется?

Первый найденный. Правильнее все же

Open "C:\" &  Dir("C:\sordcarc.*") For Input As #1

[tae1980]

Сообщение от Казанский

А что будет если найдется несколько файлов удовлетворяющих маску? Какой откроется?
Первый найденный. Правильнее все же

Open "C:\" &  Dir("C:\sordcarc.*") For Input As #1

А можно по этой маске перейти ко второму и т.п. файлу?

[Казанский]

Попробуйте

Sub testDir()
Dim x
x = Dir("c:\")
Do While x <> ""
    MsgBox x
    x = Dir
Loop
End Sub

См. также справку по ф-ии Dir.

[tae1980]

Сообщение от Казанский

Попробуйте. См. также справку по ф-ии Dir.

Спасибо. Это понятно, с командой dir знаком лично. Я думал что есть пути пройтись по всем вариантам маске. Лично я предпочитаю формировать имя и путь внутри кода, а маски не использовать вообще.

[Алекс7]

Спасибо всем за ответы!!!