VB6.0 获取文件的扩展名源代码实例

在这里小编给大家提供VB6.0 获取文件的扩展名源代码实例下载，都是比较常用和简单的。有需要学习相关编程的可以下载回去研究一下。
VB6.0 获得文件的扩展名，运程程序后，选择要获得扩展名的文件，以前有不少都是获取文件扩展名的，和这个差不多，不过这一款所用的方法更简单，具体请参见代码，具体效果请参见运行截图。
　　Private Function GetExtension(ByVal Filename As String) As String
　　 Dim pos As Integer
　　 pos = InStrRev(Filename, ".")
　　 GetExtension = Right(Filename, Len(Filename) - pos)
　　End Function
　　Private Sub Cmd_Get_Click()
　　 Label2.Caption = "文件的扩展名为：" + GetExtension(Text1.Text)
　　End Sub
　　Private Sub Cmd_Open_Click()
　　 CommonDialog1.ShowOpen
　　 Text1.Text = CommonDialog1.Filename
　　End Sub

关键词：扩展名