| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 磁盘文件编程 >> 实例分析正文
最新推荐 更多内容
临时文件暂存盘的实例
临时文件暂存盘的实例
作者:Ilu    来源:乐博网整理     更新时间:2009-12-9

临时文件暂存盘的实例

分类:VB.Net

乐博网lob.cn提示:调试环境为 vs2005 +  windows2003 / windows2008 / xp / vista + .NET Framework 2.0

代码如下:

' 导入命名空间
Imports System.IO
Public Class LOB
    ' 建立一个类级别的变量来保存临时的文件名称。
    Dim m_FileName As String = ""
    Private Sub btnFindTempDirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFindTempDirectory.Click

        Dim tempPathString As String = ""

        ' 清除状态栏。
        Me.ToolStripStatusLabel1.Text = ""

        ' 尝试取得暂存目录的路径。
        Try
            tempPathString = Path.GetTempPath()
        Catch sex As Security.SecurityException
            ' 如果用户没有适当的权限将会引发异常。
            Me.ToolStripStatusLabel1.Text = "您没有足够的权限。"
        Catch exc As Exception
            ' 将错误呈现给使用者。
            Me.ToolStripStatusLabel1.Text = "无法取得临时目录的路径。"
        End Try

        ' 将暂存目录的路径显示在窗体上的文本框中。
        Me.txtTempDirectory.Text = tempPathString

    End Sub

    Private Sub btnCreateTempFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateTempFile.Click
        ' 清除状态栏。
        Me.ToolStripStatusLabel1.Text = ""

        Try
            m_FileName = Path.GetTempFileName()

            ' 建立一个 FileInfo 对象来处理所建立之暂存盘的属性。
            Dim myFileInfo As New FileInfo(m_FileName)

            ' 使用 FileInfo 对象将暂存盘的 Attributes 属性设定成 Temporary。
            myFileInfo.Attributes = FileAttributes.Temporary

        Catch exc As Exception
            ' 警告用户发生问题。
            Me.ToolStripStatusLabel1.Text = "无法建立临时文件或设定其属性。"
        End Try

        ' 于窗体上的文本框中显示出暂存盘的文件名称。
        Me.txtTempFile.Text = m_FileName
    End Sub

    Private Sub btnUseTempFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUseTempFile.Click

        ' 清除状态栏或是没有一个暂存盘的话将显示错误。
        If m_FileName = "" Then
            Me.ToolStripStatusLabel1.Text = "尚未建立临时文件。"
            Return
        Else
            Me.ToolStripStatusLabel1.Text = ""
        End If

        Try
            ' 写入临时文件。
            File.AppendAllText(m_FileName, "Hello!乐博网。")

            Me.ToolStripStatusLabel1.Text = "资料已经写入临时文件。"

            ' 从暂存盘读取资料并将暂存盘的内容显示给使用者看。。
            Me.txtTempFile.Text = "临时文件的内容:" + File.ReadAllText(m_FileName)
        Catch exc As Exception
            ' 将错误呈现给使用者。
            Me.ToolStripStatusLabel1.Text = "在写入或读取临时文件时发生错误。"
        End Try
    End Sub
    ' 此程序会删除稍早所建立的临时文件。
    Private Sub btnDeleteTempFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeleteTempFile.Click
        ' 清除状态列或是没有一个暂存盘的话将显示错误。
        If m_FileName = "" Then
            Me.ToolStripStatusLabel1.Text = "尚未建立临时文件。"
            Return
        Else
            Me.ToolStripStatusLabel1.Text = ""
        End If

        ' 尝试去删除临时文件。
        Try
            File.Delete(m_FileName)
            m_FileName = ""
            Me.txtTempFile.Text = ""
        Catch exc As Exception
            ' 将错误呈现给用户。
            Me.ToolStripStatusLabel1.Text = "乐博网提示:删除临时文件时发生错误。"
        End Try
    End Sub

    Private Sub LOB_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

 

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    读取大文件(VB2010实例)
    读取文件(VB2010实例)
    文件移动(VB2010实例)
    获取驱动器磁盘信息(VB2010实例)
    目录搜索和目录查找(VB2010实例)
    文件搜索和文件查找(VB2010实例)
    选择文件目录(VB2010实例)
    删除文件(VB2010实例)
    复制文件(VB2010实例)
    复制目录(VB2010实例)
    以只读模式打开文件的实例
    OpenFileDialog属性的实例
    图形文件的数据读写操作实例
    WriteAllLines方法在文本文件中写入多行的实例
    在文本文件中写入多行文字的实例
    AppendAllText方法把文字内容添加到文本文件的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]