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....
