Probleme GEstion D erreur

Question

salut j ai trouve un code source sur le forum mais rien a faire y veut pas marcher :

le programme s arrete a errX et y me pete un message "Sub Or Function Not Define"

----------------------------------------------------------------------
Public Function If_file_exists(ByVal lpFilePath As String) As Long
'Dim ErrX
On Error GoTo errX
Open lpFilePath For Input As #1
Close #1
If_file_exists = 1
Exit Function

errX
    If Err.Number = 53 Then
        If_file_exists = 0
        Exit Function
    Else
        If_file_exists = Err.Number
    End If
End Function
---------------------------------------------------------------------- 
mercil 
;) 

Tetris

cs_DARKSIDIOUS · Answer

Pour utiliser les goto, il faut utiliser des saut d'instruction définie par le nom du saut suivit de deux points, donc tu dois marquer :

errX:

Attention, les deux points sont obligatoires, sinon, il interprête ca comme une Sub ou une Function non définie...

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]

Tetris42 · Answer

Merci !!! 

;) 

Tetris

Probleme GEstion D erreur

2 réponses

Discussions similaires