Function GetName(rFile) As String Dim nameArr As Variant nameArr = Split(rFile, "\") GetName = nameArr(UBound(nameArr)) End Function
確定! 回上一頁