Poser une question

msge d'erreur

hello... j'ai trouvé comment gérer les droits d'accès (simplement mettre les bonnes cases dans IIS et gérer l'accès soit par autentification NT soit par mot de passe).

Mais j'ai une petite question :

dans la procédure suivante (plus bas), lorsqu'il n'est pas possible d'effacer un fichier (pas de droits), cela me génère un msge d'erreur. Je souhaite que ce msge d'erreur soit formaté (du type : le fichier XXX n'a pas pu être effacé ( ...cause de l'erreur...) ).
J'ai bien une commande (if Err.Num <> 0 then ... ), mais ça ne fonctionne pas.

Merci de votre aide sur ce coup (et sur les autres aussi) !

Voici ma procédure :

<%

strdelete = request.querystring("delete")
strFN = request.querystring("FN")
strledossier = request.querystring("doss")&"/"
if strdelete = "Yes" Then
call functionDF()


End if


Sub functionDF()
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Response.Write "Fichier : <b>" & strFN & "</b> : "
Set f1 = fso.GetFile(Server.MapPath(request.querystring("doss2")) & "\" & strFN )

f1.Delete

If Err.Number <> 0 Then Response.Write "Erreur lors de l'écriture du fichier : " & strFN & vbCrLf & " (<i>" & Err.Description & "</i>)<br>":strFN = "":Exit sub



End Sub

Response.Write "<font color=green><b>Effacement réussi !<br><br><hr noshade size=1></font color></b>"

Réponses

Re: msge d'erreur  Oznog 17/12/2002    Re: msge d'erreur  four 20/12/2002