Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Code Snippets / Find the file extention easily (DBP)

Author
Message
General Reed
18
Years of Service
User Offline
Joined: 24th Feb 2006
Location:
Posted: 4th Jun 2006 23:24
Link
Function FindFileExtention(filename$)
Filelenor = len(filename$)
Filelen = len(filename$)
repeat
if MID$(filename$,Filelen) = "."
Fileexten$ = right$(filename$ , (Filelenor - filelen))
divider = 1
endif
Filelen = filelen - 1
until Divider = 1
endfunction Fileexten$

-General reed

AMD Athlon 64 3200+, 1GB ram, Geforce 6600 GTX, 250GB HDD
Vist www.scratchyrice-dev.co.uk
Back to top
Profile PM Email Website
Back to top

Login to post a reply

Server time is: 2024-11-23 03:41:07
Your offset time is: 2024-11-23 03:41:07