bonjour,
j
'ai traduit la source asp suivant
http://www.aspfr.com/codes/PETIT-EXPLORATEUR-FICHIERS-SUPPRESSION-FICHIERS_26372.aspx
en asp.net et j
'ai eu un problème avec la suppression a chaque fois que je clique sur un boutton de suppression ou bien je ferme ma page je n'est plus aucun fichier dans mon répertoire et mes sous répertoire. Voilà le code si quelqu'un peut m'aider à trouver l'erreur
<%@import namespace="system.io"%>
<script language="vb" runat="server">
Dim myFileInfo As FileInfo
Dim myDirInfo As DirectoryInfo
Dim mySousDirInfo As DirectoryInfo
Dim TableauFileInfo As Array
Dim TableauDirectoryInfo As Array
Public Function supFichier(ByVal myFile)
myFileInfo = New FileInfo(myFile)
myFileInfo.Delete()
End Function
Public Sub AffListeFichier(ByVal RepDepart, ByVal AffSSrep)
'On va lister les fichiers contenus dans le repertoire virtuel spécifié.
'--- Pour chaque répertoire, on va lister les fichiers contenus.
'--- On appelle la fonction récursive avec la racine du site comme répertoire de départ
Response.Write("<TABLE Width='100%' cellspacing=0 cellpadding=0 border=0>" & vbCrLf)
Response.Write("<TR>" & vbCrLf)
Response.Write("<TD align=left>")
ListeRep(RepDepart, 0, AffSSrep)
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
End Sub
Public Sub ListeRep(ByVal PathFolder, ByRef IdRep, ByVal AffSSrep)
'Si AffSSRep = false, on utilise pas la récursivité, donc liste pas les sous-répertoires.
myDirInfo = New DirectoryInfo(PathFolder)
TableauDirectoryInfo = myDirInfo.GetDirectories
TableauFileInfo = myDirInfo.GetFiles
ListeFichiers(TableauFileInfo, 0)
For Each mySousDirInfo In TableauDirectoryInfo
IdRep = IdRep + 1
Response.Write("<TABLE width='100%' Id='TRep" & IdRep & "' border=0>")
Response.Write("<TR >")
Response.Write("<TD align=left colspan=2 style='font-size:15;font-weight:bolder;' >")
Response.Write("<img name='ImgRep" & IdRep & "' src='images/plus.ico' border=0 height=15 width=15 valign=middle style='cursor: hand;' onclick='javascript:DerouleRep(" & IdRep & ")'>")
Response.Write(" " & UCase(Left(mySousDirInfo.Name, 1)) & LCase(Mid(mySousDirInfo.Name, 2)))
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD>")
Response.Write("<TABLE width='100%' border=0 Id='TFile" & IdRep & "' style='display:none'>")
Response.Write("<TR>")
Response.Write("<TD width='5%'>")
Response.Write("</TD>")
Response.Write("<TD>")
'--- Si l'option est activée,On rappelle la fonction en passant le chemin du nouveau répertoire
If AffSSrep = True Then
If IdRep >= 10 Then
IdRep = IdRep * 10
End If
ListeRep(mySousDirInfo.FullName, IdRep + 10, AffSSrep)
End If
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Next
End Sub
Function ListeFichiers(ByVal ListFile, ByRef idFile)
'--- pour chaque fichier, on écrit une ligne de la liste
Response.Write("<TABLE width='100%' border=0>" & vbCrLf)
For Each myFileInfo In ListFile
Response.Write("<TR>")
Response.Write("<TD align=left style='font-size:13;'>")
'On enlève les "\" du chemin du fichier, étant donné k'ils ne passent pas dans l'url
Dim PathTemp As String = Replace(myFileInfo.DirectoryName, "\", "|")
Response.Write("<input type='image' runat='server' src='images/delete.gif' border=0 height=15 width=15 valign=middle TITLE='Supprimer ce fichier' style='cursor:hand' onserverclick='" & supFichier(myFileInfo.FullName) & "'>")
Response.Write(" " & myFileInfo.Name)
Response.Write("</TD>")
Response.Write("<TD align=right width=50>")
Select Case UCase(Right(myFileInfo.Name, Len(myFileInfo.Name) - (InStrRev(myFileInfo.Name, "."))))
Case "GIF", "JPG", "JPEG", "BMP"
Response.Write("<img src='" & myFileInfo.FullName & "' border=0 width=50 height=50 >" & vbCrLf)
Case "ICO"
Response.Write("<img src='" & myFileInfo.FullName & "' border=0 width=30 height=30 >" & vbCrLf)
End Select
Response.Write("</TD>")
Response.Write("</TR>")
Next
Response.Write("</TABLE>")
End Function
</script>
<SCRIPT language="JAVASCRIPT">
function DerouleRep(NumRep)
{
if(document.all["TFile"+NumRep].style.display=="none")
{
document.all["TFile"+NumRep].style.display="block";
document.all["ImgRep"+NumRep].src="images/moins.ico";
}
else
{
document.all["TFile"+NumRep].style.display="none";
document.all["ImgRep"+NumRep].src="images/plus.ico";
}
}
</SCRIPT>
<CENTER>
<DIV class="titreEntete"> </DIV>
<TABLE Width='600' cellspacing="0" cellpadding="0" Id='TableListeFichiers' border='1'>
<THEAD>
<TR>
<TD>
Liste des fichiers contenus dans la racine du site :
</TD>
</TR>
</THEAD>
<TR>
<TD>
<%
AffListeFichier(Server.MapPath("./."),true)
%>
</TD>
</TR>
</TABLE>
</CENTER>
Merci beaucoup