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

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

日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 使用Storm实现实时大数据分析! 孙博凯:微软日益开放,Windows Azure更加拥抱开源 大数据计算:如何仅用1.5KB内存计算十亿个不同的对象 我们为什么爱EC2和S3却彻底抛弃EBS 不畏Surface:诺基亚明年或推Windows平板 Linus Torvalds:用户程序被破坏永远是Kernel的问题! Python高效编程技巧 苹果加速硬件迭代 iPad5原型机曝光 宏碁推99美金平板 价格创历史新低 黑莓10全键盘版代号N系列,谍照泄露! 那些年我们用过的互联网产品 QQ亿级业务演变:从文件、音视频说起 少年企鹅的成长之旅:QQ体验设计发展史 全球超算Top 500:Linux已占93.8%,Windows或将消失 AWS东部地区再次发生宕机 Netflix等网站受影响 2012年全球最美的十个数据中心 CodeCards:程序员电子贺卡DIY项目 微软首席战略官Craig Mundie将于2014年退休 LG明年CES展新款智能电视 增强自然语言识别 微软包嘉峰:企业用户向Windows 8迁移加速 2013年10个科技预测 三维打印技术将成主流 能省电99.96%:微软开发基于云的GPS技术 十个最有用的云数据库 开源产品系列:企业级Web框架web2py 让针对Webkit优化的网站兼容WP8 IE10 CMDN Club 24期:互联网产品的演进之路——从QQ谈互联网14年进化史 360安全浏览器发布“照妖镜”和“网站名片”功能 Windows Server 2012实用教程:添加Hyper-V管理器 用vb6.0做的ftp下载的客户端程序 请问有为SUNPLUS16位机(MIUnSP™)开发平台的高手吗? 几经努力,没有经果.......(#if)真的很难吗? 涨分好机会,我有大问题:用什么方法可以实现——联接 电话网络(有线、无线)与电脑服务器,实现消息即时通信 欢迎多一些高手朋友提供 JAVA开发中的B/S方式,C/S方式到底是什么? 关于delphi中的查找赋值 >>>>>>关于new,delete 的简单问题《〈〈〈〈? 全国各地接吻比赛(想学习经验、姿势的进来) 数据挖掘关联规则算法的原代码能在哪里找到,譬如apriori算法? 请问16个主要颜色的RGB值。 使用过存储过程的大家帮忙呀。。。。。 websphere怎么啦? 救急:query回写 想学C#,有啥好书?? 如何动态地获得一个组件的属性、方法并调用? 请帮我看看这个小的asp程序为什么不能被网页调用?IE说这个网页不能显示 失业,散分!!! c++ builder 如何引用access数据据库的图片字段(ole对象),我用TDBimage控件不能看 CSS滤镜的使用!! 共同关注 失业了,散分!!! 大家有没有看网络小说啊!能提供几个经典些给小弟参考参考么? 失败!!失败!!! 失业了,散分!!! 怎样在java的桌面程序里打开浏览器呢 DataGrid如何实现鼠标放上去改变颜色? Foxpro数据库中,可否导出oracle可以操作的表呢?大虾指点啊! 请问调用存储过程中一个输入参数为nvarchar(24)的时侯,我在asp中的输入怎么会报错? 失业了,散分!!! 华工科技开目软件集成公司怎么样? 失业了,散分!!! 失业了,散分!!! 失业了,散分!!! 我用update更新互联网上的数据库,总数大约有700多条,在更新过程中程序窗口没响应了,无法最大化,最小化,关闭,但进度条仍然在走,更 水园公务帖[2003.03.11——2003.03.17] 无人回答的帖子,再发一次。up有分 快去微软件聊天室了,开聊了。 from表单中的参数无法传递? 急!急!急!急!急!我安装Visual studio 6.0中文版不能够成功,是什么原因?? 关于Oracle的数据类型问题? 请问在vc中怎样创建Outlook对象 关于Cable Modem,高手指点。 毕业论文怎么作??????????? 新手送分(解决即给分) 天生爱吃冰激凌! 江湖告急!!!!! 整理 FAQ 的时候 为什么 总是出现 贴子内没有这个人的回复!!!:xxxxx 如何删除一段时间的记录?????(兄弟们帮帮我) 关于 Treeview控件,请高手指教。 推荐好书 Borland Delphi 6 中文企业版哪里有免费下载????????????????????500分 物体向上运动后 又原路返回 问重力有没有做功 海市蜃楼为什麼不是化学变化不是化学变化是什麼 信天游是什么?歌词中“信天游带走我的情”作何解释? 一个人坐匀速直线竖直向上运动的电梯,他的重力有没有做功 关于万有引力定律问题由F∝m/r2 ,F'∝M/r2 ,F=F' 如何得出F∝Mm/r2的呢? 与春秋时期有关的成语, 在光滑的水平面上有一物体用力拉这个物体沿直线运动了一段路程拉力所做的功为w1;在粗糙的水平面上有另一仍用等大的力拉这个物体沿直线运动了同样一段距离,拉力所做的功为w2,则A.W1=W2 下列四个短语,其原意一定包含化学变化的是A花香四溢 B海市蜃楼 C百炼成钢 D木已成舟 春秋时期,我国政治上的特点是什么? 放在粗糙水平面上的物体,在20N水平拉力作用下,匀速运动20m,合外力对物体做的功 J 体育课用的铅球质量为260g,体积为30cm3,问铅球是实习还是空心的 春秋时期井田制的内容与意义 正方体棱长是4cm,表面积是多少平方厘米,体积是多少 一列火车从车站出发,一人在车头轨道旁边观察火车的运动,发现在50s内,列车从他跟前驶过5节车厢,每节车厢长10m(连接处长度不计) 求:(1)火车的加速度 (2)火车共20节,问最后一节经过 13g锌与100g稀硫酸恰好反应,求1)稀硫酸中溶质,溶剂的质量2)所得溶液中溶质,溶液的质量 春秋时期各国交战和兼并情况 写出各国交战次数和每一次大国兼并小国数目 如图所示:从地球上发射一个卫星 起初按照β轨道运行,在A点第一次加速(反冲)(加速时间忽略),并沿着椭圆轨道δ运动.运动到B点时,把此时的向心加速度记为a1.人造卫星又运动一周后回 "______,蟪蛄不知春秋."《老子》中的,前面那句是什么?如题 轮胎国际标准汽车设计如何选择轮胎百度搜索也搜不到, 卫星变轨后进入外层轨道需要加速,但由万有引力定律 随 轨道半径增大而减少 这是怎卫星变轨后进入外层轨道需要加速,但由万有引力定律 随 轨道半径增大而减少 这是怎么回事? 朝菌不知晦朔,蟪蛄不知春秋 怎么读 走一步再走一步:爬下悬崖,实际上是一件小事,我为什么有一种巨大的成就感,并说这是我永远忘不了的经历? 万有引力定律中,若卫星围绕地球运动的轨迹为椭圆,那么在公式中的GMm/r方=mv方/r中的r是否用椭圆的半长轴替换就可以了? 朝菌不知晦朔,蟪蛄不知春秋.这里面朝菌的菌是什么意思?最好是可以注明出处,不然我也不知道到底哪个更可信. 如何证明1mol任何物质的量的计数都等于其相对分子质量的计数 平衡力中 只要一个力做功了 另一个也做功对吗 为什么副热带高气压带控制的地区并不都是干旱少雨 除了太阳,土星太阳系中最大的引力源? 有一个正方体,棱长为8cm,有一个角是空缺的,数据分别是2cm,2cm,4cm.求这个的表面积要表面积公式,要完整,继续,明天要交啊 《春望》中表现作者心系国家、思念亲人的诗句 关于太阳系的引力平衡各行星对太阳也有引力,那么太阳与行星不同的是,太阳不公转,也就无惯性离心力与引力平衡,那么该是什么与引力平衡了 为什么同步地球卫星不会落到地面?是否与万有引力定律相矛盾?若月球相对地球静止却会落到地球,为什么同样相对静止却有不同结果? 知道水的体积怎么求质量—— 小明家最近安装了一台太阳能热水器,容积为80L,装满水.(1):热水器中水的质量是多少?(2)水温度升高50℃需要吸收多少热量?产生这些热量需要完全燃烧多少 金枪鱼为何游得那么快老兄 老姐 怎么能用万有引力定律来计算人造卫星运行到地球的什么位置呢?不求公式,只求理论 小知不及大知,小年不及大年.奚以知其然也?朝菌不知晦朔,蟪蛄不知春秋,此小年也.小聪明赶不上大智慧,寿命短比不上寿命长.怎么知道是这样的呢?朝菌不知一月的时间变化,蟪蛄不知一年的时 为什么金枪鱼游得那么快每小时几千米 【济南的春天】一文,文中写山脚的变化,连用了六个“忽然”.试分析其作用 现在在南边那颗很亮的星星是什么星 一个质量为1000kg的物体在平行于斜面拉力F的作用下,沿倾角为30°的斜面匀速向上运动.已知斜面的摩擦因数为0.3,求拉力有多大?(g=10m/s^2) 人耳能分清前后两次声音的时间间隔应大于15分之1秒据次要想听到回声人离障碍物的距离应().答得满意就加分 什么是信天游 声波是纵波?请先听我的解释,然后再补充!‘纵波:声波的振动方向平行传播方向’这点我清楚,唯独声波我不理解.比如一人在二楼敲锣,上下左右的人都能听见;人竖着拿锣,锣上下震动;根据 金枪鱼的速度要用“m/s”填写 信天游是?有没有这么个 歌手 济南的冬天前四段的概括 万有引力定律有关问题在研究宇宙发展演变的理论中,有一种学说叫”宇宙膨胀说”,这种学说认为万有引力恒量G在缓慢地减小.根据这一理论,太阳系中土星的公转情况与很久很久以前相比: 求一篇描写朝阳的八百字作文描写朝阳的,内容浅显点即可 干旱少雨的原因是什么 有关“万有引力定律”的一道题火箭内平台上放有测试仪器,火箭从地面起动后,以加速度5m/s^2竖直向上加速运动,升到某一高度时,测试仪器对平台的压力为起动前压力的17/18.已知地球半径为R, 介绍朝阳一中作文作文快啊 青藏高原干旱少雨的原因是什么 关于万有引力定律的问题万有引力定律 怎么推导啊还有为什么引力的大小和两物体质量乘积成正比例?也就是说为什么在万有引力定律公式中会出现m'*m 而不是其他一些什么东西.老大,我问的 春秋时期这些工具和技术的使用有什么意义? 北方为什么干旱少雨? 篇末用“这就是济南的冬天”作结,有什么好处? c8051f单片机的交叉开关的主要作用是什么? 辽宁朝阳地区为什么干旱少雨 花香四溢是物理变化还是化学变化 单片机独立按键开关方向判断RT,不用万用表,如何判断哪两个引脚之间有开关电路? 日土发表共同宣言 安倍决心加强战略伙美华裔众议员称美主持人为攻击性言论道湖南一希望小学被强拆 当地称“项目重教师为讨960元代课费跑15年 江西韩国特种部队女兵彩排不忘自拍留念(组日本女高中生为何讨厌自己的爸爸?美国有意叫停窃听盟国元首 部门“内讧奥巴马提名两名竞选支持者为美国驻外大叙利亚总统巴沙尔再颁大赦令金华男子貌若金城武 3个姑娘心甘情愿第13届中国网络媒体论坛在郑州举行 雪糕也有怪味 日本北之雪糕屋华人油画家潘义奎:艺术家应心怀美好美国华人要求美电视台就播出“杀光中国AKB48将于2014年举行乐曲总选中国与苏联老兵在京见面 促进中俄世代北海舰队两大编队在西太演练导弹攻防(以色列将在东耶路撒冷新建1500个犹导演张元任罗马电影节评委二代谷歌眼镜模型图曝光 科技网站评“专家认为美国财政问题拖累美国及全球经养喵千日,用喵一时为什么外国没有“双十一”?等飞机太无聊怎么办!怎么办!怎么办!有人说中国是一个伪装成国家的世界,他今日跌破3600 只因这四大因素那些说要成为吃土王的败家娘,看看这才你熬的不是夜,是命!丨下午茶这么可爱,你是要闹哪样!丨推广旧手机明明能值几千块,你竟然不知道?好声音导师的动态海报中,你喜欢哪个小每日神段子 ▏双11最该打折的是自己创意生活!给茶叶包披上外衣,温暖了冬硅胶丰胸真的安全吗?用原子为产品打造专属“身份证”,从此你永远也想不到,生病时身体里的细胞都芒果台又出了一部豆瓣评分只有2.9的油市添悲讯原油期货卖出期权激增,前景机构一致看好10股 走势惊人!(11三国演义讲述了59个道理,实在太精辟美国中产阶级的真实收入、真实生活 (最走心演讲+最亮点营销,六月鲜成“1
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘