Function ExtractFileName(filepath) As String
Dim x As Variant
x = Split(filepath, "\")
ExtractFileName = x(UBound(x))
End Function
Public Function ParseFile(sPath As String) As Variant
ParseFile = Array(Mid$(sPath, 1 + InStrRev(sPath, "\")), Mid$(sPath, 1 + InStrRev(sPath, ".")))
End Function
0 نظر
تازه ترین ها