Bonjour,
Je ne suis pas un pro et j'ai un petit probleme
<%
'***********************************************************
'Permet de supprimer un fichier a partir de Vb cote serveur*
'***********************************************************
function supprimg(img)
dim bt
set bt=Server.CreateObject("Scripting.FileSystemObject")
filex = Server.MapPath(".") & "\miniatures\" & img & ".jpeg"
if bt.FileExists(filex)=true then
response.write filex & " Supprimer"
bt.DeleteFile(filex)
else
end if
end function
%>
<SCRIPT LANGUAGE = "VBScript">
sub Window_Onload
nb = 18
ht = "<%supprimg(18)%>"
document.body.innerHTML = ht
End sub
</SCRIPT>
Cela fonctionne le fichier et bien supprimer cote serveur par contre si je remplace la ligne :
ht = "<%supprimg(18)%>"
par
ht = "<%supprimg(" & "18)%>"
ou
ht = "<%supprimg(" & nb & "18)%>"
Cela ne fonctionne plus
Si quelqu'un pouvait m'aider cela serait super car je seche
Merci