Questions and answers about the LiveCode platform.
https://forums.livecode.com/
Code: Select all
on mouseUp
answer folder "please choose folder"
if it is empty then exit mouseUp
put the defaultfolder into oldDefault
-- necessary for "put the files into" to work
put it & "/" into tmyPath
set the defaultfolder to it
put the files into tAllFiles
set the defaultfolder to oldDefault -- just to be nice
put "" into tmyResultingFiles
put "*.png,*.bmp,*.jpg" into mySuffixes
repeat for each item aSuffix in mySuffixes
put tAllfiles into tFilesToFilter
filter tFilesToFilter with aSuffix
put tFilesToFilter after tmyResultingFiles
end repeat
-- the names of the files
put tmyResultingFiles
-- now the path and name of file
repeat with i = 1 to the number of lines of tmyResultingFiles
put tmyPath & line i of tmyResultingFiles into line i of tmyResultingFiles
end repeat
put tmyResultingFiles after msg
end mouseUpCode: Select all
on mouseUp
answer folder "please choose folder"
if it is empty then exit mouseUp
put the defaultfolder into oldDefault
-- necessary for "put the files into" to work
put it & "/" into tmyPath
set the defaultfolder to it
--••JMB the defaultfolder contains 15 files and one png, one bmp and one jpg
put the files into tAllFiles
set the defaultfolder to oldDefault -- just to be nice
put "" into tmyResultingFiles
put "*.png,*.bmp,*.jpg" into mySuffixes
repeat for each item aSuffix in mySuffixes
put tAllfiles into tFilesToFilter
filter tFilesToFilter with aSuffix
put tFilesToFilter after tmyResultingFiles
end repeat
--••JMB the num of lines of tmyResultingFiles = 1 the three files (png,bmp,lpg) are on the same line
--••JMB like that "jhm05.pngImage 2.bmpImage 3.jpg"
-- the names of the files
put tmyResultingFiles --••JMB the num of lines of tmyResultingFiles = 1
-- now the path and name of file
repeat with i = 1 to the number of lines of tmyResultingFiles
put tmyPath & line i of tmyResultingFiles into line i of tmyResultingFiles
end repeat
put tmyResultingFiles after msg
--••JMB tmyResultingFiles = "/Users/p3sr/Desktop/DesFiImages/jhm05.pngImage 2.bmpImage 3.jpg"
end mouseUpCode: Select all
on mouseUp
answer folder "please choose folder"
if it is empty then exit mouseUp
put the defaultfolder into oldDefault
-- necessary for "put the files into" to work
put it & "/" into tmyPath
set the defaultfolder to it
put the files into tAllFiles
set the defaultfolder to oldDefault -- just to be nice
put "" into tmyResultingFiles
put "*.png,*.bmp,*.jpg" into mySuffixes
repeat for each item aSuffix in mySuffixes
put tAllfiles into tFilesToFilter
filter tFilesToFilter with aSuffix
if tFilesToFilter is not "" then
put tFilesToFilter & return after tmyResultingFiles
end if
end repeat
if last char of tmyResultingFiles = cr then delete char -1 of tmyResultingFiles
-- the names of the files
put tmyResultingFiles into field 1
-- now the path and name of file
repeat with i = 1 to the number of lines of tmyResultingFiles
put tmyPath & line i of tmyResultingFiles into line i of tmyResultingFiles
end repeat
put tmyResultingFiles into field 2
end mouseUp