delete_file.aspx

来自「用C#,VB和SQLSERVER编写的远程教学程序」· ASPX 代码 · 共 31 行

<%@Import NameSpace="System.IO"%>
<Script language="VB" runat="Server">
Sub Page_Load(Sender As Object,e As EventArgs)
   Dim dir As String=Request("dir")
   '判断是否为文件
   If File.Exists(dir) then
      File.Delete(dir)
   Else
      '删除目录
       Delete_dir(dir)
   End If
   '获取当前文件的上一级目录
   Dim subdir As String
   subdir=dir.subString(0,dir.lastIndexOf("\"))
   Response.Redirect("admin_adminvod.aspx?dir=" & subdir)   
End Sub
sub delete_dir(dir As String)
   Dim d As string
   '遍历当前目录下的所有文件和目录
   For each d in directory.GetFileSystemEntries(dir)
     If File.Exists(d) Then
        '删除文件
        File.Delete(d)       
     Else
        delete_dir(d)
     End If
   next
   Directory.Delete(dir)
End sub
</Script>