诗情寻知己
揽几缕、轻挽起,暮暮朝朝与君语。
‘文件路径:D:\Uploads\2022\1\2\056(de652330-9c1e-410e-bdfd-19711e9c25b6).doc
‘获取名称:056(de652330-9c1e-410e-bdfd-19711e9c25b6).doc
‘获取:056
Dim filePath As String = “D:\Uploads\2022\1\2\056(de652330-9c1e-410e-bdfd-19711e9c25b6).doc”
‘获取名称
Dim fileName As String = Split(filePath , "\")(UBound(Split(filePath , "\")))
‘获取056
Dim Num As String = Split(fileName, "(")(0).ToString()

  

posted on 2023-03-21 14:36  诗情寻知己  阅读(122)  评论(0编辑  收藏  举报