VB 获取路径名各部分 （获取文件路径，获取文件名，获取文件扩展名）自编

'====================获取路径名各部分:  如： c:\dir1001\aaa.txt

'============获取路径路径 c:\dir1001\

'============获取路径路径 c:\dir1001\
Public Function GetFileName(FilePathFileName As String) As String   '获取文件名  aaa.txt
    On Error Resume Next
    Dim i As Integer, J As Integer
    i = Len(FilePathFileName)
    J = InStrRev(FilePathFileName, "\")
    GetFileName = Mid$(FilePathFileName, J + 1, i)
End Function

''===========获取路径路径   c:\dir1001\

''===========获取路径路径 c:\dir1001\
Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径 c:\dir1001\
On Error Resume Next
Dim J As Integer
J = InStrRev(FilePathFileName, "\")
GetFilePath = Mid(FilePathFileName, 1, J)
End Function

'===========获取文件名但不包括扩展名  aaa

'===========获取文件名但不包括扩展名 aaa
Public Function GetFileNameNoExt(FilePathFileName As String) As String  '获取文件名但不包括扩展名  aaa
    On Error Resume Next
    Dim i As Integer, J As Integer, k As Integer
    i = Len(FilePathFileName)
    J = InStrRev(FilePathFileName, "\")
    k = InStrRev(FilePathFileName, ".")
    If k = 0 Then
        GetFileNameNoExt = Mid$(FilePathFileName, J + 1, i - J)
    Else
        GetFileNameNoExt = Mid$(FilePathFileName, J + 1, k - J - 1)
    End If

End Function

 '＝＝＝＝==＝ '获取扩展名  .txt

'＝＝＝＝==＝ '获取扩展名 .txt
Public Function GetFileExtName(FilePathFileName As String) As String   '获取扩展名  .txt
    On Error Resume Next
    Dim i As Integer, J As Integer
    i = Len(FilePathFileName)
    J = InStrRev(FilePathFileName, ".")
    If J = 0 Then
        GetFileExtName = ".txt"
    Else
        GetFileExtName = Mid$(FilePathFileName, J, i)
    End If
End Function

摘自：网络整理

---

相关文章参考：

---

★VB查找替代字符串的函数

★VB换行气泡提示类

★VB/VBA通用路径选择对话框

★ASCII码表0-255完整版 附详细注释

★VB的KeyAscii

★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）

★VB取得TextBox、RichTextBox光标所在的行和列（支持汉字）

★VB如何实现Undo(撤消)功能

★VB计算文本文件的行数

★VB获取快捷方式原文件路径

★微软 Small Basic 简体中文版 已经发布了

★VB操作Excel 非常详细 [网摘]

★VB如何判断文件正被占用/已被打开

★VB添加listbox 的水平卷动轴

★VB打开资源管理器并指定文件

★VB根据窗体自动调整窗体内控件大小 注：实用，可以直接引用

★VB中的指针技术

★Visual Basic编程常见问题及解答（1）

★Visual Basic编程常见问题及解答（2）

★Visual Basic编程常见问题及解答（3）

★VisualBasic变量、常数和数据类型及过程概述

★VB6的后期绑定和前期绑定

★VB用户控件制作讲解与实例

★VB制作OCX控件的步骤

★VB中FSO的调用的两种方法

★用VB操作EXCEL

★VB判断文件及目录的存在性

★VB网站（最新、经典源代码、技术文章、基础知识）

★VB得到指定文件夹下的文件列表

★用VB产生随机任意大小文件挤满硬盘

★VB文件的读写操作

★VB创建超链接 打开指定网站的几种方法

★VB 源码 删除重复行程序 函数

★VB 计算自己程序段所用时间

★VB 获取路径名各部分 （获取文件路径，获取文件名，获取文件扩展名）自编

★几行VB代码拿下注册表

★VB 在浏览器中打开指定网址

★VB窗口置顶

★vb在 ListBox 之中点击右键弹出菜单

更多精彩>>>