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.