| Вопрос: Поиск конкретного файла в папке | Добавлено: 14.07.08 12:58 |
Автор вопроса:  KiZ
|
|
Приветствую. Ищу конкретный файл в текущей дирректории. Сначало все работало, но потом почему-то перестало и постоянно выдает сообщение нет файла. Вот код:
ChDir "U:\" Set fs = Application.FileSearch With fs .LookIn = CurDir .Filename = "tod.txt" If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) = 0 Then MsgBox ("Файл tod.txt не найден!") Sheets("Main").Select Exit Function End If |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Jasmin Вопросов: 23 Ответов: 417 |
Профиль | | #1 | Добавлено: 14.07.08 14:12 |
|
А где ты хочешь искать на U: или в папке с файлом xls ?
Вот так можно: MyDir = "U:\"
Set fs = Application.FileSearch With fs .LookIn = MyDir .Filename = "tod.txt" If .Execute > 0 Then pr = 1 Else MsgBox ("Файл tod.txt не найден!" 
End If End With If pr Then Sheets("Main" .Select
End If |
||
|
Номер ответа: 2 Автор ответа: KiZ Вопросов: 27 Ответов: 68 |
Профиль | | #2 | Добавлено: 14.07.08 17:09 |
| Ну так с MyDir работает. Странно почему с CurDir не пашет.... Спасибо! В моем случае действительно CurDir не обязательно) | ||
|
Номер ответа: 3 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #3 | Добавлено: 15.07.08 09:07 |
| CurDir выдает директорию откуда был запущен текущий файл xls. Вот только не помню есть там / в конце или нет. Нужно проверить формат для использования в LookIn. | ||
|
Номер ответа: 4 Автор ответа: KiZВопросов: 27 Ответов: 68 |
Профиль | | #4 | Добавлено: 15.07.08 10:18 |
| А по-моему CurDir выдает именно текущую директорию, поэтому я сначала и менял ее Chdir'ом, а потом уж пытался ее применить.... \ нужен если только диск; а если есть в пути и папки, то в конце не нужен. | ||
Страница: 1 |