Member 10103170 Ответов: 1

Быстрый способ проверить наличие файла

Привет, я использую следующий код, но не уверен, что мой код работает с лучшей скоростью; два сканирования каталога? Есть ли более эффективный способ выполнить это? Проверяет, существует ли JPG или PNG. Большое спасибо.

Что я уже пробовал:

<pre>        'Check if jpg or png exist and then use this image
        If fd3 <> "" Then
            fd3 = Path.GetFileNameWithoutExtension(fd3) & ".jpg"
            loc_a = locpath + fd3
            If Dir(loc_a) <> "" Then
                im = loc_a
            Else
                fd3 = Path.GetFileNameWithoutExtension(fd3) & ".png"
                loc_a = locpath + fd3
                If Dir(loc_a) <> "" Then
                    im = loc_a
                End If
            End If
        End If

1 Ответов

Рейтинг:
8

OriginalGriff

Попробуй:

Dim basePath As String = locpath & Path.GetFileNameWithoutExtension(fd3)
If File.Exists(basePath & ".jpg") Then
    im = basePath & ".jpg"
ElseIf File.Exists(basePath & ".png") Then
    im = basePath & ".png"
End If