Script Library: 1238 scripts
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Archive version of: foreach-file.r ... version: 1 ... rebolek 30-Jun-2006

Amendment note: new script || Publicly available? Yes

REBOL [
	Title: "Foreach-file"
        File: %foreach-file.r
	Author: "Rebolek"
	Date: 20-6-2006
	Version: 1.0.2
        Purpose: "Perform function on each file in selected directory recursively"
	library: [
		level: 'beginner
		platform: 'all
		type: [function tool]
		domain: [shell]
		tested-under: [View 1.3.2 on WinXP]
		license: 'MIT
		support: none
        ]
] 

foreach-file: func [
	"Perform function on each file in selected directory recursively"
	dir [file! url!] "Directory to look in"
	act [function!] "Function to perform (filename is unput to fuction)"
	/directory "Perform function also on directories"
	/local f files
][
	files: attempt [read dir] 
	either none? files [return][
		foreach file files [
			f: join dir file 
			either dir? f [
				either directory [
					act f 
					foreach-file/directory f :act
				][
					foreach-file f :act
				]
			][act f]
		]
	]
]

;Example

Comment [

file-func: func [file][probe file]
foreach-file %./ :file-func

]