i need to be able to detect ALL 3DS files, and save ALL 3DS files as dbo files with this.
but it won't work
Rem Project: modelswitch
Rem Created: Sunday, August 08, 2010
Rem ***** Main Source File *****
find first ` Gets rid of .
find next ` Gets rid of ..
repeat
find next
if FindFileExtension(get file name$())="3DS"
if file exist(get file name$())
obj=find free object()
load object get file name$(),obj
save object get file name$(),obj
text 10,10,"File "+get file name$()+" saved!"
endif
endif
` print "ext:"+FindFileExtension(get file name$())
`printC "file name= "+get file name$()
`print " file type = "+str$(get file type())
` Update the screen
sync
until get file type()=-1
` Wait for a keypress
wait key
end
Function FindFileExtension(filename$)
` Search the entire string one character at a time
for t=1 to len(filename$)
` Check for the period
if mid$(filename$,t)="."
` Extract all characters after the period (grabbing from the right side of the string)
Fileexten$=right$(filename$,len(filename$)-t)
` Leave the for/next loop
exit
endif
next t
endfunction Fileexten$
CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/
