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

VB取得文件的扩展名

HTML文档下载 WORD文档下载 PDF文档下载
VB取得文件的扩展名
Function GetExtension(Filename As String)
Dim PthPos, ExtPos As Integer

For i = Len(Filename) To 1 Step -1 ' Go from the Length of the filename, to the first character by 1.
If Mid(Filename, i, 1) = "." Then ' If the current position is '.' then...
ExtPos = i ' ...Change the ExtPos to the number.
For j = Len(Filename) To 1 Step -1 ' Do the Same...
If Mid(Filename, j, 1) = "\" Then ' ...but for '\'.
PthPos = j ' Change the PthPos to the number.
Exit For ' Since we found it, don't search any more.
End If
Next j
Exit For ' Since we found it, don't search any more.
End If
Next i

If PthPos > ExtPos Then
Exit Function ' No extension.
Else
If ExtPos = 0 Then Exit Function ' If there is not extension, then exit sub.
GetExtension = Mid(Filename, ExtPos + 1, Len(Filename) - ExtPos) 'Messagebox the Extension
End If

End Function
使用:
FileExt = GetExtension("c:\windows\vb\vb.exe")

利用Tbatch组件完成数据批处理-Delphi资料 如 何 恢 复Sybase SQL Anywhere 的 数 据 库-Delphi资料 如何捕捉KEY VIOLATION等错误-Delphi资料 如何得到SQL返回的计算结果-Delphi资料 如何动态的读取Delphi中的PopupMenu的Caption ? 如何动态设置DBGRID。比如,动态设置DBGRID的COLUMNS。及如何在数值数据格式成千分位 如何返回BDE的状态信息?-Delphi资料 如何控制关键字段的重复输入及报错-Delphi资料 如何设置Microsoft SQL Server 全文索引服务 ?-Delphi资料 如何设置多用户环境的PARADOX数据库-Delphi资料 如何实现在一个Dbgrid中显示多数据库-Delphi资料 如何用SQL查询日期型字段?-Delphi资料 如何在数据库中存放avi文件-Delphi资料 如何在注册表中注册BDE-Delphi资料 筛选数据-Delphi资料 实现不同数据库系统之间的数据转移-Delphi资料 使 用WISQL32 同 时 访 问SQL SERVER 和SYBASE 数 据 库Delphi资 使用Session构件可以在打开有密码的库时不用输入密码-Delphi资料 使用SQL实现字段数据的模糊查询-Delphi资料 数据表的索引被损坏了怎么办-Delphi资料 数据库的密码、日期显示-Delphi资料 数据库应用程序开发中图像数据的存取技术-Delphi资料 数据库中图像数据的存取技术-Delphi资料 数据库转换-Delphi资料 数据浏览部件的应用及编程-Delphi资料 数据文件路径的管理-Delphi资料 随意控制DBGrid每一行的颜色-Delphi资料 通过DELPHI实现JAVA调用ORACLE数据库数据 通过编写代码来设置数据库的别名-Delphi资料 为Delphi数据表格增加彩色 为Delphi提供Pack和Undelete功能 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 配置问题 关于上网,上传,二个大问题,高手请进,急! 一个打包问题 如何在asp里实现点一个按钮带动另一个软件的运行?急! 散分! 怎样将http下做好的网站,全盘转为https的.我准备买密匙的.想先测试一下. 如果判断当前时间是在某一时间段内? TX DATA SOURCES 數據源問題? 数据得导入和导出 给个好办法 反驳!“一位女生对男生追心仪女孩的建议”zz 请高手指点出我的小程序错误,谢谢! 菜鸟问题,这个combobox为什么不响应onchange事件?高手看看啊 高分求助 (100分) :求学生的平均分,并且排序输出成绩册!!!! 急!请问如何使用java语言获取mysql数据库的相关信息 编译4次便能成功! 下载UNIX 散分! Jsp函数中如何使用JavaScript中定义的函数? 无题! OnKeyPress和OnkeyDown有什么不同? void Page_Load(Object Sender, EventArgs e)语句,是定义一个方法函数,那括号中的Object Sender, EventArgs e可变吗? 有没有开发linux下防火墙的?怎么使用netfilter? 如何取参数呀? EVC中如何使用CHtmlView类,制作网页方面的程序呀! 操,还有这样倒分的,版主管不管?这样的人还要不要脸? 为什么我的sample.dll不能正常被调用 JBuilder如何打开Excel文档? 我们正在考试 请看一下了 太谢谢了 急求助!!!!关于usb的编程!!!! 哪有好用的 Delphi 6 英文版下载? 气体激光器用二氧化碳行么?怎么用? 人类的祖先是怎样预防野兽的袭击的急 急 急 急 急 急 急 急 急 急 有没有具体的描写,证据之类的!希望给出一些具体事例,证据,不要只说一下用什么东西预防, 长为L的绝缘细棒两端固定两金属小球,各带电量为+q和-q,细棒可绕水平轴O无摩擦转动,细棒放置在两平行金属板中间,两板间距离为d,电压为U,要使细棒从图所示位置转过180°角,两小球克服 孔子曰:独学而无友,则孤陋而寡闻.这句话蕴含什么道理? 野兽与人类的分别在于什么呢? 关于油菜和菜心的问题?我看到一种油菜有黄色花,一种没花,请问哪种是油菜,哪种是菜心?抑或油菜就是菜心? 如何吃q10辅酶 什么野兽最怕人类 油菜, 那些食物含有Q10辅酶? 出血了止血适合擦什么药?碘酒或者甲紫溶液? 上海菜花节有多少亩油菜? 国庆烟花汇演观后感5、600字就好 今天手指被一根有点生锈小钉子扎了一下,伤口约1毫米,扎后把血挤出来了和用酒精和碘酒消毒,会有破伤...今天手指被一根有点生锈小钉子扎了一下,伤口约1毫米,扎后把血挤出来了和用酒精和 这个到底叫什么菜,我茶了花菜,菜花,油菜花之类的,都不是这个菜 观烟花有感(600字左右,符合初中水平,要符合实际) 如何制取浓硫酸我准备加热硫酸亚铁然后制取浓硫酸,这个方法可行吗,如果可以,求一个具体操作和实验方案.如果不行,求另一种方法 中国最早现存的古籍有哪些请大大给我个目录按时间顺序排一下要全的哦 2009国庆礼花观后感 激光有那些特性?CO2激光器和YAG激光器的特点? 站在绝缘体椅上的小女孩触摸到带电的金属球后,头发竟然像刺猬一样炸开了,其原因赶紧呀,最好今天就解决,现在等着用呢! 《亡命鸡礼花》有感写写中心思想,传达了什么,从中领悟到了什么,等等200字左右,自己写,文字哲理一点,优美一点, 这样制取浓硫酸可行吗?二氧化锰过氧化氢----------→氧气+水H2O2 O2 H2O收集氧气.点燃硫磺+氧气------→二氧化硫S O2 SO2收集二氧化硫.二氧化硫+过氧化氢----→硫酸SO2 H2O2 H2SO4然后加热,使水蒸发.第 编织袋上喷上文字要用什么漆?急 生姜皮能吃吗?婆婆每次做菜放生姜时都要把生姜皮去掉,她说那个有毒,吃了不好,请问生姜皮真的有毒吗?能不能吃啊? 谁知道开关多开几次才跳闸.有时候漏保也打不上去有那些原因 人类是食肉动物吗不吃肉可以吗 吃姜要刮皮吗? 谁知道开关多开几次才跳闸.有时候漏保也打不上去有那些原因急 标定氢氧化钠溶液时,基准物邻苯二甲酸氢钾为什么要称0.5克左右 大雁和雁鹅有什么区别呢? 古代喝酒的器皿 叫什么?三只脚的那个? 在我国古书《墨经》中记载了世界上最早的“小孔成像”实验.小孔成像中所观察到的像是_______的_______像 雁鹅有什么特征 古代用于捣东西的器皿叫什么?就像碗一样 在我国古书《墨经》中记载了世界上最早的小孔成像的现象,这个实验说明 实行生产资料公有制就等于实行了社会主义了吗 贝贝比爸爸矮0.54米,爸爸的身高是贝贝的1.3倍,贝贝和爸爸的身高各是多少? 我国古书中记载的日全食现象有哪些句段? 生产资料公有制是社会主义的本质本质吗?为什么? 大一高数 但是看不懂 就讲解.仅有两个实根. 最早的古书是什么?好的话再加分 全身黄,比鹅大,飞行像大雁是什么鸟大概在十几年前的成都金堂的冬天出现过,谁能告诉我这是什么鸟真的是一种鸟,最好最好有图片 大一高数,简单格林公式题.看不懂上面的内容和例4.麻烦讲解下 亚铁氰化钾里的亚铁是以什么形式存在?离子?请稍微解释下.配离子是由一个金属阳离子和一定数目的中性分子或阴离子以配位键结合而成的复杂离子。配离子和带相反电荷的离子组成的化合 大雁与鹅的区别? 若有足够的氧气能不能让宇宙充满氧气? 红薯是热性的吗 亚磷酸二甲酯能用强碱分解吗?碱解后的产物是什么?请问强碱分解的具体条件是什么?产物是磷酸还是亚磷酸? 碳酸轻钠的用途 红薯属于温性的还是寒性的 雁鹅是鹅吗? 配网分段开关和联络开关的作用有什么区别?分段开关---主要作用分断和接通双电源供电回路有A、B两电源同配电柜两点上供电能短路防止两电源供电短路同时也防止回路断电另路投入时造成 请问"地瓜"是属寒性的还是温性的啊? 在同样水中加入一小勺盐和糖,再放入冰箱内不久,再拿出来,什么更容易溶于水? 请问母联开关和联络开关有什么区别?在变电所中常提到的 母联刀闸,联络刀闸.各指什么,有什么区别吗?另外电压互感器是“并联”还是“串联”在线路中,最好能有个图帮着说明. 如何去除塑料上的字 希腊梭伦改革后,公民是指什么,平民是指哪些 人类祖先怎样躲避野兽攻击?科学课要求,回答好的我加给他20分o()^))o唉 碳酸亚铁如何缓慢变为四氧化三铁或氧化铁或氧化亚铁?碳酸亚铁能溶于酸,是什么酸?其的酸溶液,加入什么能缓慢在空气中变为四氧化三铁或氧化铁或氧化亚铁? 利比亚运钞车遭抢 劫匪抢走总计数千万英国广播公司被指诽谤英皇室哈里王子吸日本孤独人群增多朋友租赁登场 每小时澳民众海外旅游担忧多 三成以上担心厕艺术家将住“蛋壳屋”内 旨在警示气候埃及一运动员因支持穆尔西而被剥夺比赛美国纽约城市马拉松将开赛 安全预算比美情报委员会主席:白宫已承诺停止监听男子喝红牛后死于心脏病 家人索赔85美国纽约城市马拉松将开赛 安全预算比埃及一运动员因支持穆尔西而被剥夺比赛韩媒:中国人在韩免税店消费额首超过韩韩媒:中国人在韩免税店消费额首超过韩美情报委员会主席:白宫已承诺停止监听日本称中国军机连续3天飞越宫古海峡实美一男子喝红牛饮料后死于心脏病 家人艺术家将住“蛋壳屋”内 旨在警示气候利比亚运钞车遭抢 劫匪抢走总计数千万男子将中国瓷器当垃圾尘封20年 拍出奥巴马以“不知情”回应窃听风波 政客美国军火巨头创新型侦察工具 可安放于三名保安冲上前 堵住抢劫男子三鹿“遗痛”理应时时翻检大学生西安就业无房可买一套房记者体验发现确实有漏洞西安市人民体育场将变身市民健身场所民警办理户口终身负责130个孩子遇上学难题高考生凭准考证免费参加林书豪称不会模仿科比银监会:三家民营银行获批批筹建神比分47:0 这还是足球比赛吗沙海盛夏2014阿拉善沙漠挑战赛激情中国获2015男女篮亚锦赛举办权人社部回应社保基金亏损投资收益相对稳空难催热航空意外险业内称按年投保更划20万元在海南安个家陕西卫视节目受追捧省运会羽毛球赛闭幕 成都狂揽10金民营银行获批存款保险不能再拖甘孜州得荣县一酒店发现重大火灾隐患“黑心”橄榄油销往成都
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘