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