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

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

Android版Chrome 27浏览器正式上架 机器人——数据中心的新“网管” George Chu:在雅虎打造真正的工程师文化 2013,303+家中国云计算企业的“生态系统”之梦! 高访问量Web应用跨云端迁移的原因:权限和易用性 Web应用开发者福音 Chrome 28新增丰富通知中心功能 帷千兰旭:推广渠道鱼龙混杂,开发者请小心 关于IE 10 你应该知道的6件事 Spring Framework 4.0M1发布,支持JDK 8、Java EE 7 “渣打科营编程马拉松赛”正式启动 官网同时上线 Android应该支持OpenCL的十大理由 传谷歌考虑和Facebook竞购众包地图Waze 谷歌工程师再次公布Windows漏洞 并称微软很难合作 Glassdoor评前景最令员工乐观的十大科技公司 华为上榜 下一代Android深度前瞻 第18级API功能揭秘 Web开发者不容错过的20段CSS代码 8大核心要点:我们能用HTML5 Canvas做什么? 移动周报:直接拿来用!最火的Android开源项目 前MySQL CEO:云将重新定义开发者的每一件事 CIO必知六件事,至少必须想到的! PPT集萃(四):来自五位中外专家分享的虚拟化和云存储实践 Jolla和Sailfish OS,那些你应该知道的事儿 不仅保值还能升值:过时的苹果电脑创下67.1万美元售价 三十天完成跨平台办公套件Joeffice的开发 jQuery 1.10.0和2.0.1同时发布 软件初创公司招投的九个必备技巧 BYOD浪潮即将来袭 六大年轻杀手重塑企业软件 灵活运用AppFlood:提高APP eCPM的10个技巧 事半功倍:你应该知道的HTML5五大特性 创建API监视器的五大技巧 流量激增15倍+ 乐蜂网桃花节大促背后的技术事 分页处理的问题(在线等待) 关于自画菜单的问题,请高手指点 新手请教,关于tomcat配置的问题 关于jar包中使用URLConnection的问题 1.在程序中用static final与用static或不加上这些标志的具体区别是什么? 2.工程建库 怎么样才能去掉字符串中的双引号呢? 关于在J2EE项目中客户端打印的问题,急!!!! SQL Server与Oracle的转换 一个VBA控制office问题 关于用纯asp代码实现文件上传的问题! JComboBox的下拉列表怎么让它显示出来? 除非我把那个控件拉的很难看它才能像ComboBox一样工作但是那样大小是原来的n倍 高分求救~~WIN98的问题 高分求救~~WIN98的问题 Grid中的數據源刷新問題?? 在c#中如何开辟一块指定的内存空间? 聊天室的隐藏框架怎样做啊,我把框架尺寸设成0了,鼠标还是不停的闪/ 出什么事情了? listView怎么加入打印功能? 如果你拽的话:50分全是你的啦。帮我看看这条sql语句错在那里? Excelsior JET Professional Edition 谁有这个版本啊,破解的??在线等待…… 我的程序编译通过了,为什么测试通不过??代码在下面,大家看看是关于数据库和哈希表的 如何用DELPHI制作卸载程序 为什么我在C++ Builder 中用cgi作webservice访问数据库出错? 关于dinstinct的问题(100分!) 怎样将GIF文件包含到资源文件及如何调用? 如何在程序中屏蔽掉系统热健:如 ctrl+alt+del, alt+tab等等 怎样在子线程的运行过程中获得主窗口的指针? 50分征解50分征解!!!!! 如何在listbox中显示多列,并加上标题(每一列都有自己的标题) 现有一DBF数据库,如何把它倒到SQL里? 没分了,仅此10分求日期的正则表达式,希望帮忙 PPT 文件变得好大 oracle8.1.5中transaction slot的问题 怎样在linux下设置有管理员权限的用户!在线等待!!!! 出学者界面实做---STEP 4 小小的堆栈问题 可不可以在一个视图中加入不同数据库的数据? 为什么我在C++ Builder 中用cgi作webservice访问数据库出错? 求JPAD PRO的破解 PPT 文件里插入Organization Chat 请教static问题 我要离开现在的公司了,去寻求新的发展...... 请教各位高人,一个循环定义问题 Win98下为什么拦截不到从另一线程发过来的自定义消息 public class myclass 与 class myclass 一样吗? dbgrid 中,titleclick事件,如何判断选中的是 哪个字段 呢? 很简单 ADOtable 不支持 FindKey, 请教: 应该如何解决记录定位? 火急请教个“重新验证组织单元”问题! 想做一个报表但设置DataEnvironment的连接失败,不知为何错? 请教!linux下将.h和.c文件编译成动态连接库!!! 你真的懂SQL语句的编写吗?快来,我给你分 重载与模板的问题 四大名著的作者是谁 是《鹿和狼的故事》 《晒晒我的鹿晗》作文500~600 驴什么马什么 鹿和狼的故事中的 关于exo鹿晗的作文我是一名标准的鹿饭,想要写一篇关于鹿晗的作文,开始不知道怎么写,能给我一篇吗?字数600以上 马骡子与驴骡子的区别在哪? 《行道树》 《第一次真好》课文 作者简介初一课文课文 当一个男孩(或女孩)只称呼你名字中的一个字时,说明什么呢?例如,只称呼其姓,不称呼其全名等大家说说自己的看法请大家积极参与回答 <忆读书>阅读分析答案 行道树和第一次真好课文字词解释和问题今天就要,一下就是行道树字词:雏形:________________________低回:________________________珍重:________________________红灯绿酒:____________________繁炫急管:________________ 三字经的读后感 学校买来排球和足球共64个,从中借出排球个数的四分之一和足球的三分之一后,还剩下46个.买来排球和足球各多少个? 《行道树》 《第一次真好》课文 作品介绍 那一本读物上有关于鹿晗的文章? 2013年最美孝心少年的观后感 禁止抄袭! 只有一个地球哪里什么说明方法 《三字经》读后感(作文) 作文 我在阳光下成长 600字 以上 要求 写人 写小孩子 13岁的 要编的 本人 急 忆读书的阅读答案 我的中国梦诗歌?我是一位初中生,请帮我修改一下我的诗歌我是一株小草,在您甜美乳汁下萌芽,在您温暖阳光下茁壮.前进曙光熠熠生辉,青春之梦火热炽烈,您——祖国,是否发现,发现您广阔胸 中央一台最美孝心少年读后感 2013年11月8日 怎么样背课文,背英语文章又快又好记,还不容易忘. 一个男的叫女的名字的最后一个字并且加了“儿” 美容新术 短文两篇(行道树)(第一次真好)分别用( ) 和( )的写法揭示主旨 求范文:《方仲永巧遇吕蒙》吕蒙遇到方仲永会对他说什么?会怎样劝他读书?(提示:自从孙权劝吕蒙读书后,吕蒙变得很聪明.方仲永天生聪明,但他不接受后天教育,最后变成了一个很普通的 六年级第14课鹿和狼的故事的解词5个 故圣人耐以天下为一家,以中国为一人者,非意之也,必知其情,辟于其义,明与其礼,达于其患,然后能为之 当吕蒙遇到方仲永他们会说什么?300字左右 14课鹿和狼的故事其中维护什么(词语搭配) 故圣人耐以天下为一家.出自哪里? 苏教版四年级下册语文练习与测试单元练习五 14课鹿和狼的故事的说明方法 以共筑中国梦为题材的诗歌、文章,5分钟要可以读完,最好有视频. 有关于我的中国梦的诗歌800字左右 马、骡子、驴的区别是什么? 我的中国梦的短诗最近举行一个主题是“我的中国梦”的书法比赛 我要参加 写一幅软笔书法作品,内容扣紧主题,20字左右 关于鹿晗的作文 在一幅图上,已知学校距离小明家 2cm , 商场距离小明家 2.5cm , 停车场距离小明家 4cm .若学校距离小明家 400m , 那么商场和停车场分别距离小明家多少 m ? 小张和小李两人分别从甲乙两地同时由西向东而行,小张骑摩托车从甲地出发,速度是45千米/时,小李骑自行车从乙地出发,速度是15千米/时,2小时后小张追上了小李.求甲乙两地的距离用方程,还 关于中国梦的诗歌 小明从家到学校,中途遇到小燕,这时已行的路程比全程的60%少180m剩下的距离比全程的二分之一多60m小明家到学校有多少m 《吕蒙巧遇方仲永》这篇文章怎么写? 你爱鹿晗吗?爱鹿晗就留下你的理由!长的很萌,从不做作,做真实的自己,只会照顾别人,不会照顾自己的小傻瓜.我一直爱你,鹿晗♥ 明明从家到学校,已经走的路程是未走路程的三又二分之一倍,已经走的路程比未走的路程多百分之几? 三字经读后感,快急用!大概1000字左右吧!12.16要交! 写作文 鹿晗关于鹿晗的作文题目叫《风雨中绽放》600字以上 小明从家到学校行了全程的百分之七十五,正好到广场.到校原路返回,行了全长的五分之一时,离广场还有400米,家离学校多远?一条路,已修的与未修的比是1比4,修了60千米后,已修的和未修的比是 吕蒙巧遇方仲永kkkkkkkkkkkkkkkkkkkkkkk 鹿晗英文怎么写 作文感悟自然600字初一的,话题作文不要太深,要东北那边的,500字也行。着急用, 有个宫女一开始是皇后身边的宫女,皇后是个小孩,还是皇上的外甥女,后来这个宫女当了皇后,请问下这本书的名 三字经 读后感用三字经中的话 来写一篇400字的文章 提纲就行了复制就免了! 好多书里都出现了宫娥一词到底是什么意思啊 你在皇后娘娘身边做宫女,有一天,皇上,看中了你,你会怎么办? 假如方仲永巧遇吕蒙后的对话 以“家中的中秋节”为话题的初三500字作文 鹿和狼的故事是真实的的故事. 求写人的作文写鹿晗的,大约五六百字.要写人的关于鹿晗的,不要有什么爱不爱的,毕竟是学生交给老师不好.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘