照片显示

fileexistcheck需要自定义

Public Function FileExistCheck(ByVal strFileName As String) As Integer
'测试路径是否有效
'返回0代表文件或路径不存在
'返回1代表该文件存在
'返回2代表该文件夹存在

    Dim intAttr As Integer
    On Error GoTo Err:
    FileExistCheck = 0
    If Len(strFileName) > 0 Then
        intAttr = GetAttr(strFileName)
        If (intAttr And vbDirectory) Then
            FileExistCheck = 2      '
        Else
            FileExistCheck = 1      '
        End If
    End If
    Exit Function
Err:
End Function