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

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

Delphi中对目录拷贝、删除和搬移的操作 Delphi中任务栏状态区的编程 Delphi中如何处理2000年问题 Delphi中如何实现系统权限的设置 Delphi中异常的截获及其个性化处理 Delphi自定义消息应用一例 Delphi5中资源文件的创建和使用 Delphi的Bug-Tthread Suspend方法 Email服务器的简单实现-Delphi资料 Hook的制作-Delphi资料 INI文件的应用-Delphi资料 NT中的关闭计算机,重新登陆的实现-Delphi资料 Windows 系统方面-Delphi资料 Windows外壳扩展编程-Delphi资料 避免二次运行-Delphi资料 编程实现文件关联-Delphi资料 编写定制的文件流实现文件读写加密-Delphi资料 采用多线程进行数据采集-Delphi资料 产生临时文件名-Delphi资料 程序不出现在任务栏-Delphi资料 程序缩小为任务条右下角的小图标-Delphi资料 得到 Windows 用户名和序列号-Delphi资料 得到windows临时路径-Delphi资料 得到Windows用户名和序列号-Delphi资料 得到计算机的名字和ip-Delphi资料 得到内存的 Status-Delphi资料 得到上一个激活的组件-Delphi资料 得到在内存中运行的所有应用程序的handle-Delphi资料 调用控制面板项目大全-Delphi资料 动态改变当前显示模式-Delphi资料 动态改变屏幕分辨率-Delphi资料 P:Pointer? 数据库连接问题? 如何在菜单中显示图片?谢谢! 在线等待!急,tomcat中文问题 工作很非常特别烦心,散分 如何监控网络中的打印 请问在COMCAT中如何更改根目录的路径 java 中的double类型,在Oracle数据库中应该对应的是什么类型? 怎样作才能不让用户随意更改系统时间和日期? 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? 为什么别人总抄我的作业,却不给我抄 谁帮我写英语作文?小弟我重谢、写的好积分再加!以“Why a sense of humor is important”为题,写一篇100词左右的短文.提示如下:1.幽默能体现个性.2.幽默有益于身心健康.3.幽默能融洽与他人的关系. 感动中国人物的故事 作文 550字 谁知道抄作业的速度和做作业的速度是几倍关系? 谁能帮我检查这篇英语作文啊,如果无错小弟必有重谢The Commander Fort Henry of the FortHenry was very angrily,he accuse Ashley is accomplice.Ashley was Imprisoned for 8hour.Ashleyemploy John for his lawye.Henry Dundas employChief J 中国的三大丘陵有那些 成了写成比喻句 本人考托福 今天写了一篇作文 大神看看能得几分,哪里可以改进的?Many teachers assign homework to students every day.Do you think daily homework is necessary for students?Use specific reasons and details to support your answer. 有什么适合女生唱的英文歌?最好是有创意的,比如cups那类的~`星期一就要在英语课上表演了.就是课前.不要太长,好听一点 自动扶梯每个台阶的轮子是怎样的? 小明和小强原有图画纸之比是4:3,小明有买来15张,小强用掉了8张,现有的图画纸之比是5:2,则原来他们各有多少张? 李华读一本书,第一天读了全书的1/5,第二天读了全书的1/3,这是时还剩350页 ,这本书一共有多少页? 如何解决家长和孩子之间的矛盾冲突? 假如给我三天光明作者是谁? 以“守候”为话题的作文怎么写?只需提纲!提纲格式参照问题补充一.标题二.中心论点三.开头(必须是一整段文字,不能概括)四.主体.1.分论点 论据 说理方式 2.分论点 论据 说理方式 3.分论 你和老师之间发生过矛盾冲突吗?事情是怎样的?事情是怎样解决的? 假如给我三天光明作者 超市买的瓷茶杯怎么检测是否含有有毒物质?如何消毒? 如何拒绝别人借作业 《反对邪教,崇尚科学》征文五一回校要交 中国的三大平原 怎样借别人抄作业别人会出高价 急需《崇尚科学 反对邪教》的征文, 杯子怎样消毒 已知角α,β的顶点在坐标原点,始边与x轴的正半轴重合,α,β∈(0,π),角β的终边与单位圆交点的横坐标是-1知角α,β的顶点在坐标原点,始边与x轴的正半轴重合,α,β∈(0,π),角β的终边与单位圆交点 三角方程(2cosx-1)(2sinx+3)=0的解集为 新买的白瓷杯子怎么消毒还有 可以盛沸水吗 用不用每次盛沸水的时候先温一温杯子? 已知角a的顶点与原点重合,始边与x轴的正半轴重合,终边与单位圆的交点p在直线5x+5y-1=0上则sin2a=? 三角方程2sinx+1=0的解集是 目前,普遍使用什么消毒茶杯?A.煮沸 B.高压蒸汽 C.红外线 D.速消净 直角坐标系中角α的顶点是原点,始边与x轴正半轴重合,终边交单位圆与点A,α∈(π/6,π/2).将角α的终边按逆时针旋转交单位圆与B,记A(X1,y1)),B(x2,y2).(1)若x1=1/3,求x2=?.(2)分别过A,B作x轴的垂线垂足 三角方程2sinx=-1的解集是?三角方程,急 关于初三离别的作文 小红13分钟打了996个字 小明12分钟打了936鸽子个字,怎么列式 求三角方程2sinx+1=0在[0,2π]范围内的解集 作文提纲,根据以下一段话,列作文提纲.“华盛顿走上大街,挥动礼帽,向群众致意.人们依依难舍,不愿离去,跟随他的马车一直走到他的寓所门前,这是任何语言也难以描绘的情景,这是任何人为的 小明和小红以同样的速度打字,小明打了2分钟,小红打了5分钟,小红比小明多打了33个字,小红和小明每分钟各能打多少字? 已知x,y,z是一个三角形的三个内角,求三元方程2cosx+2cosy+2cosz=3的所有解 总有一种期待的作文提纲 一个朋友有人找我抄作业,我又不好拒绝,怎么办?不是一次了,几乎每天都打电话抄我的,我又不好拒绝,毕竟是朋友.但是她没完没了,而且有时我还因为告诉她作业而耽误时间写作业,结果被我爸 位于我国地势第二级阶梯上的地形区是 A阴山山脉,吐鲁番盆地 B武夷山山脉,四川盆地 求作文提纲——等待不如行动以 “等待不如行动” 为中心,列出三个分论点以及论证事例.最好是用辩证性思维去论证……EG:标题XXX分论点:1XXX(用XX、XX事例←一两句话概述)……可以多送 小明和小红以同样的速度打字.小明打了2分钟,小红打了5分钟,小红比小明多打33个字.小红和小明每分钟各能打多少个字? 描写泰山的语句 比较优美的哲理性散文有哪些?要朱自清的.(全文) 如何婉转拒绝被别人抄作业 含有昆虫的成语 甲乙两队修一条路,甲队独自修10天完成,乙队独自修15天完成.之后他们两队一起修,乙队因事请了几天假,之后两队一共用了8天,乙队请了几天假. 一个直圆锥和一个直圆柱底面积和高都相等,已知直圆锥的底面周长是18.84厘米,高是21厘米.求直圆柱的体积是多少立方厘米快快快快快快快快快 崇尚科学,反对邪教 征文 我国三大平原是哪些? 小明和李强原有的画纸张数之比是4:3,后来,他们图画纸之比是5:2,原来两个各有多少张图画纸?是不是少了条件? 老师有100张面值50元和20元的人民币,一共有4100元,50元和20元的人民币各有多少张? 春是一篇 散文?朱自清是现代著名 ,,,. 小明和小强原有的图画纸之比是4:3小明又买来14张,现有的图画纸之比是5:2,问原来两人各有多少张图画纸?不要用方程 中国的三大平原是什么?主要山脉和主要丘陵呢? 我国的三大平原 如何让别人不抄你的作业?我是班里的英语课代表,英语成绩又名列前茅,就经常有人来问问题,我也告诉他们,但有一个人,经常找我要英语作业,我说没写完,他仍然找我要,没办法,我心肠软,没有 小明和小强原有图画纸张数的比是4:3,小明又买来35张,现在两人的张数比是5:2,原来两人各有多少张图画纸?急啊 算术法 中国三大丘陵包括哪些? 安倍称担心中国加强军备 日本应领导亚安倍称担心中国加强军备 日本应领导亚伊朗处死16名反政府组织囚犯 回应边奥巴马参观学校旁听课程 揶揄国会议员义乌26日清晨发生爆炸凶杀案 已有一安倍称担心中国加强军备 日本应领导亚墨糖果厂爆炸现场搜救结束确认两人遇难浙江首次采用新评价体系对1300余所我军少将:中国发展军力绝不针对日本伊朗东南部武装冲突致17名边防人员死国航增加三条国际航线香港影片《狂舞派》纽约放映获好评官员强奸幼女案双方民事和解 受害人获卡梅伦成英国将不改变与美国的情报合作秘鲁最高法院就藤森在家服刑举行听证会卡梅伦称英国将不改变与美国情报合作关秘鲁最高法院就藤森在家服刑举行听证会卡梅伦成英国将不改变与美国的情报合作向世界传播浙江声音 港澳新闻媒体聚焦浙江义乌一集装箱起火 消防成功排除唐家璇:中日关系深层次原因在于彼此认P2P洗牌一触即发 信息公开护航互联比大疆还好玩!这个超便携折叠无人机也从一件事看出,喵星人和汪星人教育孩子嘟嘟科技4月23日开始众筹 产品最快“一带一路”的棋局观不许单身!我们买单请你国庆旅游交友!牛市中依然赚不到钱的几类人 有你吗?先收购、后买单的中国特色并购史上最隐晦的创意广告!你能猜出几个?这些高跟鞋,你驾驭得了吗?一周军情:给中国重型直升机找爹?筒子们,忽然发现自己想象力很差!跟着新闻联播炒股票(周三)最炫的产品设计,没有之一美浴沉思:洗澡时的生活哲学!愉收藏 | 时文朝新年寄语:看银联面【充电时间】人永远是要学习的,死的时【财女说】女人理财吧,包包自己买!央视最成功的广告,你沉默了多久?记者转型实录:金融PR原来也很苦逼愉见财经 | 支付清算开放前夜的市场
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘