السلام عليكم
هل توجد طريق لازاله فلدر معين من موقعي وليكن مثلا به صور أو ملفات
كيف يمكن ازاله الفلدر
بحث وحاولت تجربة بعض الأكواد المرفقة
وهذا الكود هو يعتبر أقرب شيء للمطلوب ولكنه لم يعمل
يرجي التجارب والأفادة
مع الشكر
كود HTML
<body>
<form id="form1" runat="server">
<div>
<asp:CheckBox ID="ChkDeleteAll" runat="server" Text="Delete All Images" /><br>
<asp:Button ID="DeleteAll" runat="server" Text="Delete" />
<asp:DataList ID="DataList1" runat="server" RepeatColumns="3" RepeatDirection="Horizontal">
<HeaderTemplate>
</HeaderTemplate>
<ItemTemplate>
<h3>
<asp:Label runat="server" ID="FileNameLabel"></asp:Label></h3>
<asp:Image ID="Image1" runat="server" ImageUrl='<%(/image/{0}") %>'/>
<asp:CheckBox ID="RowLevelCheckBox" runat="server" AutoPostBack="false" />
</ItemTemplate>
</asp:DataList>
</div>
<asp:Label ID="Summary" runat="server" Text="Label"></asp:Label>
</form>
</body>كود V.B
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
loadimage()
End If
End Sub
Sub loadimage()
Dim sdir As New DirectoryInfo(MapPath("image/"))
Dim file As FileInfo() = sdir.GetFiles()
Dim list As New ArrayList
For Each file2 As FileInfo In file
If file2.Extension = ".jpg" OrElse file2.Extension = ".gif" OrElse file2.Extension = ".bmp" Then
list.Add(file2)
End If
Next
DataList1.DataSource = list
DataList1.DataBind()
End Sub
Private Sub DeleteAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteAll.Click
If ChkDeleteAll.Checked = True Then
'Enumerate the DatalistRows
For index As Integer = 0 To DataList1.Items.Count - 1
'Programmatically access the CheckBox
Dim ll As Label = CType(DataList1.Items(index).FindControl("FileNameLabel"), Label)
Dim cb As CheckBox = CType(DataList1.Items(index).FindControl("RowLevelCheckBox"), CheckBox)
'delete all files...
File.Delete(Server.MapPath("image/"))
Next
loadimage()
Else
'Enumerate the DatalistRows
For index As Integer = 0 To DataList1.Items.Count - 1
'Programmatically access the CheckBox
Dim ll As Label = CType(DataList1.Items(index).FindControl("FileNameLabel"), Label)
Dim cb As CheckBox = CType(DataList1.Items(index).FindControl("RowLevelCheckBox"), CheckBox)
'If it's checked, delete it...
If cb.Checked Then
File.Delete(Server.MapPath("image/"))
End If
Next
loadimage()
End If
End Sub
