vb获取某后缀的文件名

软件 2022-07-13

VB如何得到文件的后缀名

比如文件名为c:\windows\logo.gif Private Sub Command1_Click() a = "c:\windows\logo.gif" MsgBox Right(a, 4) '截取后4个字符 End Sub 还有另外的办法 Private Sub Command1_Click() a = "c:\windows\logo.gif" MsgBox mid(a,instr(1,a,"."),len(a)) '判断.的位置,然后在截取 End Sub

vb 如何得到后缀名

VB可通过使用CommonDialog 控件来获取需打开文件的路径，用Split函数来获取该文件的扩展名。

CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。通过运行Windows 帮助引擎控件还能显示帮助。

Split函数，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

实现代码如下：

PrivateSubCommand1_Click()
DimiAsLong
DimjAsLong
DimkzName()AsString
DimMsg,Style,Title,Help,Ctxt,Response,MyString
'设置“CancelError”为True
CommonDialog1.CancelError=True
OnErrorGoToErrHandler
'设置标志
CommonDialog1.Flags=cdlOFNHideReadOnly
'设置过滤器
CommonDialog1.Filter="AllFiles(*.*)|*.*|"'TextFiles"&"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
'指定缺省的过滤器
CommonDialog1.FilterIndex=2
'显示“打开”对话框
CommonDialog1.ShowOpen
'显示选定文件的名字
'Debug.PrintCommonDialog1.FileName
str=CommonDialog1.FileName
kzName=Split(str,".")
Msg="文件扩展名是："&kzName(1)'定义信息。
Title="扩展名"'定义标题。
Response=MsgBox(Msg,Style,Title,Help,Ctxt)
IfResponse=vbYesThen'用户按下“是”。
MyString="Yes"'完成某操作。
Else'用户按下“否”。
MyString="No"'完成某操作。
EndIf
ExitSub
ErrHandler:
'用户按了“取消”按钮
ExitSub
EndSub

███████如何用VB在一个目录中获得指定后缀的文件名称███████

这样，你先找出文件名中.的索引，然后从. 取到文件名的结尾就可以了比如文件名为a.txt,我们定义一个string型数组string[] n=a.txt,然后得到.在数组中的index,index=n.indexof(.),再然后取字符串，string w=n.subString(index) ;

VB如何获取文件名？

VB6.0可以使用CommonDialog 控件实现获取文件路径并使用Split函数获取文件全名。

CommonDialog 控件

CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。

Split函数，

返回一个下标从零开始的一维数组，它包含指定数目的子字符串。

代码实例：

PrivateSubCommand1_Click()
DimsplitStr
CommonDialog1.CancelError=True'设置“CancelError”为True
OnErrorGoToErrHandler
CommonDialog1.Flags=cdlOFNHideReadOnly'设置标志
'设置过滤器
CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=2'指定缺省的过滤器
CommonDialog1.ShowOpen'显示“打开”对话框
'显示选定文件的名字
MsgBoxCommonDialog1.FileName
splitStr=Split(CommonDialog1.FileName,"\")
MsgBoxsplitStr(UBound(splitStr))
ErrHandler:
'用户按了“取消”按钮
ExitSub
EndSub

第一句Msgbox显示文件路径。