Bonjour à tous

Comme l'indique mon Intitulé, je cherche a savoir si l'un de mes strings contient un autre string en VB.6

J'ai essayé avec l'objet InStr mais cela marche pas, ou je l'ai mal employé

Mon but est de récupère tout les fichiers d'un répertoire. Chaque Nom de fichier est composé d'un nom suivi d'un _ puis d'un indice.
Lorsque je veux crée un nouveau fichier je doit rechercher les nom identique puis rechercher le dernier indice afin d'ajouter a mon nom de fichier un indice supérieur de 1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub IndiceFichier()
    Dim NomFichier As String
    Dim Contenu As New Collection
    Dim i As Integer
    Dim Ligne() As String
    Dim y As Integer
    Indice = 0
    NomFichier = Dir(ChFichier & "*.log")
 
    Do Until NomFichier = ""
        Contenu.Add (NomFichier)
        NomFichier = Dir
    Loop
    For i = 1 To Contenu.Count
        y = InStr(NameID, Contenu(i))
        If (InStr(0, NameID, Contenu(i)) <> 0) Then
            Ligne = Split(Contenu(i))
            If Indice < CInt(Ligne(1)) Then
                Indice = CInt(Ligne(1))
            End If
        End If
    Next i
End Sub
Merci de votre aide

Je pense avoir compris pourquoi cela marche pas.

En faite cela marche mais vu que je cherche un texte qui commence à la position 0 il me renvoie 0

Il me faudrait une autre fonction.