ASP.NET中对文件的操作 创建 读取 删除 上传 下载(转 备份用)

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.上传文件

     附件<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;"
posted @ 2009-04-17 14:03  chinachen  阅读(771)  评论(0编辑  收藏  举报