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

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

定价99元首发1万台 360安全路由器启动预约 AMD新产品线曝光 首次实现X86与ARM针脚融合 IT界最难以替代的9个角色 《近匠》英特尔® XDK:从开发、测试到部署,一站式HTML5开发工具 手游云测工具TestBird:测试走入垂直细分领域 阿里巴巴赴美IPO的种种及马云内部邮件全文 盘点EMC World 2014三大看点 2014年Q1:智能手机总销量下滑,WP同比反增119% 着眼无人驾驶技术 英特尔投资日本ZMP公司 移动云服务UCloud快速扩张 成立北京分公司 精准推送 个推推出2.0产品“Smart Push” 从张小龙的七大价值观说开去 2014高德LBS应用大赛正式启动 助力打造生态圈 专访永洪科技CEO何春涛:管理者的炼成及国内大数据公司的挑战 R语言如何发展?商业支持或许可行 专访InMobi CEO Naveen Tewari:Banner广告已经OUT 效力苹果18年的资深高管Katie Cotton将退休 主打“全、新、独、准”,华为推出游戏中心平台 阿里云计算出海挑战亚马逊 首站香港及东南亚 TIOBE 2014年5月编程语言排行榜:Adobe ActionScript挤进Top20 秒杀iPad Mini?微软或将下月发布Surface Mini 大道手游:详解应用内购买的定价趋势与技巧 与英特尔软硬合作,Cloudera将在中国建立业务机构 准备迎接第一个量子计算软件公司吧! 搜狗搜索发布新LOGO和移动App 正全面入驻腾讯各条产品线 做好扁平化设计-视觉篇 关于敏捷研发的跨界反思 《近匠》雨血,一个“独立游戏人”的反思 一周消息树: 阿里巴巴赴美IPO的种种及马云内部邮件全文 一周热点:准备迎接第一个量子计算软件公司吧! 【云先锋】多备份:云端数据物流平台为企业提供云备份服务 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone java支持byte[] a = String.getBytes("iso-8859-1");转换吗? c语言中关于对windows命令调用的语法、命令及其格式。 怎么样捕捉数据库连接出错的信息?? 在SQL语句中,如何获得一汉字字段的字节长度,而不是字符长度?如“测试”返回4,不是2 如何建树 winsock.dll提供的都是什么函数?如果它提供的是winsockAPI,那么winsock32。lib提供的又是些什么?它们重复吗? FormatDateTime这个函数的日期间的字符不支持汉字,怎么解决? 关于用JAVA生成GIF的问题?(16M的GIF,256的我已经知道了) 如何在ACCESS李使用SQL? 梦天请进,谢谢! 能不能将对象序列化后存到数据库再取出还原?有没有例子? 分屏的已个视要做成对话框,请指教,顺便告诉我如何给分,只能给这么多 sorry,梦天进来,thanks!! 急!请问怎么在java类里写编译另一个类的语句?? 如何在ACCESS里使用SQL? 谁有BO2K源代码,我愿高分求购.不为别的目的,只为深入学习系统编程 如何实现 调用IE打开一个页面,并且多次调用,只打开一个窗口? 帮我点一下我就给分! 一个简单问题:我在给Access数据表中增加记录,其中一字段是CTime类型,但老是非法操作。调试后错误出现是:return (GetLocalTm(NULL)->tm_year) + 1900 不知如何解决。请各位大师救救我把。 动态的保存datawindow object的问题 怎么给一个(tab control)属性单 的标题栏上给添加一个背景位图呢! 千山一刀之忍者神龟进来拿分!!! 怎样得到年、月、日的值 那里有C++ Primer这本书 十万火急!!!怎么在oracle+developer2k中取得本机ip.——高分奉上!! 如何判断输入的信息是中文? dll调用找不到程序入口?? 怎么用win2000来制作一张可以代光盘启动的启动盘 我怎么用一个ALT 封装一个 ToolBar Control的 ActiveX的控件! 谁有什么好的例子吗! 给个意见,是联通好呢?还是移动好? Paramstr如何正确处理带空格的参数? 我在表中插入记录可流览时却见不到新插入的记录只有关闭程序然后重新运行才能看见新插入的记录. 用awt控件制作的下拉菜单,为什么在IE环境下无法正常显示? 请CommerceServer(商业秘密[::路德一族::])luojx(大鱼儿)koyia(koyia) 三位高手再去谁能单独解决~谁能独享100分!绝不食言(再详细点!)) 怎样让程序只运行一次? 多项式除以多项式的法则,如:(2a^2*b^2+3ab^3)/(4a^2*b^5+2ab) 只含字母y的多项式最多有几项 谁帮我写一段程序啊!用JS求1-100之间的偶数之和的、、 正数的相反数是负数,这句话用符号表示是?急!在线等! 0.5是有几个千分之一组成的 程序填空:求100~200之间的偶数之和(存放在S中)的程序CLEARS=________X=100DO WHILE _________IF ___________________ENDIF X=_________ENDDO明天就考试了! 相反数用什么符号表示 已知A有12个约数,9A有24个约数,15A有36个约数,5A有几个约数 如图,一个梯形的面积是4/3平方米,阴影部分的面积是多少平方米上底5米下底8米的梯形 相反数怎么用符号表示总不会让我写字- -bu shi你们理解错了,比如:7的相反数是-7,,我知道是负号 已知A有12个约数,9A有24个约数,15A有36个约数今天我要交作业的!少写了,问A是几。 梯形的面积是25平方米 其他条件如图所示(上底是4米、下底是6米)求阴影部分的面积.一只三角形的底是6米 高未知 三角形的高就是梯形的高 想办法求出梯形的高 下列说法正确的是( )A.一个数的相反数是负数或0 B.符号不同的两个数互为相反数 C.非负数的相反数是非正数. D.相反数等于本身的数不止数0一个 只含有字母y的五次多项式合并后最多有 项,最少有 项 问:只含字母x的五次多项式,最多有()项,最少有()项. 下列说法哪个正确1符号不同的俩个数互为相反数2整数的相反数是分数3非负数的相反数是非正数.还有一个4一个数的相反数一定是负数 试至少写两个只含有字母x、y的多项式,且满足下列条件:(1)六次三项式;(2)每一项的系数均为1或-1;(3)不含常数项;(4)每一项必须同时含字母x、y,但不能含有其他字母. 四级要怎么提高这次四级我听力147 阅读160 综合39 写作63 总分409,差一点点!我知道写作很差 那要怎么重点复习翻译和作文呢?作文是不是字迹也很重要?听力也不是很好,请帮我综合分析下我要 多项式乘多项式法则 如图阴影部分的面积是96平方米,那么梯形的面积是多少平方米? 关于英语四级,请看一下如何才能在提高听力142 阅读127 综合38 写作98总分405 这是2013年6月份的成绩,下半年的题型还会改,请帮忙参谋参谋,我想下半年就过了.我想了解那部分应该重点加强以及 多项式乘多项式法则的字母表达式 在首地址为DATA的字数组中,存放了100H个16位补码数,试编写一程序,求出它们的平均数,放在AX寄存器中,并求出数组中有多少个数小于此平均值勤,将结果放在BX寄存器中 0--100之间的偶数之和是多少? 请问该如何设置windows的货币符号和数字格式? 为什么每段开头都要有mov ax,data mov ds,ax两句,不是有assume定义过段了吗可能是我表述得不够清晰,希望有善解人意的哥哥姐姐详细帮我解答下. 0到100的实数中有哪些是偶数0到100中那些事偶数=】请教 在excel表中怎样将数据设置为货币格式,货币符号,小数点后位为1 1.测试AX寄存器中数据的符号位 2.将16位立即数2040H与地址为DATA存储单元中的数比较 如图,已知阴影部分的面积是73.6平方分米.求梯形的面积.梯形是直角梯形,上底3.2分米,上底右边的边是直角边,边长未知,左边边长未知,下底6.8分米,梯形内花了一条从左上角向右下角直线,先下 1.一个由8个十,3个十分之一,8个千分之一组成,这个数写作( ) 1.游泳馆向一个长50米、宽25米、深1.6米的空游泳池里注水.经过0.6小时水深达0.2米,这样的话,几小时能把游泳池注满?(用比例知 一个数由5个十、3个一、7个千分之一组成的,这个数读作(),把它精确到十分位是() 如图,阴影部分的面积是是6平方分米,求梯形的面积. 一个数是由10个一,5个十分之一和3个千分之一组成的,这个数写作( ),读作( )保留一位小数是( ),保留两位小数是( ). 一个关于字母x和y的多项式,除常项式外,其余各项的次数是2,这个多项式最多有几项?都是三呢?分别写出一 梯形的面积是45平方分米,高6分米.求图中阴影部分的面积. 10个一.4个十分之一,8个千分之一组成的数写作(),精确到百分位约是() 已知一个关于字母a,b的多项式,每项次数都是3,这个多项式最多有几项,试写出一个若ab满足la+bl+(b-1)的平方=0,求你写出的多项式的值 下面程序计算100以内正偶数之和,错在哪里?main(){int sum,i;for(i=100;i>=0;i--);if(i%2==00sum+=i;else sum=0;printf("和为:%d\n",sum);} 图中阴影部分的面积是48平方米,梯形的面积是多少平方米? 一个关于字母a,b的多项式,每项的次数都是3,这个多项式最多有几项?试写出一个符合要求的多项式. 那个英语四级阅读你是怎么提高的? X和Y皆为8位无符号二进制数,分别存在外部RAM的2000H和2001H 单元中,编写一能完成如下操作并把操作结果(设Z 一个关于字母X,Y,的多项式,每项的次数都是3.这个多项式最多有几项?写一个符合条件的多项式. 关于多项式恒等定理f(x) g(x)究竟表示什么~还有~x前面的系数究竟取什么啊~没有要求随便取得嚒~不好意思我初中的~没学过这个东西~、 多项式除以多项式的法则是什么?因为我是初一的,所以可不可以请各位讲得简单点啊!比如说,2abc+2ab^2c+c^2+c^2b/c+cb 片外RAM区从1000H单元开始存有100个单元字节无符号数,找出最大值并存入1100H单元 504有多少个约数? 汇编语言问题 判断BUF中的数是正数,负数,还是0,并分别统计它们的个数判断BUF中的数是正数,负数,还是0,并分别统计它们的个数DATA SEGMENTBUF DB 1,-1,-2,-3,-0 A DB 0B DB 0D DB 0N EQU 5DATA ENDSCODE SEGMENTASSUME (2/2),从20H单元开始有一无符号数据块,其长度在20H单元中,求出数据块中最大值,并存入21H单元 已知一个关于字母a,b的多项式,每项次数都是3,这个多项式最多有几项,试写出一个符合要求的多项式,若a,b 在BUFF开始的存储区中存放30个带符号数,试统计其正数,负数和零的个数.分别将个数放至A1,A2,A3单元我知道大体思路,就是具体的程序不会写. 一个数是由5个十,6个十分之一25个千分之一组成的这个数写成小数是( ),计数单位是( ),包一个数是由5个十,6个十分之一25个千分之一组成的这个数写成小数是( ),计数单位是( ),包含( )个这样的 504中有几个约数,其中有多少个是3的倍数急急急快开开开 面积为30平方米的大正方形的四个角都是面积为3平方米的小正方形,用计算器求阴影部分的正方形边长 编一程序:比较两个无符号数的大小.把大数存入MAX单元不是C语言,是汇编语言的。麻烦再看看帮忙 求5544有多少个不同的约数?这些约数的和是多少? 多项式除以多项式的法则 如图,阴影部分的面积是96平方米,那么梯形的面积是多少平方米? 三个连续偶数的和在100到200之间,这样的连续偶数有几组
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn