[RESOLVED] possible to check if image exists in dir when i call load event in picturebox

[luca90]

based tis code, how to check if image ND.jpg, exists in dir, if not exists clear the picturebox:

...
Me.PICOM.Cls
        Set PICOM.Picture = Nothing
        MYFOLDER = "C:\Lavori_Vb6\TEST_MAPPA\IMG\ND.jpg"
        Me.PICOM.Picture = LoadPicture(MYFOLDER)
        Me.PICOM.Picture = Me.PICOM.Image
...

[SamOscarBrown]

poorly written post

Are you saying that if ND.jpg is not in your folder ("C:\Lavori_Vb6\TEST_MAPPA\IMG"), then clear the picturebox?

[SamOscarBrown]

Something like this?

Option Explicit
Private Sub Command1_Click()
    FileExists ("C:\Lavori_Vb6\TEST_MAPPA\IMG.ND.jpg")
End Sub

Private Function FileExists(ByVal sFileName As String) As Boolean
    Dim intReturn As Integer
    On Error GoTo FileExists_Error
    intReturn = GetAttr(sFileName)
    FileExists = True
    'EDIT:
   'You might want to add this if the file DOES exist:
   'PiCom.Picture = LoadPicture("C:\Lavori_Vb6\TEST_MAPPA\IMG.ND.jpg")
Exit Function
FileExists_Error:
    FileExists = False
    PiCom.Picture = LoadPicture("")
   'OR, probably better:
   'Set PiCom.Picture = Nothing
End Function

[SamOscarBrown]

Or, simpler to understand with IF-Statement:

Option Explicit


Private Sub Command1_Click()
    If FileExists("C:\Lavori_Vb6\TEST_MAPPA\IMG.ND.jpg") Then
        PiCom.Picture = LoadPicture("C:\Lavori_Vb6\TEST_MAPPA\IMG.ND.jpg")
    Else
        Set PiCom.Picture = Nothing
    End If
End Sub


Private Function FileExists(ByVal sFileName As String) As Boolean
    Dim intReturn As Integer
    On Error GoTo FileExists_Error
    intReturn = GetAttr(sFileName)
    FileExists = True
Exit Function
FileExists_Error:
    FileExists = False
End Function