Страница: 1 |
Страница: 1 |
Вопрос: Поиск фаилов по маске.
Добавлено: 27.12.05 10:35
Автор вопроса:
Alexei
Есть файл, называется MM00001_SET21_02T_221205_000232308.TXT
Хвост 221205 и 000232308 каждый день меняется.
С датой все более менее понятно, а вот с последними 9-ю цифрами вышла проблема - не могу найти, как написать чтобы на этот хвост поиск не заморачивался. Через * или # у меня так и не получилось его прописать. Делал вот как:
Set fs1 = Application.FileSearch
xFile1 = Format([Forms]![MainForm]![TodayDate] - 1, "DDMMYY")
With fs1
.LookIn = "J:\1\2\\"
xFile = "*.txt"
xFileOld = "MM00001_SET21_02T_" & xFile1 & "_" & xFile & ""
xFileFullOld = .LookIn + xFileOld
End With
Что я только не пытался сделать, но никак не получается. Думаю что решение будет очень простым, посто я его не вижу.
Спасибо.
Ответы
Всего ответов: 1
Номер ответа: 1
Автор ответа: HOOLIGAN
Вопросов: 0
Ответов: 1066
Профиль | | #1
Добавлено: 27.12.05 11:29
FindFirstFile ByVal "MM00001_SET21_02T_*"