Sorry your browser is not supported!

temp$ = "C:\Program Files (x86)\The Game Creators\test.png"

print getFilename$(temp$)
print getFilepath$(temp$)
wait key
end


function getFilepath$(file as string)
    l = len(file)
    for i = l to 1 step -1
        c$ = mid$(file, i)
        if c$ = "." then extensionFound = 1
        if mid$(file, i) = "\" then exit
    next i
    if extensionFound = 0 then exitfunction file
    file = left$(file, i)
endfunction file


function getFilename$(file as string)
    l = len(file)
    for i = l to 1 step -1
        c$ = mid$(file, i)
        if c$ = "." then extensionFound = 1
        if c$ = "\" then exit
    next i
    if extensionFound = 0 then c$ = "" : exitfunction c$
    file = right$(file, l-i)
endfunction file

temp$ = "C:\Program Files (x86)\The Game Creators\test.png"

print getFilename$(temp$)
print getFilepath$(temp$)
wait key
end


function getFilepath$(file as string)
   l = last instr(file, "\")
   file = left$(file, l)
endfunction file


function getFilename$(file as string)
   l = last instr(file, "\")
   if l > 0 then file = remove$(file, 1, l)
endfunction file