ASP.NET中对文件的操作 创建 读取 删除 上传 下载

1.创建文件并写入内容

记得导入命名空间Imports System.IO

     Sub  CreateWriteFile()  ' 创建文件
        Response.Write( " Writing　the　content　into　Text　File　in　ASP.NET　<BR> " )
         ' 　声明streamwriter对象
         Dim  strwriterobj  As  StreamWriter
         ' 创建文本文件并将其赋给上面声明的streamwriter对象
        strwriterobj  =  File.CreateText( " c:\aspnet.txt " )
         ' 在刚才创建的文本文件里写一些东东　
        strwriterobj.WriteLine( " Welcome　to　user　chenyang's　ASP.NET　Program " )
        strwriterobj.Close()
        Response.Write( " 创建文本文件并填充内容 " )
     End Sub

2.读取文件内容

     Sub  ReadFile()  ' 读取文件
        Response.Write( " 读取asp.net文件中的内容 <br> " )
         ' 声明一个StreamReader对象 
         Dim  streamreaderobj  As  StreamReader
         ' 声明一个变量保存读出的内容 
         Dim  filecont  As   String
         ' 打开文件赋值到StreamReader对象 
        streamreaderobj  =  File.OpenText( " c:\aspnet.txt " )
         ' 按行循环读取文件内容 
         Do
            filecont  =  streamreaderobj.ReadLine()
             If  filecont  =   ""   Then
                Response.Write(filecont)
             Else
                Response.Write(filecont  &   " <br> " )
             End   If
         Loop   Until  filecont  =   ""
         ' 关闭StreamReader对象 
        streamreaderobj.Close()
        Response.Write( " <br> 已经读完aspnet.txt文件的内容 " )
     End Sub

3.删除文件

     Sub  DeleteFile()  ' 删除文件
        File.Delete( " c:\aspnet.txt " )
        Response.Write( " 文件删除成功!!! " )
     End Sub

4.上传文件

     附件 < a  name ="anchor1" ></ a >
      < asp:FileUpload  ID ="FileUpload1"  runat ="server"  TabIndex ="4"  Width ="300px"   />
      < asp:Button  ID ="cmdSaveAttachment"  runat ="server"  CssClass ="button"  TabIndex ="5"
                    Text ="保存附件"   />

     Protected   Sub  saveAttachment()
         If  FileUpload1.HasFile  Then
             ' 获取网站根目录路径
             Dim  path  As   String   =  HttpContext.Current.Request.MapPath( " ../UploadFile/ " )
            FileUpload1.SaveAs(path  &  FileUpload1.FileName)
         Else
            Response.Write( " <script language='javascript'>alert('请先选择附件 ');</script> " )
         End   If
     End Sub

5.下载附件

在文本上加上地址连接即可

Label1.Text  =   " <a href=' ../UploadFile/TextFile.txt ' target='_blank'> TextFile.txt </a>&nbsp;&nbsp;&nbsp;&nbsp; "

 

 

 

转载于:https://www.cnblogs.com/lwl0606/archive/2008/10/10/1307969.html