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

Posted by Chas under Basic, Пост-обзор

Можно ли обращаться к файлу по имени, не используя расширения?
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

тема на форуме

Похожие статьи

• Примечание в ячейки листа со значением из другой ячейки
• Как макросом брать данные с word документов в excel?
• Как сделать, чтобы выводило сообщение «данные пользователем не заполнены», если все ячейки столбца G пустые
• Вывести сообщение, если ячейки excel не заполнены
• Как зафиксировать кнопку на экране?
• Найти совпадения ячеек столбца С и столбца Е и вывести все совпавшие ячейки в столбец G по клику кнопки
• Как сделать выпадающий список с добавлением новых элементов?
• Удалить строки таблицы по встречающимся словам
• Как написать макрос который бы по клику по ячейке скрывал столбец?
• Как сделать чтобы скрывался и открывался столбец?