Suppression de fichier...

Question

J'ai un soucis avec mon code pour supprimer un fichier :

'---------------------------------------------
Function delete_fic (name,root)
On Error Resume Next

Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

'----- Si le fichier existe
'printend server.mapPath(root&""&name)
If fso.FileExists(Server.mapPath(root&""&name)) Then 
fso.deleteFile(Server.mapPath(root&""&name))
End If

Set fso=nothing
If Err.Number > 0 Then delete_fic -1 Else delete_fic 0
End Function
'---------------------------------------------

Ce code marche trés bien en ligne mais sur mon poste en loca ca ne focntionne pas : Si j'affiche le chemin il correspond bien à mon fichier alors... il réfléchit réfléchit (en fait le serveur plante).
Est-ce qu'il faut faire quelque chose de particulier sur le serveur pour que ca fonctionne....

Merci d'avance Julien.

cs_Bud · Answer

Bon, je suppose que tu as Norton antivirus qui interdit l'execution de scripts.
Alors tu décoches l'option et tu reboote ton serveur.

Attention, le fait de fermer Norton parrait-il ne suffit pas

Bichon63 · Answer

Merci, c'était bien ca @+

Suppression de fichier...

2 réponses

Votre réponse

Discussions similaires