savims
Messages postés2Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention16 octobre 2010
-
16 oct. 2010 à 16:54
savims
Messages postés2Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention16 octobre 2010
-
16 oct. 2010 à 16:59
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