Function GetName(rFile) As String
Dim nameArr As Variant
nameArr = Split(rFile, "\")
GetName = nameArr(UBound(nameArr))
End Function
使用說明 --------------------
輸入端:
rFile => 完整的檔案路徑 ( 字串型別 )
輸出端:
GetName => 處理後傳回的字串 ( 只取 檔名 + 副檔名 )
參考資料來源:
chijanzen 雜貨舖
沒有留言:
張貼留言