存在快速检查文件的方法 [英] Quick way to check file exists

问题描述

您好我使用以下代码但不确定我的代码是否以最佳速度运行;两次扫描目录？有没有更有效的方法来执行此操作？检查是否存在JPG或PNG。非常感谢。



我的尝试：

Hi I am using the following code but not sure if my code runs at best speed; two scans of the directory? Any more efficient way to execute this? Checks to see if a JPG or PNG exists. Many thanks.

What I have tried:

<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

推荐答案

尝试：

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

这篇关于存在快速检查文件的方法的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！