Foto niet gevonden stuur een bericht

[wall]

Beste,

Ik ben t spoor geheel kwijt ....

Ik heb onderstaande code:

On Error Resume Next
Dim N As Long
Dim lngItem As Long
For N = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(N) = True Then
      lngItem = N
   End If
Next 'N
Image1.Picture = LoadPicture(sDir & ListBox1.List(lngItem, 0) & ".jpg")

Wanneer in de listbox het keuzerondje geselecteerd is en waarna er op "zoek foto" geklikt word verschijnt de foto, dit gaat goed.

Maar waar ik nu niet uit kom is eigenlijk twee dingen.

1e: Als er geen foto gevonden kan worden laat dan een algemene foto zien ( iets als "geen foto beschikbaar)

2e: verzend e-mailbericht wanneer er geen foto beschikbaar is

Wat ik voor mekaar krijg is dat er in beide gevallen ( dus wel een foto en geen foto )een e-mail gestuurd gaat worden. Dit moet alleen bij "geen foto" gebeuren uiteraard.

 

[Superzeeuw]

wall,

Probeer eens een voorbeeld bestand te plaatsen.

 

[wall]

Een vriendelijke collega van mij kwam met:

Function BestandBestaat(PathName As String) As Boolean
    Dim iTemp As Integer
     
    On Error Resume Next
    iTemp = GetAttr(PathName)
     
    Select Case Err.Number
    Case Is = 0
        BestandBestaat = True
    Case Else
        BestandBestaat = False
    End Select
     
    On Error GoTo 0
End Function

in userform:
Private Sub ListBox1_Click()
On Error Resume Next
Dim N As Long
Dim lngItem As Long
For N = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(N) = True Then
      lngItem = N
   End If
Next 'N
Image1.Picture = LoadPicture(sDir & ListBox1.List(lngItem, 0) & ".jpg")
If BestandBestaat(sDir & ListBox1.List(lngItem, 0) & ".jpg") = True Then

  Image1.Picture = LoadPicture(sDir & ListBox1.List(lngItem, 0) & ".jpg")

Else
 
  MsgBox ("bestand bestaat niet")

End If


  End Sub

 

[Superzeeuw]

Wall,

Is je probleem nu opgelost?

 

[wall]

Superzeeuw
Dit vraagstuk is opgelost. (hierna heeft gelijk vraagstuk 2 aangeklopt , maar ga eerst zelf met trial & error proberen)

ik had al reeds op opglost gezet of is dit mislukt?

 

[Superzeeuw]

Wall,

Deze vraag staat nu op opgelost, bedankt.

Wat betreft je andere vraagstuk, met try and error kom je vaak heel ver en leer je het meeste en als je er niet uitkomt dan klop je maar weer aan op het forum, helpers genoeg.