Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic if exist un jpg ?

if exist un jpg ?

4 réponses
Avatar
Pascal
bonsoir,
encore une petite question avant d'aller me coucher

pourquoi ce code ne fonctionne pas et me renvoie toujours Existe
que le dossier contienne ou pas un Front.jpg ce code considère toujours
qu'il y en a une

la syntaxe est bien <> non ?
encore une fois j'en appelle à vos neurones
merci
======================
Private Sub ListView1_ItemClick(ByVal item As MSComctlLib.ListItem)
Me.Dir1.Path = Me.Dir1.Path & "\" & item.Text
'existe t'il une image FRONT a charger
If Me.Dir1.Path & "\" & "front.jpg" <> "" Then
MsgBox "Existe "
Me.imgAlbum.Picture = LoadPicture(Me.Dir1.Path & "\" &
"front.jpg")
Else: MsgBox "n'existe pas"
End If
End Sub
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FL
Salut,

Il faut utiliser la fonction Dir$.
Elle te renvoie une chaîne vide si le fichier n'existe pas, sinon elle te
renvoie le nom du fichier.

=> If Len(Dir$(Me.Dir1.Path & "" & "front.jpg")) = 0 Then
' N'existe pas
Else
' Existe
End If



"Pascal" a écrit dans le message de news:
uJ4h3QF$
bonsoir,
encore une petite question avant d'aller me coucher

pourquoi ce code ne fonctionne pas et me renvoie toujours Existe
que le dossier contienne ou pas un Front.jpg ce code considère toujours
qu'il y en a une

la syntaxe est bien <> non ?
encore une fois j'en appelle à vos neurones
merci
===================== > Private Sub ListView1_ItemClick(ByVal item As MSComctlLib.ListItem)
Me.Dir1.Path = Me.Dir1.Path & "" & item.Text
'existe t'il une image FRONT a charger
If Me.Dir1.Path & "" & "front.jpg" <> "" Then
MsgBox "Existe "
Me.imgAlbum.Picture = LoadPicture(Me.Dir1.Path & "" &
"front.jpg")
Else: MsgBox "n'existe pas"
End If
End Sub



Avatar
Christian Hugoud
Voila...

Public Function FileExists(ByVal File As String) As Boolean
On Error Resume Next

Dim r&
r = FileLen(File)

If Err = 0 Then
FileExists = True
Else
FileExists = False
End If

If Err.Number <> 0 Then Err.Clear

End Function


Christian


"FL" <FL@(nospam).com> a écrit dans le message de news:
uUHCBgJ$
Salut,

Il faut utiliser la fonction Dir$.
Elle te renvoie une chaîne vide si le fichier n'existe pas, sinon elle te
renvoie le nom du fichier.

=> If Len(Dir$(Me.Dir1.Path & "" & "front.jpg")) = 0 Then
' N'existe pas
Else
' Existe
End If



"Pascal" a écrit dans le message de news:
uJ4h3QF$
bonsoir,
encore une petite question avant d'aller me coucher

pourquoi ce code ne fonctionne pas et me renvoie toujours Existe
que le dossier contienne ou pas un Front.jpg ce code considère toujours
qu'il y en a une

la syntaxe est bien <> non ?
encore une fois j'en appelle à vos neurones
merci
===================== >> Private Sub ListView1_ItemClick(ByVal item As MSComctlLib.ListItem)
Me.Dir1.Path = Me.Dir1.Path & "" & item.Text
'existe t'il une image FRONT a charger
If Me.Dir1.Path & "" & "front.jpg" <> "" Then
MsgBox "Existe "
Me.imgAlbum.Picture = LoadPicture(Me.Dir1.Path & "" &
"front.jpg")
Else: MsgBox "n'existe pas"
End If
End Sub







Avatar
Pascal
merci à toi
Pascal

"Christian Hugoud" a écrit dans le message de news:
eysx#5J$
Voila...

Public Function FileExists(ByVal File As String) As Boolean
On Error Resume Next

Dim r&
r = FileLen(File)

If Err = 0 Then
FileExists = True
Else
FileExists = False
End If

If Err.Number <> 0 Then Err.Clear

End Function


Christian


"FL" <FL@(nospam).com> a écrit dans le message de news:
uUHCBgJ$
> Salut,
>
> Il faut utiliser la fonction Dir$.
> Elle te renvoie une chaîne vide si le fichier n'existe pas, sinon elle


te
> renvoie le nom du fichier.
>
> => If Len(Dir$(Me.Dir1.Path & "" & "front.jpg")) = 0 Then
> ' N'existe pas
> Else
> ' Existe
> End If
>
>
>
> "Pascal" a écrit dans le message de news:
> uJ4h3QF$
>> bonsoir,
>> encore une petite question avant d'aller me coucher
>>
>> pourquoi ce code ne fonctionne pas et me renvoie toujours Existe
>> que le dossier contienne ou pas un Front.jpg ce code considère toujours
>> qu'il y en a une
>>
>> la syntaxe est bien <> non ?
>> encore une fois j'en appelle à vos neurones
>> merci
>> ===================== > >> Private Sub ListView1_ItemClick(ByVal item As MSComctlLib.ListItem)
>> Me.Dir1.Path = Me.Dir1.Path & "" & item.Text
>> 'existe t'il une image FRONT a charger
>> If Me.Dir1.Path & "" & "front.jpg" <> "" Then
>> MsgBox "Existe "
>> Me.imgAlbum.Picture = LoadPicture(Me.Dir1.Path & "" &
>> "front.jpg")
>> Else: MsgBox "n'existe pas"
>> End If
>> End Sub
>>
>
>




Avatar
Pascal
hello,
ben on apprend tout les jours
merci à toi
Pascal
"FL" <FL@(nospam).com> a écrit dans le message de news:
uUHCBgJ$
Salut,

Il faut utiliser la fonction Dir$.
Elle te renvoie une chaîne vide si le fichier n'existe pas, sinon elle te
renvoie le nom du fichier.

=> If Len(Dir$(Me.Dir1.Path & "" & "front.jpg")) = 0 Then
' N'existe pas
Else
' Existe
End If



"Pascal" a écrit dans le message de news:
uJ4h3QF$
> bonsoir,
> encore une petite question avant d'aller me coucher
>
> pourquoi ce code ne fonctionne pas et me renvoie toujours Existe
> que le dossier contienne ou pas un Front.jpg ce code considère toujours
> qu'il y en a une
>
> la syntaxe est bien <> non ?
> encore une fois j'en appelle à vos neurones
> merci
> ===================== > > Private Sub ListView1_ItemClick(ByVal item As MSComctlLib.ListItem)
> Me.Dir1.Path = Me.Dir1.Path & "" & item.Text
> 'existe t'il une image FRONT a charger
> If Me.Dir1.Path & "" & "front.jpg" <> "" Then
> MsgBox "Existe "
> Me.imgAlbum.Picture = LoadPicture(Me.Dir1.Path & "" &
> "front.jpg")
> Else: MsgBox "n'existe pas"
> End If
> End Sub
>