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

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

$.getIfModified(url, params, callback)-JQuery API $.getJSON(url, params, callback)-JQuery API $.getScript(url, callback)-JQuery API $.post(url, params, callback)-JQuery API ajaxComplete(callback)-JQuery API ajaxError(callback)-JQuery API ajaxSend(callback)-JQuery API ajaxStart(callback)-JQuery API ajaxStop(callback)-JQuery API ajaxSuccess(callback)-JQuery API load(url, params, callback)-JQuery API loadIfModified(url, params, callback)-JQuery API serialize()-JQuery API Accordion(settings)-JQuery API activate(index)-JQuery API button(hash)-JQuery API center()-JQuery API $.cookie(name)-JQuery API $.cookie(name, value, options)-JQuery API height()-JQuery API innerHeight()-JQuery API innerWidth()-JQuery API offset()-JQuery API outerHeight()-JQuery API outerWidth()-JQuery API scrollLeft()-JQuery API scrollTop()-JQuery API width()-JQuery API ajaxForm(object)-JQuery API ajaxSubmit(object)-JQuery API clearForm()-JQuery API 一条出错信息的意思??? ManagermentServer为什么启动不起来?? CList的RemoveAt()问题 爽!今天买了一个可无线上网的手提,散分! 本人用insertShile安裝制作軟件制作了vb6的一個setup文件包,直接用硬盤copy到其機子安裝是沒問題的,但是本人將該setup文件包刻錄到光盤 如何可以将windows 2000 server的C、D等盘的默认共享属性去除,可不可以将这个属性永久去除,因为选择“右击”-“共享”去除后,重启又出 如何让你的编译器生成汇编代码 怎么样把数据库里的某个字段读到ComboBox1里? 在MDI框架中,如何禁止View相互切换? 代码转换 谁能告诉我delphi6.0中的installshield怎样使 为什么我用Zend Encoder加密了一个php文件,速度比以前没加密慢了好多哦, 怎样让在运行时加载的控件总在最前面?? 代码转换 linux + mysql+ apache + php + jdk + jsdk 怎样让在运行时加载的控件总在最前面?? 代码转换 一个关于全局变量的访问问题。 263游戏大厅里的用户信息列表是怎么实现的?急问,多谢!! 也帮帮我吧!i'll be dead ! 263游戏大厅里的用户信息列表是怎么实现的?急问,多谢!! 关于窗体 如何去掉我的“计划任务”共享? linux + mysql + apache + php + jdk + jsdk 新手问各位大哥一个问题:我在机器上已经安装了98,2000,现在有装了红帽7.2,已经安装成功,但是在LOGIN之后,有开始GNOME之后,什么都 菜鸟问题,请多帮忙 window 2000 server服务器,不能使用mail函数,怎么解决!?急!! 我靠!我今天算碰到一个希奇事!你们听听这个网址! 关于鼠标右键菜单的制作问题 SOS!100分相送。很简单的题目,明天考试急用 请问oracle中的帮助导航器、帮助主题窗口是在哪里啊 重要问题!!!请尽快回复。 证券之星最新版本有没有破解版啊,我在证券之星下载的多是只能用三天 各位老大,有谁知道怎样边接收网络传送的音频流边播放 System.in的问题 为什么listbox.selectIndex返回的值总是-1??? masm611装好后不能DEBUG,怎么回事啊???????? 挥泪放出两百分。为了实行打击报负不得不放点血了。来者有分。大家要涌跃发言。快快回答,正确就结贴。 dll的问题和语言混编 今天买了双新皮鞋,感觉不错。散分。 《微型计算机技术》问题 放分!!!:使用C++多年的老手,一定要看过来,看看我们对C有多了解 怎么让listbox有响应onDbClick事件呀! 如何恢复IE的“自动完成”功能。即让IE弹出那个“自动完成”的提示框询问用户是否保存输入表单中的内容 。 怎样扩大、缩小不规则区域界面? 高手,怎样将数据库表中为BIT的字段,读出来后,显示为yes或者no,而不是默认的true or false 我得分的帖子里显示得分还是0,为什么?能不能纠正!! 在Servlet引用了JDK中没有的包应该怎么设置! 问问一个很简单的问题。大家看看能否帮我澄清这个概念 求职 我想做个类似qq的东西,但是用户登陆后的消息怎么做?? 求 Hands on me 英文翻成中文的读音 注意 是中文读音是 Vanessa Carlton 唱的哦 Mary tries on the shoes.(用them替换句中的the shoes) Live On Day At A 高中英语句子分析Worried about the time available.Worried about the time available.中的available是形容词,而the time是名词,二者中间不要加什么be动词么?还有帮忙讲下句子的成分! ________,there lived a very kind man in the village.A.Before longB.Once upon a timeC.Before a long timeD.A moment ago My motto is:live one day at a time.翻译 worried about the time available ,Mary had made a list of the sites she wanted to see in Beijing.怎样翻译? kate and mary bring them什么the pary第一个字母是t Suddenly a fire broke out in the workshop,and the workers immediately tried and put out the fire.为什么workers前面要加THE? Don't tell others.Keep it _____ you and meamongbetweeninwith the old man lived___________ in the village(by oneself)填单词 Suddenly () fire broke out in the warehouse and everything in it was on () fire.A./,a B.the,/ C.a,/ D./,the 为什么选B并翻译这句话 Don't tell anybody about it,Just keep it___you____meAwith,and Bbewteen,and Camong,of Dform,to I have never thought of there be a quarrel between them.改错,急,一天内回答! 英语翻译翻译:----Yesterday Mary broke two glasses when she was washing them.-----I'm not sure.How could she be so careless?关健是I'm not sure.我不确定,在这里怎么翻译.好像不通顺. So don't tell me you might just let it go 这首歌叫什么? The old man wants to settle______in this small village it was said ( )was how the fire broke out.It was said ________ was how the fire broke out.A:that that B:that what C:that D:what第一个that是引导主语从句,那第二个that到底是什么意思呢,实在想不通,(随便帮我翻译下这句 Just don`t tell me that it`s too late for me to love you是那首歌的歌词?谁唱的?求歌名! I can't remember how many days ago --- a fight broke out between them.A it was when B it was that C was it when D was it that 选B 请解释为啥不能选A you shoud arrive on time or a little late when you visit 海上钢琴师影评 宾语从句WHAT做引导词的题!1.Those who were legt alone in the cave knew better than the others(what frightening)sounds bats in the dark made这里knew 谓语,better than the others不是宾语么?那么为什么说WHAT还引导宾语从 one day at a time的意思是活一天算一天的意思 还是珍惜每一天的意思? My sister is careful about making friends with strangers online even thought she likes chatting.译 海上钢琴师观后感我要《海上钢琴师》的观后感啊!有的帮帮手啊! What moved us most was that she liked after the old man for more than twenty years.什么意思?如何翻译? She like making friends with us. (海上钢琴师)观后感电影中给你印象最深的一个人或一句话或一个镜头写感悟 要原创400字就行 ___ moved us most was___ he liked after the old man for more than twenty years.为什么___ moved us most was___ he liked after the old man for more than twenty years.A.That; that B.What; that C What; what D.That; what我选的是D为什么错了、 translation of a sentenceI would appreciate it if you can provide your answerTo a solution containing GuHCl (10 mg,5 mol%) in H2O(4 mL),was added the carbonyl compound (2 mmol) and themixture vigorously stirred for 10 min at room temperature.After,Na He wants a lot of dishes 这句话则怎么翻译啊? 英语翻译速求I was moved by what the man did 中文翻译 translation of a sentence 309年,市场总体判断下降15-25%.预计09年上半年持续低迷的态势,下半年同比今年会有好转,全年呈现比较平躺的趋势,不会出现今年大起大落的现象. can i suck your dick 什么意思?是别人对我说的 Don't fuck my ass translation of a sentence 2 大型工程车市场与国家固定资产投资以及中小煤矿大量关停,市场降幅将大于行业水平.而中小型工程车比较贴近农村市场,预计市场下跌不会太大. plates和dish的区别不要太多 英语翻译He recognizes more clearly thanother men what he is letting himself in for and does not reproachher for any failings. translation of a sentence 1国家01年提升固定资产投资增长率,公路里程增长率逐年递增,在此环境下商车用销售保持高速增长,05年国家实施宏观调控市场出现急速下滑,08年同样由于国家调控、缩紧银 Don't use your bird to suck my dick 用宾格me you him her it us them的 )快,3点之前要用 Translation of a long sentenceWhat happens when you practice communicating and speaking honestly when things aren't working is that when the relationship gets a little further and things are to get bumpy,it's gonna be so easy for you to smooth it out suck your it is jim's bag.give _____,please.A.it him B.him it C.them him D.him them急 She used to be a teacher when she was in her thiries,__she? 英语want to lick your ass?我在ICQ聊天时,一美国女网友说到want to lick your ass?后她又用汉语发了一遍:所以,但我不想给你写信让你知道我吻屁股! hey you man suck your fucking ass hole __ she was living in New York that she met her husband Terry.A.Just when B.Soon afterC.It was while D.During the time when 并翻译句子. what引导宾语从句What is the matter?这个是特殊疑问句Can you tell me what is the matter? 这里的What is the matter是陈述句这到底是怎么回事哈 me,you,him,her,it,us,them的主格 NEXT ?翻译中文什么意思? The old man has lived in this village for three months同义句 Fuck next questiond mary drew a long ,soft brecth ,as though the paper daffodils between them were almosttoo sweat to bear.的中文意思Mary drew a long ,soft brecth ,as though the paper daffodils between them were almost too sweat to bear.的中文意思 用me him her it us them you填空1.A:I can't carry the box.Please help ____,Tony.B:All right,I'm coming.2.A:It 's my bed.You can't jump on______,Tom.3.A:Listen to me,children.I'm talking to______.B:Miss Liu is talking to_______.Listen to _______.4.P Hands On Me的中文意思是什么? The old man lived___in the___mountain villageA.lonely;aloneB.alone;lonelyC.alone;aloneD.lonely;lonely I can't carry the box.Pleave help ( ),Tony.(括号里应该填me、him、her、it、us、them、you.)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘