说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB创建临时文件

HTML文档下载 WORD文档下载 PDF文档下载
VB创建临时文件

在Visual Basic 中 开 发 应 用 程 序 的 时 候, 可 能 会 需 要 在 磁 盘 上 创 建 一 个 临 时 目 录, 本 文 将 介 绍 如 何 在Visual Basic 版 本4.0 中 创 建 临 时 文 件。

使 用GetTempFileName 函 数
---- 可 以 通 过 使 用API 函 数 中 的GetTempFileName 函 数 来 在 一 个 指 定 的 磁 盘 驱 动 器 上 创 建 一 个 新 的 文 件。 尽 管 所 创 建 的 文 件 是 一 个 临 时 的 文 件, 当 不 再 需 要 它 的 时 候, 程 序 员 还 是 需 要 将 它 从 磁 盘 上 物 理 地 删 除 掉。
---- 要 在VB 中 使 用GetTempFileName 函 数, 必 须 将 如 下 的 声 明 语 句 包 含 在 程 序 中( 注 意 该 声 明 语 句 需 要 被 书 写 在 一 行 内):

---- Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

---- 该GetTempFileName 函 数 需 要4 个 参 数:

---- 第 一 个 参 数 是 希 望 创 建 新 文 件 的 驱 动 器 和/ 或 路 径 的 名 称, 在 下 面 的 样 例 程 序 中, 新 文 件 创 建 在 驱 动 器C 的 根 目 录 下。

---- 第 二 个 参 数 是 指 派 给 文 件 名 称 的 前 缀。

---- 第 三 个 参 数 应 该 被 设 置 为0, 告 诉 该 函 数 为 文 件 名 称 自 动 产 生 随 机 号 码。 该 随 机 号 码 然 后 被 添 加 到 前 缀 字 符 的 后 面 以 产 生 一 个 独 特 的 和 完 整 的 文 件 名 称。

---- 第 四 个 参 数 是 一 个 字 符 串 缓 存, 它 至 少 要 有256 个 字 符 的 长 度, 以 存 放 临 时 文 件 的 名 称。 在 调 用 该 函 数 之 后, 新 文 件 创 建 在 指 定 的 磁 盘 上。 这 里 重 申 一 下, 当 退 出 应 用 程 序 时, 必 须 物 理 地 将 该 文 件 从 磁 盘 上 删 除。

样 例 程 序
---- 该 程 序 显 示 了 如 何 在VB 应 用 程 序 中 创 建 一 个 临 时 文 件。
---- 1. 在Visual Basic 中 开 始 一 个 新 的 工 程, 采 用 缺 省 的 方 法 建 立Form1。
---- 2. 将 如 下 声 明 语 句 添 加 到Form1 的 通 用 声 明 部 分 中( 注 意 该 声 明 语 句 需 要 被 书 写 在 一 行 内):

---- Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long

---- 3. 将 如 下 代 码 添 加 到Form1 的Form_Load 事 件 中:

Private Sub Form_Load()
Text1.TEXT = ""
End Sub
---- 4. 在Form1 上 添 加 一 个 文 本 框 控 件, 采 用 缺 省 的 方 法 建 立Text1。
---- 5. 在Form1 上 添 加 一 个 命 令 按 钮 控 件, 采 用 缺 省 的 方 法 建 立Command1。
---- 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, TempFileName)
GetTempName = Left$(TempFileName, InStr(TempFileName, Chr(0)) - 1)
End Function

---- 按 下F5 键, 执 行 样 例 程 序。 单 击 命 令 按 钮, 在 驱 动 器C 的 根 目 录 下 创 建 一 个 新 的 临 时 文 件。 该 新 创 建 的 文 件 的 名 称 被 显 示 在 文 本 框 控 件 中

DELPHI显示JPEG图像文件 Delphi中CANVAS使用三例 Delphi中的图形显示技巧 DELPHI中画布应用技巧 Delphi中控件深度投影及阴影效果的实现 DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 实现图象局部放大的原理和方法-Delphi资料 使用Delphi实现滚动式面板窗口 通用的MsgBox-Delphi资料 图象放大镜——实现图象局部放大的原理和方法-Delphi资料 图形的特殊显示效果-Delphi资料 图形整体拉出效果-Delphi资料 一个实用的Delphi屏幕拷贝程序的设计 基于对话框的程序中,使用了Tree Control和Edit box,如何在Edit box中显示TreeControl中选中的文本文件的内容。希望提供类似的例子。 ★★★★★★★紧急求救★★★★★★★★ 寻找丢失的分区表!!! windows2000进入“等待”后,唤不醒是怎么回事,请指点! jsp数据库中的Date类型? 在vb中如何进行时间比较?例如1 / 7 / 17 10:00:00 - 1 / 7 / 17 00:00:00 得到一个值?? 请问如何获得其他机器的网卡MAC地址?非常感谢!!! 别了,最爱的BCB! 如何判断一个指向窗口的指针可用? 请教高手:怎么样破windows2000的登陆密码?其密文存放在什么地方? 急:哪里有电子文档 找到找到 网络编程、大虾有请!如何获得当前每秒的字节数? 各位高手,有人喜欢用mysql吗?谈谈这个东东吧 大富翁怎么连不上了? 各位武汉的大虾,请教武汉程序员、高级程序员、系统管理员(正规的大公司)、以及用JAVA做开发的工资一般为多少。希望大家给予帮助!!前途问题!! 网络编程大虾有请!如何获得当前每秒的字节数? 怎样在treeview中设置背景图片 to 版主:精华区太乱了,请给予分类。谢了 听说VB可以写PAD的程序,TRUE? JLabel中文本换行问题 马上要开始学BCB,请问BCB有那种类似于VC的创建类的向导吗,看到BCB的界面我就想到DELPHI中创建类的难度 我的游戏引擎BATTLEFIELD作好了,欢迎下载(这次是真的) 一个pop_up menu的问题 那位高手知道在SDK中使用ADO的方法 为普天之下正直而上进的程序员找一个温馨的家 为什么不能把JMF包打进去??? 内存泄露是指例如“为对象分配一个内存区后,未删除内存区,但删除了对象”是吗? 装pws时遇到的麻烦! to freezwy(网络自由人) 有没有限制上传图片大小的asp代码??(不是组件) 还是没有解决!!! 有关VC中数据库绑定的问题! 扔个骨头……下个“圈套”,呵呵? ^_^ 紧急情况!如何改变DataGrid控件中个别行的颜色?? 如果实现断开共享目录的连接 acces 表 SQL语句中如何转换字符型字段为整型? First-chance exception 请教directx的一个入门问题? 诚征MM中…… 多线程问题?? 请问sybase中real类型的最大值是多少?999999999 自杀的N个理由 如何根据日期计算出一年中的第几天? 情况不对,撤丫~~~~~~~~~ 如何在JBuilder4.0编译环境下打包\编译??????? 关于对话框的一个简单问题 如何把几个chm(已编译的 html 文件)文件合成一个chm文件 ado参数问题 请问sevrlet怎么结合HTML模板工作呢?谢谢 我想作一些动态界面,有谁能提供一些有关这方面的资料.小弟有礼了 比较弱的问题 工程队13天完成一项工程,平均每天完成这项工程的几分之几?每天可完成这项工程的几分之几? 一项工程,甲工程队单独做40天可以完成,乙工程队单独做80天可以完成,现由甲先单独做10天,然后与乙共同完 一项工程,甲独做需10天,乙独做需15天,如果两人合作,甲的工作效率就要降低,只能完成原来的4/5,乙只能完成原来的9/10,现在要8天完成这项工程,两人合作天数尽可能少,那么两人要合作多少天?要 工程队做一项工程,计划8天完成,平均每天完成这项工程的几分之几,3天完成这项工程的几分之几? 一项工程甲队单独做要10天完成乙队单独做要12天完成现在两队合做4天剩下的由乙队单独完成需要多少天?有助于回答者给出准确的答案 一项工程,甲队单独完成要10天,乙队单独完成需要15天,甲队和乙队的工作效率比是多少 工程队12天完成一项工程,平均每天完成这项工程的几分之几?3天完成这项工程的几分之几? 一项工程甲单独做要10天完成,乙单独做15天完成.现在甲做4天,乙做3天,分别完成这项工程的几分之几? 一项工程甲单独做要10天,乙单独做要15天,如果两人合作,甲的工作效率要降低20%,乙的工作效率要降低10%,现在要8天完成这项任务,两人合作的天数尽可能少,那么两人要合作多少天? 一条路,甲工程队单独挖15天完成这条路的1/5,甲每小时完成这条路的几分之几 一项工程,甲独做10天完成,乙独做15天完成,现在甲做4天,乙做3天,分别完成这项工程的几分之几? 一项工程,甲单独做需10天,乙独做需15天,如果两人合作,甲的工作效率就要降低,只能完成原来的4/5,乙只能完成原来的9/10,现在要8天完成这项工程,两人合作的天数尽可能少,那么两人合作要多少 工程队要在10天内抢修一条长2千米的公路,平均每天要修完这条路的几分之几?平均每天要修多少千米?要有列式 和理由~ 做一项工作,甲用5天完成,乙用4天完成,甲每天可完成这项工作的几分只几?乙每天可完成这项工作的几分只 一项工程由甲乙丙三个工程队单独做,甲队要6天,乙队要7天,丙队要14天,合作一天后还剩几分之几?是1-(6\1+7\1+14\1)嘛~ 工程队原计划用25天修完一条长1200米的路,实际提前五天完成,实际每天修这条路的几分之几 单独完成一项工程,甲要5天,乙要8天,甲的工作效率是乙的几分之几? 甲乙两个工程队合做一件工程,7天能完成,两队先合做5天后甲乙两个工程合作一件事情,7天能完成,两队先合作5天后,甲工程队的全部人员和乙工程队人员的1 /5,调到 0 | 解决时间:2010-8-30 18:31 | 工程队原计划用25天修路1200米,实际提前5天完成任务,实际每天修这条路的几分之几? 做一项工程,甲用5天可以完成,乙用4天可以完成,甲每天可以完成这项工作的几分之几?乙每天可以完成这项工作的几分之几?乙的效率比甲高百分之几? 一项工程,甲乙两人合做18天完成,甲单独做要30天,现甲乙两人先做六天,再由甲做10天,这件工程还剩几分之几 工程队修一条3千米长的路,20天修完.平均每天修多少千米?平均每天修这条路的几分之几? 一件工作 ,甲单独做15天完成,乙单独做12完成.两个合做4天可以完成这项工作的几分之几? 一件工程,甲乙合做18天完成,甲单独要30天完成,现在两人合做6天后,再由甲单独做10天,工程还剩几分之几? 工程队修一条3/5千米的路,已修了3/10,剩下的要三天修完,平均每天修这条路的几分之几?求大神帮忙~~~~拜托啦. 甲 乙两人合干一项工作,原计划12小时完成,现在甲先干了5小时,甲,乙又合干了10小时才完成.求乙的工作效率是假的几分之几 一件工程甲乙合作8天完成甲单独做30天完成现在甲乙合作4天后再由甲独做10天一共完成这项工程的几分之几?解答并且讲题 1条公路25天修好平均每天修这条公路的几分之几?7天修几分之修这条公路几?请在10分钟内回答, 一件工作 甲单独做需要10小时完工,乙单独干需15小时完工,现甲乙合干几小时完工? 一项工程甲独做6天完成,乙独做8天完成,那么甲乙合作一天完成这项工程的几分之几?甲做a天,乙做b天,共完成了这项工程的几分之几? 一段路30天修完,平均每天修这段路的几分之几,15天能够修完这段路的几分之几. 一项工程,甲乙合干10小时完成,家单独干18小时完成,乙单独干1小时能完成这项工程的几分之几? 一项工程,甲、乙合作6天完成.甲单独做11天完成,乙单独做每天完成这项工程的几分之几? 一条公路,由甲队独修,需要8天,由乙队单独修,需要12天完成.两队和修3天后,完成了这条路的几分之几, 一件工作,甲单独完成要10小时,乙单独完成要11小时,甲和乙个做了7小时,甲完成了这件工作的几分之几?乙完成了这件工作的几分之几?哪个做得快些? 一项工程,甲工程队单独做要10天完成,乙工程队单独做6天完成,现甲工程队先做2天,乙工程队再加入合作,完成这A、B两地城际高速铁路预计在2012年5月1日正式运营,按设计要求,两地单程直达 美国文化"芭比娃娃"有什么历史背景? 一项工程,甲单独做8天完成,乙单独做6天完成,两队合作3天后还剩这项工程的几分之几?怎么列式? "每年人均食品支出占人均支出的几分之几?",是人均支出分之人均食品支出吗 Bob是什么意思 一项工程,甲独做8天完成,独做12天完成.两队合作3天后,还剩几分之几? ①的三角形的面积是②面积的几分之几,帮忙把式子也列出来,把原因也说说 请问一下“爱情的bob”是什么意思… 一项工程,由甲队修建要30天完成,由乙对修建要20天完成,两队同时修建8天后,还剩这项工程的几分之几?算式 数学题给下算式不要分部 70人相当于80人的几分之几 一项工程需要9天完成,已经干了5天,完成了这项工程的几分之几 已知一项工程,由甲队单独做30天完成,由乙队单独做20天完成.两队合作10天,还剩下工程的几分之几 修一条路,甲队单独修要15天,乙队单独修要12天,两队合修6天,两队各修完这条路的几分之几? 一项工程原计划9天完成,实际上只用7天就完成了.实际每天比原计划多完成工程的几分之几. 一项工程,由甲队做30天完成,由乙队做20天完成.两队合作五天可以完成工程的几分之几? 一项工程 甲队单独做6天完成,乙队独做15天完成,两队合作,一天完成这项工程的几分之几? 7天是9天的几分之几 一项工程甲单队独做要20天完成乙队单独做要15天完成两队合作5天后还剩几分之几没修 一项工程,甲单独完成要10天,乙单独完成要15天两人各做3天,一共完成这项工程的几分之几 一项工程原计划9天完成,实际上只用7天就完成了.实际每天比原计划多完成工程的几分之几. 一项工程,甲工程队单独做要12天完成,乙工程队单独做要10天完成,现在两个工程队合作做了4天,共完成这项... 一项工程,甲队单独做需要18天,乙独做15天完成,现决定由甲、乙二人共同完成,但中途甲有事请假四天,那么完成任务时甲实际做了多少天?请说说思路,感激! 修一条4千米长的公路,7天修完,平均每天修几分之几千米?每天修了这条公路的几分之几?平均每天修了1千米的几分之几? 一项工程,甲工程队单独做40天完成,乙工程队单独做60天可以完成,现在由甲单独做10天,然后与乙共同完成余下的工程,甲工程队共做多少天?(列方程解答) 一项工程,甲队独做15天完成.现在甲队单独做啦几天,再由乙对单独做,过共用拉11天完成,那么5天能完成吗
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn