VB 获取文件名称

‘文件路径：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()