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

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 的 根 目 录 下 创 建 一 个 新 的 临 时 文 件。 该 新 创 建 的 文 件 的 名 称 被 显 示 在 文 本 框 控 件 中

微软年度科技展 酷炫技术知多少 图解Hadoop生态系统 HTML5并不给力 微软IE10又默认启用Flash Oracle出新提案:Java正逼近iOS? TIOBE 2013年3月编程语言排行榜:厚积薄发 Ruby反超Perl 清华大学开源镜像站将被关闭 发表公开信 前Google资深研究员赵勇回国创业 专注计算机视觉/模式识别 开发者福音,微软开源Kinect源代码 日本很积极:富士通和NEC确认将推Tizen设备 10大支持移动“触摸操作”的JavaScript框架推荐 数据科学家的争夺及美分析学专业研究生院的建立 从开放走向封闭 Netflix宣布停止发布API key 《植物大战僵尸》神秘续作:可能是一款横版游戏 高性价比:GlassUp宣布支持Windows Phone系统 未挖掘到足够信息:非收集数据少,是利用率只有1% 下一个帝国:谷歌收购初创公司DNNresearch 苹果更新Apple Store应用,可查看零售店库存 开源软硬件:福特汽车的OpenXC计划 Temple Run:Oz稳坐付费榜头把交椅,迪士尼名利双收 Facebook开放图谱示好开发者 新增书籍电影等九项操作 源代码管理的六大视觉模式 最新算法面世 可提高云数据库性能 分析称平板电脑应用将占全球应用经济的35% 三大运营商对微信等OTT业务摊牌 Runscope联合创始人John Sheehan:API已死,API永存! IBM在京发布大数据白皮书 提出五项关键建议 Twitter开源Parquet 将支持Impala加速实时查询 使用Go代替Ruby,将服务器数量从30降到2 初创公司SwiftStack:“放在盒子里的S3” 赫尔辛基:全球移动游戏开发者的“黄埔军校” 不只属于三星!uMoove将发布“眼球追踪”SDK 数据库存储一些记录后不能写入,数据库文件异样(BDE) 急问:这样的文件怎样导入数据库? 一个免费的电影网站,不需要手机不需要花钱就能看电影 IIS下配置php-4.3.2-Win总是不行??? 很多书上都有说jsp:useBean的scope属性的application,是指任何使用相同的application,这个相同是什么意思? 关于统计的问题 马甲识别诸法之我论(转贴) 弱弱地问一个问题。 如何用键盘弹钢琴? ASL是什么? how to 高考 装了win2003之后调试asp.net还要不要再装其它软件? 学c++出路 我把数据库的连接池作到Bean中,麻烦就此产生,请高手帮我解决??? 成熟OA系统,B/S模式,三十几个模块,四十几个功能,超底价出售原代码,包你满意,有意者留个油箱,我把部分文档给你发过去,如果你离南 怎样装微软官方论坛? 成熟OA系统,B/S模式,三十几个模块,四十几个功能,超底价出售原代码,包你满意,有意者留个油箱,我把部分文档给你发过去,如果你离南 win2000安装后,每个一秒种读一次盘,请帮我解决问题。谢谢! 谁还来个高程QQ群? 大家都上过哪些收费电影下载网站? 请问那里有好的中文输入法下载。我的是redhat72 在线等待----100分,急!!! 光标定位问题 asp mail question 一些比较菜的问题 实用问题,在触发器中如何退出? 怎样来通过我的程序来控制另一个程序的下拉菜单 VS 2003哪里有下?VB的GRIDCTRL如何调整各列的宽度? 请问如何把datagrid中的数据到出到Excel中做报表 DLLHOST.EXE是什么东西?它占用了CPU的99%,服务器慢如蜗牛,ASP文件不能正常运行,救命啊!!!!!! 急用!谁能提供五子棋的算法和设计? 谁有无限制的activethread控件,通知一下, 很急! 谁能提供五子棋的算法和设计?急用! 请教一个WebLogic问题,请高手帮忙! 怎么知道DLL里函数以及它的参数 有关IE主页被恶意修改的问题请教。。__急! 急用!谁能提供五子棋的算法和设计? set mail=server.createobject("cdonts.newmail") 错误,高手指点一下!!! 谁能提供五子棋的算法和设计?急用! 如何解决??? UNIX中文录入的问题 菜鸟求一个语句 500分给前辈 大家都来看看这些女人(三分长相,七分打扮) 兄弟们,帮忙提供个参数~送100分了,承蒙关照了 调查:你现在用哪种开发工具,感觉如何? 防火墙经常出现类似记录信息 请问.pdg格式的电子图书如何浏览 新版net2003web Service 奇怪的FileNotFoundException错误 求救:支持汉字的OCR控件。给个制作思路也成。 英语同义句替换Can you come here at four o'clock this afternoon_____ _____ here at four o'clock this afternoonI haven't got any letter from her for two monthsI haven't _____ _____ her for two monthsThe boy's parents are too poor to buy a bicycl Put ur hands in the air and show ur middle fingers. 英语教师证怎么考得 英语同义句替换!Why did the workers use live models()did the workers use live models()?2.some old city walls in this city need repairing nowpeople need()()some old city walls in this city 已知线段AB和CD的公共部分BC=1/3AB=1/4CD,线段AB,CD的中点分别是MN,且MN=18,①求AB和CD的长②求MN的长 谁能总结新概念背诵的经验? 英语同义句替换:(如下)I can speak little English.I ___ speak ___ English. I made a five-month _____ of India and the Far East. A. tour B. travel C. journey D. voyage快快快快快快快快快快快快快快快快快快快快快 例:语文是滋味甘醇的美酒,让人回味无穷.读书是.大自然是. 同义句替换 英语1.We can go there in a car.2.She rides her bike to the zoo.3.Li Lei comes here on foot.4.Mr Black drivers to work every day.5.The bookstore is near the station. 帮我翻译一下:Valuing an East European CompanyValuing an East European CompanyAS A CONSEQUENCE AND PART OF privatization plans, former Soviet bloc countries are dismantling state systems of loans and subsidies to enterprises. With limited altern 参加一百米跑竞赛的运动员在冲刺过程中为什么不能看作是一个质点我觉得可以看做质点的.但答案里说不是质点,是我错了么?只要是机械运动就能被看做食是质点么,在不考虑大小和形状的时 同义句替换(英语的)We don`t have a plan because we don`t know the weather tomorrow.把这个句子改成同义句应该为:We don`t have a plan because it _ _the weather tomorrow 那两个空该填什么? Coeur 参加百米跑竞赛的运动员能否视为质点 高一数学必修1第二章指数与指数幂的运算相关的公式? 这个乾造是什么意思? 百米冲刺的运动员能否看成质点quickly and the reason of this probiem 已知抛物线C;y^2=2px(p>0),F为抛物线的焦点,点M(p/2,p)求解! coeur battant 谁能总结下新概念语法的表示强调的方式?跟大家分享下 x=0.5(5^1/n-5^1/n),n∈N,试求{[x+(1+x^2)^0.5]^n}的值.我打错了x=0.5(5^1/n-5^-1/n),n∈N,试求{[x+(1+x^2)^0.5]^n}的值。 英语翻译 31种雅思口语高分必背公式谁有啊? 怎么把这些英语句子改为单数,急.These are booksThese are quiltsThose are orangesAre thiese your watches?Are those his dictionaries?They are mapsThose are his rings 不造是什么意思? 求新概念语法的表示强调的方式?谁可以提供下 把长,宽各为4,3的长方形ABCD沿对角线AC折成直二面角,求顶点B和D的距离 手指在造是什么意思? 照样造句 语文,是滋味甘醇的美酒,让人回味无穷语文,是滋味甘醇的美酒,让人回味无穷;语文,是____________,_________;语文,是____________,__________. 古诗鉴赏中的艺术手法是指?古诗鉴赏中的艺术手法是指什么啊?赏析时要如何入手?大概的解题方向是怎样的? ord(‘A’)什么意思?如题 仿句;语文是滋味甘醇的美酒,让人回味无穷.例句:语文是滋味甘醇的美酒,让人回味无穷.家是__________,让人__________.童年是__________,让人__________. 高阶导数的求法f(x)=1/(1-x-x^2) 在x=0出的n阶导数值 歇后语,知道的来哈20副有趣新颖而又含义深刻的歇后语并 简要赏析! 进口里ord是什么意思进口INVOICE里的ORD NO: 乾为天(六冲)--什么意思呢刚刚因为寻找新工作的事情,起了一个卦,看得我云里雾里的,哪位老师帮俺解释下呢,出生:1981 年 性别:女 占事:工作排卦:元亨利贞网六爻在线排盘系统 公历 英语题目根据画线部分完成句子怎么完成法?1、Anna is from Germany.2.i want to make friends with her because she is friendly ord List 1 大学概率学 现代诗啊, middle-east参加德国展!Middle-east or Middle-East 后者的E需要大写吗? 大学概率学的一个基础问题已知E(X)和D(X),求n和p 谁知道现代诗:《只比困难多一点》? yangzhou is in the of Jiangsu.A.east B.northeast c middle D south 感激不尽,关于大学概率学的! 韩寒的现代诗,今晚就要,最好简短一些,越快越好! 意思oil prices reacted sharply to news of the crisis in the Middle East 歇后语 黄忠交朋友歇后语 黄忠朋友交 China to resolve a dispute over oil and gas fields in the East China Sea that both claim. toujours de sensation lonley très 求7篇200字左右的中学寒假日记别太离谱就行 who knows in middle east and iran,recieve chinese broadcasting channels such as CCTV and others on which satelite and what degrees and direction are possible? Toujours hors de 求详解2011辽阳数学中考最后1题25、已知直角梯形ABCD,AB∥CD,∠C=90°,AB=BC=CD,E为CD的中点.(1)如图(1)当点M在线段DE上时,以AM为腰作等腰直角三角形AMN,判断NE与MB的位置关系和数量关系,请直 选择与[ ]意思相近或者相同并能代替的一项.The bad weather is [causing] trouble for them to go out in their holidays.A.bringing B.takingC.bringing about D.carrying 把雪这篇文章改成两篇现代诗是鲁迅写的,南方的雪写一篇,北方的雪写一篇. 歇后语 黄忠出阵 孙大圣七十二变 撑拐掍上鸡窝 聋子的耳朵 狮子大张口 飞机上吹喇叭 六月里下雪 AI中这个在哪儿找的到,中文是什么 我想学些英语的文学作品,包括现代诗什么的,有哪些推荐? 海铁联运专列开通(图)留学生展风姿(图)杭州着力疏通“毛细血管” 拥堵点已着产下龙凤胎的方姑娘昨出院了 亲人赶到杭州萧山机场明起启用新的冬春季航班时浙江高速部分路段夜间有雾气出现 注意新快报记者承认受人指使收人钱财发表失农业部回应转基因大米动物试验:旨在科新消法将于明年实施 网购7日内可无理马尼拉市长拟为人质事件筹集2000万美承认窃听事件对美国与伙伴国关系造成媒体称广州公务员年收入超17万 不少胡万林第一任妻子:从没见其学医 庆幸福州旅游局官微骂记者 专家:官微亟需俄罗斯法律规定亲友要对恐怖分子行为担环保部:上半年新疆青海等省区氨氮排放日本新保密法引政治纷争 被称是修宪的31省区市9月CPI涨幅出炉 物价“湖南长沙岳麓书院竹林被刻字“我想象中的中国游”秘鲁少儿绘画比赛第九届北京—东京论坛在北京开幕重庆2014高考录取分数线公布:一本新疆兵团:推进“三化”建设 提高综合美媒:2020年波士顿的中国游客或超高清:纽约举行美人鱼游行 市长扮海盗日本最大“右翼政党”维新会正式决定解河口县政府发言人就“河口拆除‘文化长涉洗钱及乱开镇静剂 华裔医师认罪沈志华:斯大林毛泽东博弈催化朝鲜战争耀眼头衔后的集资诈骗 海南省工商联副耀眼头衔后的集资诈骗 海南省工商联副韩国军方:相信哨兵杀人事件与朝鲜无关母亲守护12年讲故事 唤醒植物人儿子海南工商联副主席沈桂林案:集资诈骗超韩国军队发现杀人潜逃士兵 双方开枪对新疆兵团:推进“三化”建设 提高综合泰民调显示9成受访者对“维和委”表现广州海关销毁毒品五百余千克 七成毒品广东阳江半山果园藏吸毒私人会所 “D试管婴儿准妈妈遇车祸流产 经法院调解看世界杯犯困开车回家 一眯眼功夫小车持续降水致湖南多地受灾 今起大部地区
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘