Test sur un nom de fichier

Version imprimable

Bonsoir,

J'aimerais savoir si il était possible dans le code ci dessous de rajouter un test pour "FichierPres". J'vais prendre un exemple pour expliquer : Si j'ai déjà d'enregistré dans List2 le fichier "index.htm" j'aimerais que si on veut rajouter "Index.htm", ce soit impossible, que FichPres=true....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub Ajouter_Click(Index As Integer)
Dim FichPres As Boolean
Dim mvarModification As Boolean
Dim cpte As Integer
 
 With mvar_ObjetLié
    FichPres = False
    If List1.ListIndex >= 0 Then
        For cpte = 0 To List2.ListCount - 1
            If List1.List(List1.ListIndex) = List2.List(cpte) Then
                FichPres = True  'Fichier présent dans la List2
            End If
        Next cpte
        If Not FichPres Then
            Load SaisieNouveau
            SaisieNouveau.InitSaisie mFichiers, 0, Trim("")
            SaisieNouveau.Show vbModal, Me
            RaiseEvent Change
            List2.Clear
            AfficheInfoFichiers
 
        End If
     End If
     End With
 
End Sub

Merci

+++

11/07/2006, 10h20
avigeilpro

J'ai pas trop compris ta question. Tu utilise déjà FichPres ! :koi:
11/07/2006, 10h29
Ribéry

Ouais mais c'est le fait que l'un posséde une majuscule et l'autre non.J'aimerais bien qu'il n'y ai pas de différences. Que dans le cas ou il y a une majuscule, FichierPres soit aussi true...

Tu n'as qu'a tout mettre en majuscule (UCase) ou en minuscule (LCase) ;) tu n'aura plus de souci de ce coté la :lol:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Ajouter_Click(Index As Integer)
Dim FichPres As Boolean
Dim mvarModification As Boolean
Dim cpte As Integer

 With mvar_ObjetLié
    FichPres = False
    If List1.ListIndex >= 0 Then
        For cpte = 0 To List2.ListCount - 1
            If LCase(List1.List(List1.ListIndex)) = List2.List(cpte) Then
                FichPres = True  'Fichier présent dans la List2
            End If
        Next cpte
        If Not FichPres Then
            Load SaisieNouveau
            SaisieNouveau.InitSaisie mFichiers, 0, Trim("")
            SaisieNouveau.Show vbModal, Me
            RaiseEvent Change
            List2.Clear
            AfficheInfoFichiers
            
        End If
     End If
     End With
    
End Sub

et dans ton code d'ajout dans List2 tu fait :

Code:

List2.AddNew LCase(...)

(Je suppose que tu fait un AddNew bien sùr ;) )

11/07/2006, 11h17
Ribéry

pas bete....

Merci