Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- str := "c:\folder1\folder2\filename.ext"
- xFolder(str)
- {
- StringGetPos,pos,str, \,R
- if pos = -1
- Return "ERROR"
- Return SubStr(str,1,pos)
- }
- xParentFolder(str)
- {
- StringGetPos,pos,str, \,R2
- If pos = -1
- Return "ERROR"
- Return Substr(str,1,pos)
- }
- msgbox % xFolder(str)
- msgbox % xParentFolder(str)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
