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

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")

《近匠》易快报:以报销做企业消费场景下的Slack 纷享销客D轮融资1亿美金,启动开放平台战略! 专访4秒源码商城CTO陈杰:扎根互联网的“不安的心” iOS UIView动画实践(一):揭开Animation的神秘面纱 【前端人生】Teambition前端工程师陈涌:非计算机专业,依托社区不断成长壮大 iOS UIView动画实践(二):Spring Animation与人机交互 基因组与数据整合:DNA应用开发正在临近 2015 PHP框架调查结果出炉,Laravel最受欢迎! 【CTO会员专访】KEEN创始人兼CEO王琦:在GeekPwn,遇见一极棒的安全人才 创业公司都在使用的3款Python库 深入理解Objective-C的Runtime机制 你不知的Docker 创办人兼CTO游走美法的浪漫狂放 《近匠》环信CEO刘俊彦:移动客服的未来化场景 iOS UIView动画实践(三):Transition Animation 【CTO讲堂】无社交,不App!——为App加载强大的通讯社交引擎 【探秘ES6】系列专栏(七):箭头函数 【前端框架】Backbone.js在大型单页面应用中的应用实践 【探秘ES6】系列专栏(六):解构赋值 《近匠》TestBird,专注的手游自动化云测试平台 【探秘ES6】系列专栏(八):JS的第七种基本类型Symbols 专访李林锋:我与Netty那些不得不说的事 手把手教学:巧用Core Data和RubyMotion开发iOS应用 《近匠》琥珀天气,精细化打磨征服Google Play 【CTO讲堂】人工智能到底能为我们带来什么? Linksys再度回归中国市场,主推智能路由 Windows 10:全平台战舰与移动化破冰——微软(中国)操作系统工程院院长谢育涛专访 专访友盟CEO叶谦:深挖海量终端用户数据的价值 七牛资深前端工程师马逸清:前端测试探索实践 实战iOS 9:开发者必须掌握的三种搜索API 腾讯Bugly干货分享:浅谈Swift在实际项目中的应用 【前端人生】ThoughtWorks黄峰达:利用横向扩展方式,快速学习前端新框架 ? 请教大虾们,如何实现窗口中的控件随着窗口的大小变化而变化? 固定IP间的互访问题 我如何高亮显示list1中的某一行? 有个C++例题有些看不懂 不懂.net,想学,但迷肓!!!请在职的程序员指点一下。 程序都隐藏了,加速键还起作用的程序如何做? 高分求购方案,急! 怎样去掉TTreeView中自动生产的滚动条 驳“学习JAVA钱途无量”的说法 在线等:如何防止C#应用程序第二个实例被启动? 请问谁有ActiveSkinV4.3(或者4V.2)的破解版?50分相赠~! 新手请教 用RMAN备份数据到磁带出错!!解决问题一定给分!!江湖救急啊!! 搞不明白的vc错误,气死我了,请高手指点。。。 上不了网 动态调用DLL是出现的问题,棘手中,待解决。 我要对Spreadsheet的数据进行排序,用javascript怎么写 200分求<构建Web解决方案---应用ASP.NET和ADO.NET>电子书,不是只有源码的,谢谢 用DECS连接AS/400数据库问题 GD网站大家一起随便贴 寻人启事:我有一个侄子,网名叫穿越沦陷的爱,经常跑到这个版块来玩,谁看见了他,让他来找我,急事! 请教高手!!利用二进制文件转换成文本文件进行加密,实现理论是什么? IP包过滤程序问题!!!请大虾帮忙!! sql loader里面不支持FILLER 双系统中,如何删除WIN2000?(98+2000) 实现了第一个愿望... vc和vc.net有什么区别,学了vc有必要学vc.net吗??? 急,数据库表的问题!!! 为什么在Run ActivX程序时出现问题? DLL窗体关闭问题 setfont设置Dialog字体无效,搞不明白,大侠指点 为什么我的Web应用程序项目启动不了,总是出现错误!!! 100分求教jtable问题??? 菜鸟送分问题,请哪位大侠讲讲Inte1.ResponseCode和Inte1.ResponseInfo 声音变了!怎么办啊??? 100分 请问怎么做“索引”? make求救 用ant编译pet store 时,出现问题,提示信息见内文?请帮忙。。。高分酬谢。 三个三角了 开心ing 散分 tmd,上了vsnet2003贼船了。原来vc6的都不好用了 找在linux下免费gui?? 打开窗口获取原窗口信息的问题 Cbuilder安装问题,急! HelloWorld大全[接龙] 我要写一个程序在前台不需要运行后台运行可以:就像平时邮件服务品一样在前台不需要运行,而后台是提供服务的,要怎样来实现 临时表问题 多媒体教学系统开发 jbuilder中关于类的import问题? 有关远程控制的,例如抓屏,限制功能键,限制alt+f4,等等,请去http://hedaofeng.jahee.com 如何取得IE地址栏的输入信息? 急求一段ASP与SQLserver2000处理代码! There is plenty of grumbling about how social media这句话怎么翻?how 的用法? 英语翻译请特别注意 transformational 的意思.翻译完后,请告诉我为什么这样翻译. Social media drives most of the world’s web traffic,do you need your own social platform?翻译 从盐田到东海丽景化园车站怎么做车啊 生产者(草,植物)算不算生物写作业遇到难题了... 米算生物吗 all you want歌词的中文意思 dido的 一棵草有没有器官?如果有是什么? 翠翠如何与傩送相遇 说一个人真阴,是什么意思? SURVIVAL GUIDE FOR LIFE怎么样 法国阿尔萨斯华人联谊会接受国侨办赠送黎巴嫩北部发生枪击事件造成10人受伤特大生产销售假药告破 上万支假狂犬疫奥地利媒体称奥也遭到美国情报机构监听中国和伊朗签署互设文化中心谅解备忘录马来西亚外长:监听破坏盟友关系马来西亚外长:监听破坏盟友关系德国与巴西共同向联合国提交有关反监控白岩松评伤医事件频发:欠账改革让医生五角大楼否认美日制定“钓鱼岛共同防卫埃及宣布14日起解除紧急状态和宵禁“一诊”ing,你还在“盲目”么?兰州市自来水异味已逐渐消除离开还是留下,打拼路上的选择高校摆摊违规售书 每本只卖10元为救母亲 17岁儿子辍学打工挣钱今年我省 实施农村残疾人危房改造2万赫内斯逃税案将开庭 拜仁主席或面临监研究离子液体润滑剂兰化所取得新进展未经消防验收就开业舟曲一加气站领罚单通信类投诉逐年递增 消协提醒应及时维去年:查办 8 名省部级贪官 今年:煌煌箭芒重生作家网游之手语魔法师异世宅男魔法师能力起源风流杀神玄寒鼎域异能高手圣狱我欲成神转世尊者西双版纳旅游北海旅游双廊旅游崇明岛旅游洛阳旅游亚龙湾旅游喀纳斯旅游扬州旅游青海湖旅游涠洲岛旅游敦煌旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘