"On Error..." marche pas !

Voila mon code, le principe, c'est que je Drop des dossiers depuis l'explorateur windows dans ma liste, qui ajoute non pas les dossiers mais le contenu des dossiers, en passant par une FileList

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo 10
    Dim Dossier As Variant
    For Each Dossier In Data.Files
    File1.Path = Dossier
        For FichierEnCour = 0 To File1.ListCount - 1
        List1.AddItem File1.List(FichierEnCour)
        Next FichierEnCour
10  Next Dossier
End Sub

Bien sur, si je drop un fichier, le prog sort une erreur, car File1.Path=Dossier ne passe pas...
Avec mon On Error GoTo 10, ca passe l'erreur, mais seulement une fois : Si il y a 1 fichier parmis les objets Droppés, l'erreur va passer sans bloquer le programme qui passera au Dossier suivant, mais si il y a plusieurs fichiers parmis les objets Droppés, l'erreur passe bien sur le premier fichier, mais le programme plante à cause du 2em fichier...

"On Error..." ne protège que de la première erreur, pas des suivantes... Je comprend pas trop pourquoi...

Merci d'avance !

Salut,
'On error' en .NET, fais une recherche sur try et catch...
sinon si tu persistes avec on error, cherchesde l'aide sur resume.
et essaye de mettre des etiquettes plutot que des numeros de lignes genre 'gestion_erreur :'
ça me rapelle trop mon ZX81...
@+
Megafan

Salut,

et comme ça:

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim Dossier As Variant
    For Each Dossier In Data.Files
    On Error Next GoTo 10
    File1.Path = Dossier
        For FichierEnCour = 0 To File1.ListCount - 1
        List1.AddItem File1.List(FichierEnCour)
        Next FichierEnCour
10  Next Dossier
End Sub

A+

Bigfish_le_vrai  > tu es sur de ton '

On

ErrorNextGoTo 10'

par ce que dans mon IDE ça me dit Error : 'Resume ou Goto' attendu....

@+
Megafan

...
non,  effetivement c'est une erreur de VB6ste, je l'ai tapper trop machinalement quand je l'ai reecrit
L'idee c'etait surtout de montrer ou il remplirait le mieux sa fonction

encore desolé

Bon, qqn aurait une autre idée?
Ou alors un moyen pour directement identifier la nature des objets droppés (savoir si c'est un dossier ou un fichier)

Merci !!

Re
Les idées....
Bein je te les ai données...
- Try , catch  : c'est la gestion d'erreur native du framework
- On error goto : tu oublies

Nature des objets droppés :
Tester si un dossier existe en .NET c'est if directory.Exists(chemin)

@+
Megafan

Comme le dit Megafan...

Try
        File1.Path = Dossier
        For FichierEnCour = 0 To File1.ListCount - 1
            List1.AddItem File1.List(FichierEnCour)
        Next FichierEnCour
Catch Ex As Exception
End Try

Et je te conseil de mieux déclarer tes variables:
- Dim Dossier As Variant Variant? C'est quoi? En 5 ans de .NET, j'ai jamais utilisé (je suppose que c'est un 'Object')
- For FichierEnCour As Integer = 0 To File1.ListCount - 1

Mais tu n'as effectivement pas besoin de faire un Try:

For Each Dossier As String In Data.Files
    If IO.Directory.Exists(Dossier) Then
        File1.Path = Dossier
        For Each File As String In File1.List
            List1.AddItem File
        Next FichierEnCour
    End If
Next Dossier


D'ailleur c'est IO.Directory.GetFiles pour retourner tous les fichiers d'un dossier.

Bon, .NET ca à l'air cool mais je marche en VB6 moi, donc...

Oui, je remarque que ma question s'est placée dans la partie .NET et VB5... bizard, pourtant j'avais selectionné VB6