Как проверит существует файл или нет?

[dimalib]

Какпроверит существует файл или нет?
Нашел вот это но не знаю кто такой fs.

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

Set fs = Application.FileSearch
With fs
    LookIn = DirPath
    .FileName = "cbs1.mdb"
    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "takoi fail est."
    Else
        .......

    End If
End with

[Amed]

Подключи в Project|References Microsoft Scripting Runtime и сделай переденную

Dim fs As FileSystemObject

[RayShade]

Проще всего:

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

if len (dir(filename))>0 then msgbox filename & " существует"


[A.A.Z.]

2 Amed: Runtime

[Amed]

Ух ты... У меня иногда пальцы сами бегут по клаве, дописывая знакомые слова
***бьёт их об край стола***

[dimalib]

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

If Len(Dir(FileName)) > 0 Then.

А тут можно в место рабочий папки указать конкретное место? А то тут копировал папку с проектом в другое место и тут у меня что та не так пошло. Подозреваю что проект видит старое место или еще что та. Но если написать

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

      FileCopy App.Path & "\cbsbas.mdb", App.Path & "\cbs200.mdb"

То он копирует нормально. Общем каламбур какой та.

[RayShade]

Вообще-то, FileName это полное имя файла. То есть можно указать что угодно

[dimalib]

[code] fileN = "cbs2005.mdb"
fn = Dir(App.Path & fileN)
If fn = fileN Then
s = "cbs2005.mdb"
strMsg = "база есть"
Else[\code]
………
или
[code] If Len(Dir$(FileN)) > 0 Then[\code]
Пишу. А этот долбанная программа ищет х… знает где
Если явно указать то путем

В чем проблема не знаете?
С утра заппарился уже
[/code]

[Cyrax]

знаем... App.Path возвращает путь к папке программы без завершающего слэша, т.е. "C:\MyFolder" (за исключением, когда программа запускается из корня диска). по этому нужно немного изменить твой

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

If Right$(App.Path, 1) <> "\" Then
  fileN = "\cbs2005.mdb"
Else
  fileN = "cbs2005.mdb"
End If

[Шурик]

Можно еще так:
делаем обращение к файлу, а потом начинаем обрабатывать ошибку(если файла нет)...