dim path as string="/data/app/test.apk"
Dim filename,filedir As String=""
If path.Contains("/") Then
filedir = path.SubString2(0,path.LastIndexOf("/"))
Log(filedir) '/data/app
filename= path.SubString(path.LastIndexOf("/") + 1)
Log(filename) 'test.apk
End If