Bonjour,
quelqu'un aurait-il l'amabilité de me dire comment remplacer automatiquement "123456.txt" par la valeur saisie dans une richtextbox ?
Mon code fonctionne uniquement si je saisie dans la richtextbox "123456".

J'aimerai que si dans la richtextbox j'ecris par exemple "developpez" le code cherche un fichier developpez.txt et execute le code si cela fonctionne.

Code permettant la saisie dans la richtextbox :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub validpass_Click()
Dim textcode As String
Dim packet As String, CD As String, p As String ', i As Long
 
CD = Len(MOTDEPASSE.textcode.Text)
p = Trim$(MOTDEPASSE.textcode.Text)
 
textcode = p = CD
 
packet = "validationmotdepasse" & SEP_CHAR & textcode & SEP_CHAR & END_CHAR
        Call SendData(packet)
 
Unload Me
End Sub

Code permettant le controle de la richtextbox (celui à modifier) :
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
       Case "validationmotdepasse"
 
        'verifie existance d'un fichier XXXX.txt dans accounts/codes
         If FileExist("accounts\codes\123456.txt") Then                     'valeur à automatiser
 
         'copie le fichier
        Call FileCopy(App.Path & "\accounts\codes\123456.txt", App.Path & "\accounts\vip\" & GetPlayerLogin(index) & ".txt")    'valeur à automatiser
 
         'efface le fichier
         Call Kill("accounts\codes\123456.txt")   'valeur à automatiser
 
         Call Msgbull(index, "Le code saisie est correct !")
         Call JouerSFX(index, "valid.wav")
 
        Else
 
        Call Msgbull(index, "Le code saisie n'est pas valide !")
         Call JouerSFX(index, "erreur.wav")
 
        End If
        Exit Sub

Merci pour l'aide que vous saurez m'apporter