文件管理

原创 2005年04月29日 20:51:00

Sub Sure_Click()
        Dim PathString As String
        Dim DirObj As DirectoryInfo
        Dim thepath As String
        thepath = Server.MapPath("/Weboffice/fluxayadmin/youxi/images")
        If Request.QueryString.Get("dir") = "" Then
            PathString = thepath.ToString()
        Else
            PathString = Request.QueryString.Get("dir")
        End If
        DirObj = New System.IO.DirectoryInfo(PathString)
        If DirObj.Exists = False Then
            Response.Write("该文件夹不存在!")
        Else
            DispInfo(PathString)
        End If
    End Sub
    Sub DispInfo(ByVal PathStr As String)
        Dim DirObj As DirectoryInfo
        Dim Arrstr() As DirectoryInfo
        Dim Arrstr1() As FileInfo
        Dim i As Integer
        DirObj = New System.IO.DirectoryInfo(PathStr)
        Response.Write("查看图片文件夹的全部内容")
        Response.Write("点击可以查看图片")
        Response.Write("<p>你现在浏览的目录是:<b>")
        Response.Write(DirObj.FullName.ToString())
        Response.Write("</b></p>")
        Response.Write("该目录创建时间为:<b>")
        Response.Write(DirObj.CreationTime.ToString() & "</b>")
        Response.Write("&nbsp;&nbsp;最后修改时间为:<b>")
        Response.Write(DirObj.LastWriteTime.ToString())
        Response.Write("</b></p>")
        Response.Write("图片文件包括:</p>")
        Response.Write("<table border=0 width=90%>")
        Response.Write("<tr height=30><th width=20%><small>名称</small></th>")
        Response.Write("<th width=15%><small>大小</small></th>")
        Response.Write("<th width=15%><small>类型</small></th>")
        Response.Write("<th width=20%><small>创建时间</small></th>")
        Response.Write("<th width=20%><small>最后修改时间</small></th>")
        Response.Write("<th width=10% align='center'>是否删除</th><tr>")

        Arrstr1 = DirObj.GetFiles()
        For i = 0 To Arrstr1.Length - 1
            Response.Write("<tr>")
            Response.Write("<td><a href='images/")
            Response.Write(Arrstr1(i).Name)
            Response.Write("' target='_blank'>" & Arrstr1(i).Name)
            Response.Write("</a></td>")
            Response.Write("<td align=center><small>" & Arrstr1(i).Length & "字节</small></td>")
            Response.Write("<td align=center><small>" & Arrstr1(i).Extension & "</small></td>")
            Response.Write("<td align=center><small>" & Arrstr1(i).CreationTime.ToString() & "</small></td>")
            Response.Write("<td align=center><small>" & Arrstr1(i).LastWriteTime.ToString() & "</small></td>")
            Response.Write("<td><a href='delpicch.aspx?dir=")
            Response.Write(Arrstr1(i).FullName)
            Response.Write("'>")
            Response.Write("删除")
            Response.Write("</a></td>")
            Response.Write("</tr>")
        Next
        Response.Write("</table>")
    End Sub

   Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        check()
        Dim path As String
        path = Request.QueryString.Get("dir")
        File.Delete(path)
        Response.Write("<script>alert('删除成功');window.location.href='delpic.aspx'</script>")
    End Sub

JSP 单页面网站文件管理器

这个文件的开发的设计思想是这样的。有的web 网站,或者B/S 软件的客户,在软件的安装调试阶段,往往对某些细节有特殊要求,也许,是字体的调整,也许是界面方面的小改动意见。面对这样的情况,如果用户没有...
  • sery
  • sery
  • 2003年11月04日 01:26
  • 803

【应用】在线文件管理

前言该应用主要目的是为了在使用linux系统的时候,实现手机和电脑之间的文件传输。前台界面使用的是angular-filemanager, 后台使用的是Spring MVC, 可以下载该应用的war包...
  • zhangjk1993
  • zhangjk1993
  • 2016年03月28日 16:20
  • 2652

10 款优秀的文件管理插件推荐

本文整理了10款优秀的文件管理插件,这些插件基于jQuery、AJAX和PHP,你可以轻松进行定制并加入到自己的项目中。通过它们,你和用户可以通过浏览器来预览、上传、修改文件和文件夹。 1....
  • testcs_dn
  • testcs_dn
  • 2012年10月12日 10:53
  • 6064

C语言学习笔记(十四) -文件管理 File Manager

文件操作/* 1---文件:文件是存储在外部介质上的数据的集合 高级文件操作:有缓冲区的文件操作 1M 低级文件操作:非缓冲区操作,缓冲区大小有程序决定 文件的分类: ①从文件组织形式角度:AS...
  • wangzi11322
  • wangzi11322
  • 2015年03月17日 10:43
  • 1490

实验三 linux文件管理

1、 用root账号登录到终端,使用pwd命令查看当前目录   2、 用cd命令将当前目录切换到“/”目录下 3、 使用ls明令查看Linux的目录结构,了解各目录存放与系统相关...
  • qq_2522090060
  • qq_2522090060
  • 2017年11月28日 14:39
  • 77

Eclipse 文件管理介绍

原文出自 : https://yq.aliyun.com/articles/2597 摘要Eclipse项目中系统文件介绍 一. 写在前面 文章较长,可以直接到感兴趣的段落,或者直接关键字搜索...
  • Lonely_Devil
  • Lonely_Devil
  • 2016年04月15日 16:52
  • 574

C文件管理学习心得

通常来说,文件这个定义在计算机中指磁盘上一段命名的储存区,而实际上这些字节可能并不连续,这并不重要。在C中,一个程序对于硬盘上文件的直接操作仅包括读取和写入(或覆写),真正处理复杂问题的地方并不是硬盘...
  • SuzumiyaSAMA
  • SuzumiyaSAMA
  • 2016年02月24日 17:07
  • 396

Linux常用命令总结——文件管理

Linux中的目录 路径:也就是linux中的目录(文件夹)有绝对路径和相对路径 根目录:/ 用户主目录(home directory):位于/home目录下,用户登录时 工作目录(working d...
  • luoweifu
  • luoweifu
  • 2013年07月22日 15:40
  • 3534

bzoj3289: Mato的文件管理

传送门:http://www.lydsy.com:808/JudgeOnline/problem.php?id=3289 思路:比较裸的莫队。 交换次数显然是逆序对个数... 然后考虑怎么从[l...
  • thy_asdf
  • thy_asdf
  • 2015年08月11日 10:09
  • 804

操作系统实验——文件管理

#include #include #include #include #include using namespace std; #define LEN 500 /****************...
  • haitaolang
  • haitaolang
  • 2017年02月15日 16:43
  • 1071
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:文件管理
举报原因:
原因补充:

(最多只允许输入30个字)