Sorry your browser is not supported!

numFiles = loadAllMedia()
print str$(numFiles)+ " valid files loaded"
wait key



function loadAllMedia()



      path$ = gen_DirDialog()    `get the path from the user
         set dir path$            `set the current directory to the path

            perform checklist for files
            numFiles = checklist quantity()

         dim tempNames$(255)   `will store every file in the folder in it

            for count = 1 to numFiles
               tempNames$(count-1) = checklist string$(count)

            next count

            `valFiles will be used to determine the number of valid files
            `imageNames will store all the names of the images to load
               valFiles = 0
            dim imageNames$(255)

`******************************************
dim validExts$(3)`**************************
`******************************************
validExts$(0) = ".bmp"`*********************
validExts$(1) = ".jpg"`*********************
validExts$(2) = ".tga"`*********************
validExts$(3) = ".dds"`*********************
`those are all the valid file extensions***
`******************************************



            for count = 0 to numFiles
               name$ = tempNames$(count)           `name$ will change with each iteration


                  if lower$(right$(name$,4)) = validExts$(0) then validFile = 1
                  if lower$(right$(name$,4)) = validExts$(1) then validFile = 1
                  if lower$(right$(name$,4)) = validExts$(2) then validFile = 1
                  if lower$(right$(name$,4)) = validExts$(3) then validFile = 1


                    if validFile = 1
                     imageNames$(valFiles) = name$

                     valFiles = valFiles + 1
                     validFile = 0
                    endif


            next count


               for count = 1 to valFiles

                  load image imageNames$(count-1),count

               next count



`unload all the arrays
empty array tempNames$(0)
empty array imageNames$(0)

endfunction valFiles   `when the function ends, return the # of valid files

`************************************************
`	Media loader
`************************************************

sync on

LoadMedia()

suspend for key

end


function LoadMedia()

	perform checklist for files

	obj = 1 : bmp = 1 : avi = 1 : snd = 1 : mus = 1

	find first

	for x = 1 to checklist quantity()
		find next
		name$ = get file name$()
		l = len( name$ )
		ext$ = mid$( name$, l - 2 ) + mid$( name$, l - 1 ) + mid$( name$, l )
		if lower$( ext$ ) = "mid" then load music name$,mus : inc mus
		if lower$( ext$ ) = "3ds" then load object name$,obj : inc obj
		if lower$( ext$ ) = "avi" then load animation name$,ani : inc ani
		if lower$( ext$ ) = "wav" then load sound name$,snd : inc snd
		if lower$( ext$ ) = mid$(name$, l-2) + ".x" then load object name$,obj : inc obj
		if lower$( ext$ ) = "mp3" then load music name$,mus : inc mus
		if lower$( ext$ ) = "bmp" then load image name$,bmp : inc bmp
		if lower$( ext$ ) = "jpg" then load image name$,bmp : inc bmp
	next x

endfunction