13 lines
274 B
Text
13 lines
274 B
Text
|
Module CheckIt {
|
||
|
|
Dos "cd "+quote$(Dir$) +" & cmd /U /C dir *.txt >txt.out";
|
||
|
|
Document txt$
|
||
|
|
Repeat {
|
||
|
|
Wait 100
|
||
|
|
Try {
|
||
|
|
load.doc txt$, "txt.out"
|
||
|
|
}
|
||
|
|
} Until doc.len(txt$)<>0
|
||
|
|
Report txt$
|
||
|
|
}
|
||
|
|
Checkit
|