从路径中提取文件名的一部分

时间:2014-01-23 14:14:55

标签: word-vba

我需要从2个字符串中的路径中提取文件名的2部分。

例如:"C:\folder\folder\folder\00 00 00 filename.docx"

所有文件都使用相同的patern命名。我要求在word文档中选择包含“00 00 00”(固定长度)和“filename”(可变长度)的2个字段。

谢谢,

1 个答案:

答案 0 :(得分:0)

Sub Test()
    VarStr = "C:\folder\folder\folder\00 00 00 filename.docx"
    TempArr = Split(VarStr, "\")
    TempArr(UBound(TempArr)) = Mid(TempArr(UBound(TempArr)), 1, Len(TempArr(UBound(TempArr))) - 5) 'remove .docx
    VarFixed = Mid(TempArr(UBound(TempArr)), 1, 8)
    VarVariable = Mid(TempArr(UBound(TempArr)), Len(VarFixed) + 2) 'ignore space

    MsgBox VarFixed & vbCrLf & VarVariable
End Sub