下载地址

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

常用软件:压缩软件迅雷合集 》播放软件
资源大小:2.20K 更新时间:2019-10-03
资源类型:绿色安全 授权方式:免费下载
资源分类:VB源码 资源人气:34
适用平台:WinAll 推荐等级:
() ()

内容简介

在这里小编给大家提供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

关键词:扩展名