Открыть формат файла который есть в папке

[Iskin]

Всем хорошего дня!
У меня в папке DOC есть графические файлы разных форматов. Как прописать условие: если не нашел PDF, то открыть JPEG?
Private Sub Кнопка98_Click()
DirDOC = CurrentProject.Path & "\DOC"
FileName = Dir(DirDOC & "\" & [F1].Value & ".PDF")
'???
FileName = Dir(DirDOC & "\" & [F1].Value & ".JPEG")
'???
If FileName <> "" Then
Call StartOfFile(CurrentProject.Path & "\DOC\" & FileName)
Else
End If
End Sub
Пока приходиться все конвертировать в PDF, устаю )

[Aleksandr H.]

Private Sub Кнопка98_Click()
DirDOC = CurrentProject.Path & "\DOC"
FileName = (DirDOC & "\" & [F1].Value & ".PDF")
If Dir(FileName) = 0 then
    FileName = (DirDOC & "\" & [F1].Value & ".JPEG")
    If (dir(FileName) = 0 then
        msgbox "No Such Files"
        exit sub
    end if
end if
If FileName <> "" Then
    Call StartOfFile(CurrentProject.Path & "\DOC\" & FileName)
end if
End Sub

[Iskin]

Не работает. Попробовал второй вариант, все равно не работает
Private Sub Кнопка98_Click()
DirDOC = CurrentProject.Path & "\DOC"
FileName = (DirDOC & "\" & [F1].Value & ".PDF")
If Dir(FileName) <> "" Then

FileName = (DirDOC & "\" & [F1].Value & ".JPEG")
If Dir(FileName) <> "" Then
MsgBox "No Such Files"
Exit Sub
End If
End If
If FileName <> "" Then
Call StartOfFile(CurrentProject.Path & "\DOC\" & FileName)
End If
End Sub

[Aleksandr H.]

Dim DirDOC As String, FileName As String
    DirDOC = CurrentProject.Path & "\DOC"
    FileName = DirDOC & "\" & [F1].Value & ".PDF"
    If Len(Dir(FileName)) = 0 Then
        FileName = (DirDOC & "\" & [F1].Value & ".JPEG")
        If Len(Dir(FileName)) = 0 Then
            MsgBox "No Such Files"
            Exit Sub
        End If
    End If
    If FileName <> "" Then
        MsgBox "Call StartOfFile(" & CurrentProject.Path & "\DOC\" & FileName & ")"
    End If

[Iskin]

Ошибку уже не выдает, но файлы в папке DOC не находит. Выходятся только MsgBox

[Aleksandr H.]

покажите структуру папки и как ищете файлы

[Iskin]

если я правильно понял, то...
C:\Папка\DOC, в ней файлы *.PDF (хотелось бы еще и другова формата)
Файл.mdb находится в корневой папке - "Папка".
В главном окне программы есть переменная F1 (номер детали)
нажимаю Кнопка98 и открывается файл c именем совподающий с значением F1
FileName = Dir(DirDOC & "\" & [F1].Value & ".PDF")

[Serge_Bliznykov]

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

C:\Папка\DOC, в ней файлы *.PDF (хотелось бы еще и другова формата)

запустите "командную строку"
выполните в ней код

DIR C:\Папка\DOC\*.* > C:\Папка\myfiles.txt

полученный в папке C:\Папка\ файл с именем myfiles.txt прикрепите к сообщению на форуме ("Расширенный режим" - "Управление вложениями" - "Загрузить файл"

[Iskin]

Файл myfiles создал через cmd. Он почему то пустой. Правильно сделал?
Что с ним дальше делать так и не понял

[Aleksandr H.]

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

Файл myfiles создал через cmd. Он почему то пустой.

значит каталог C:\Папка\DOC\ пустой, в нем нету файлов