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
Partager