创建临时文件---vb,vc,编程-为中国网络技术提供点滴动力-iyit.net-易特网络技术！

　　通行证: 用户密码

域名空间　下载中心　 社区论坛　信息公告 MY小屋

联系我们
设为首页
加入收藏

QQ,ASP,PHP,JSP,XML,SQL,.Net,编程程序网页图象建站经验私服




	当前位置：首页>>编程开发>>VB编程>>正文	新版上线！[旧版]

注:打开慢时请稍等

创建临时文件

http://www.iyit.net 日期：2006-4-29 22:29:43 来源：点击：

【参加讨论】br> 　　在Visual Basic中开发应用程序时,可能会需要在磁盘上创建一个临时目录或文件,本文介绍如何在Visual Basic 4.0中创建临时文件。
　　使用GetTempFileName函数
　　Windows API函数中的GetTempFileName函数可以用来在指定的磁盘驱动器上创建一个新的文件。尽管所创建的文件是一个临时文件, 但不再需要它的时候,程序员还是需要将它从磁盘上物理地删除掉。
　　要在VB中使用GetTempFileName函数,必须将如下声明语句包含在程序中(请注意该声明语句需要书写在一行内):
　　Private Declare Function GetTempFileName Lib"kernel32" A lias"GetTempFile NameA" (ByVal lpszPath As String, ByVal lpP refixString As String, ByVal wUni que As Long, ByVal lpTempF ileName As String) As Long
　　该GetTempFileName函数需要4个参数:
　　第一个参数是希望创建新文件的驱动器和/或路径的名称,在下面的样例程序中,新文件创建在驱动器C的根目录下。
　　第二个参数是指派给文件名称的前缀。如果将该前缀指定为"TES T",则函数将把创建的新文件名称的前四个字符设置为"TEST",即"TES T*.TMP"。
　　第三个参数应该被设置为0,告诉该函数为文件名称自动产生随机号码。该随机号码会被添加到前缀字符的后面,以产生一个独特而且完整的文件名称。
　　第四个参数是一个字符串缓存,它至少要有256个字符的长度,以存放临时文件的名称。
　　在调用该函数之后,新文件创建在指定的磁盘上。这里重申一下, 当退出应用程序时,必须物理地将该文件从磁盘上删除。
　　样例程序
　　该程序显示了如何在VB应用程序中创建一个临时文件。
　　1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。
　　2.将如下声明语句添加到Form1的通用声明部分中(请注意该声明语句需要被书写在一行内):
　　Private Declare Function GetTempFileName Lib"kernel32" A lias"GetTempFile NameA"(ByVal lpszPath As String, ByVal lpPr efixString As String, ByVal wUniq ue As Long, ByVal lpTempFi leName As String) As Long
　　3.将如下代码添加到Form1的Form_Load事件中:
　　Private Sub Form_Load()
　　Text1.TEXT = ""
　　End Sub
　　4.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。
　　5.在Form1上添加一个命令按钮控件,采笔〉姆椒ńomman d1。
　　6.将如下代码添加到Command1的单击事件中:
　　Private Sub Command1_Click()
　　Dim FilePrefix As String
　　Dim NewFile As String * 256
　　FilePrefix = "TEST"
　　NewFile = GetTempName(FilePrefix)
　　Text1.TEXT = NewFile
　　End Sub
　　7.创建一个新的名为GetTempName的函数,将如下代码添加到该函数中:
　　Private Function GetTempName(TmpFilePrefix As String) As String
　　 Dim TempFileName As String * 256
　　 Dim X As Long
　　 Dim DriveName As String
　　 DriveName = "c:"
　　 X = GetTempFileName(DriveName, TmpFilePrefix, 0, TempFi leName)
　　GetTempName = Left$(TempFileName, InStr(TempFileName, Ch r(0)) - 1)
　　End Function
　　按下F5键,执行本样例程序。单击命令按钮,在驱动器C的根目录下创建一个新的临时文件。该新创建的文件的名称被显示在文本框控件中
编辑：　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：利用VB访问Internet
下一篇：用VB编写标准CGI程序（下）
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。

　相关文章

VB两种操作Access数据库方法的比较	用VC程序来创建SQL Server ODBC数据源	用VB备份和恢复SQL Server数据库的方法
VB程序如何访问数据库	VB程序如何连接数据库	VB+Oracle 9i如何构建开发和运行的环境
VC下利用Pro*C开发Oracle接口	VB游戏攻略	php编程命名规则
PHP编程常用技巧	PHP编程网上游	在VBScript中使用类（一）
在VBScript中使用类（二）	在VBScript中使用类（三）	在VBScript中使用类（四）
.Net环境下基于Ajax的MVC方案	RC4经典加密算法VB版本代码	在asp中通过vbs类实现rsa加密与解密
使用VC++6.0制作ASP服务器控件简介	ASP VBScript 函数速查表	清空iis log 中自己登录ip的vbs
PHP:MVC迷思	PHP程序员的自我修炼：PHP编程风格	MVC模式的PHP实现

最新更新

热点排行

推荐新闻

Visual Basic 5.0中实现视频画中画

Serv-U:快速构建功能强大FTP服务器（二

Serv-U:快速构建功能强大FTP服务器（三

Serv-U:快速构建功能强大FTP服务器（四

Visual Basic 概述

快速初始化Variant和String类型数组

Windows XP专业版IIS连接数的更改

QQ最新版下载 2006 beta2 体验新感受

优秀公益广告作品欣赏(7)

Office2007简体中文版浮出水面美图抢

IP地址资源2012年枯竭部署IPv6很紧迫

古老问题有新解：世上先有鸡蛋后有鸡

Dreamweaver MX 2004从零开始(1)

利用CSS改善网站可访问性

如何让MM的脸通透可人

msn8.0下载

	友情链接

	Copyrights © 2004-2006 iYiT.Net All Rights Reserved. 网站合作、广告联系QQ:147007642、466949678
	易特网络技术冀ICP备05011851号		浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。