22 lines
789 B
Plaintext
22 lines
789 B
Plaintext
; Load/close images from a folder
|
|
; Command:
|
|
; Loop_Folder <Folder to parse> [<mask>] [recurse]
|
|
; Inside the loop:
|
|
; current file is accessible via $LFCurrentFile global variable
|
|
; start folder (parameter#1 of Loop_Folder) is accessible via $LFStartFolder global variable
|
|
; Global function LFAdjustDest(<start_folder,file,dest_folder>) allows to build destination file
|
|
; In such a way that it respect original folder hierachy, e.g.:
|
|
; LFStartFolder=H:\IMAGES
|
|
; $LFCurrentFile=H:\IMAGES\BYPLANES\32\TC32.JPG
|
|
; LFAdjustDest($LFStartFolder,$LFCurrentFile,H:\OPTIMAL) will be H:\OPTIMAL\BYPLANES\32
|
|
|
|
form_silent
|
|
prog_silent
|
|
Loop_Folder H:\PURE_C\PROJECTS\VISION\IMGTEST recurse
|
|
open $LFCurrentFile
|
|
sleep 100
|
|
close $LFCurrentFile
|
|
Endloop_Folder
|
|
form_silent 0
|
|
prog_silent 0
|