VBA编程-获取文件名

在windows操作的时候,我们经常会用到“打开”、“另存为”或者“新建”等功能,这里展示一个可以获取全路径文件名的方法。其本质上是对字符串的分割。

'****************************************

'获取文件路径下的文件名

'参数为文件全路径

'****************************************

Function GetMyFileName(FPath As String) As String

Dim i As Integer, MyFileName As String

'反向查找字符串,确定第一个\的位置

For i = Len(FPath) To 1 Step -1

If InStr("\", Mid$(FPath, i, 1)) Then Exit For

Next

'获取反斜线右侧所有的字符

GetMyFileName = Mid$(FPath, i + 1, Len(FPath) - i)

End Function

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20180609G0DE1200?refer=cp_1026
  • 腾讯「云+社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 yunjia_community@tencent.com 删除。

扫码关注云+社区

领取腾讯云代金券