bonjour,
j'ai trois pages qui me permettent de choisir un fichier à supprimer dans un dossier, mais je n'arrive pas à récuperer le nom du fichier sélectionné dans la page qui effectue la suppresion.
et j'avoue que cela me bloque vraiment, alors si qq à la solution je suis preneur.
sur la page 1 je liste les fichiers et j'envois le nom du fichier grâce à un formulaire :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Set FSO = _
Server.CreateObject("Scripting.FileSystemObject") %>
<% dir = Server.MapPath("Photos/") %>
<% set foldPt = FSO.GetFolder(dir) %>
<% set fc = foldPt.Files %>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<% for each f in fc %>
<form name="image" method="get" action="ImgActiSup.asp?<%= Request.QueryString("image") %>">
<table border="0" cellspacing="4">
<tr>
<td><input type="submit" name="image" value="<%=f.name%>"></td>
<td><font size="2"> Mise en place le <%=f.DateLastModified%> </font></td>
</tr>
</table>
</form>
<% next%>
</body>
</html>
sur la page 2 je cherche à récupérer le nom du fichier et à le supprimer (et là cela ne fonctionne pas):
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="refresh" content="4;url=ImgActiSupVerif.asp">
</head>
<body>
<!-- Créer un objet Scripting.FileSystemObject -->
<% for i = 1 to Request.QueryString.Count %>
<% Set FSO = _
Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("../../bibliotheques/Images/Photos/Activites/Photos/")
set filePt = FSO.GetFile(dir & "\= Request.QueryString.Item(i) ") %>
<%filePT.delete%>
<% Next %>
</body>
</html>
et enfin sur la page 3 je vérifie que la suppresion c'est bien déroulée :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- Créer un objet Scripting.FileSystemObject -->
<% Set FSO = _
Server.CreateObject("Scripting.FileSystemObject") %>
<!-- Récupérer le path long du dossier qui nous intéresse -->
<% dir = Server.MapPath("../../bibliotheques/Images/Photos/Activites/Photos/") %>
<!-- Obtenir un pointeur vers ce même dossier -->
<% set foldPt = FSO.GetFolder(dir) %>
<!-- Lire la collection des fichiers de ce dossier -->
<% set fc = foldPt.Files %>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100%" border="0">
<tr>
<td><table width="400" border="0" align="center">
<tr>
<td colspan="3"><div align="center"><font size="3"><strong><font color="#0000FF">Fichiers
existants sur le serveur</font></strong></font></div></td>
</tr>
<tr>
<td><strong><font size="2">Nom</font></strong></td>
<td><strong><font size="2">Taille</font></strong></td>
<td><strong><font size="2">Date de mise en place</font></strong></td>
</tr>
<% for each f in fc %>
<tr>
<td><font size="1"><%=f.name%></font></td>
<td><font size="1"><%=f.size%></font></td>
<td><font size="1"><%=f.DateLastModified%></font></td>
</tr>
<%next%>
<tr align="center">
<td colspan="3"><a href="ImgActiChoixSup.asp">Retour à la page de suppression</a></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
LCVD