This is a multi-part message in MIME format.
------=_NextPart_000_0010_01C377B5.9255FA80
Content-Type: text/plain;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
In the following code sample, I could not get the file collection =
(Directory and subdirectory names in this case) sorted properly:
************************************************
close all
clear all
clear
set talk off
oMyFiler =3D createobject('Filer.FileUtil')
oMyFiler.SearchPath =3D getdir()
oMyFiler.Subfolder=3D1
oMyFiler.FileExpression =3D '*.'
oMyFiler.Find(0)
oMyFiler.Sortby=3D1 && Path and file name
for nFileCount =3D 1 to oMyFiler.Files.Count
if left(oMyFiler.Files.Item(nFileCount).name,1)=3D'.' or =
oMyFiler.Files.Item(nFileCount).attr#2064
loop
else
=
?oMyFiler.Files.Item(nFileCount).path+oMyFiler.Files.Item(nFileCount).nam=
e
endi
endfor
close all
clear all
set talk on
************************************************
Any suggestions?
sp
------=_NextPart_000_0010_01C377B5.9255FA80
Content-Type: text/html;
charset="Windows-1252"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dwindows-1252">
<META content=3D"MSHTML 6.00.2800.1226" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>In the following code sample, I could =
not get the=20
file collection (Directory and subdirectory names in this case) sorted=20
properly:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial=20
size=3D2>************************************************</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>close all</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>clear all</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>clear</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>set talk off</FONT></DIV>
<DIV><FONT face=3DArial size=3D2> </DIV></FONT><FONT face=3DArial =
size=3D2></FONT>
<DIV><FONT face=3DArial size=3D2>oMyFiler =3D=20
createobject('Filer.FileUtil')<BR>oMyFiler.SearchPath =3D=20
getdir()<BR>oMyFiler.Subfolder=3D1<BR>oMyFiler.FileExpression =3D=20
'*.'<BR>oMyFiler.Find(0)<BR>oMyFiler.Sortby=3D1 && Path and file =
name</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>for nFileCount =3D 1 to=20
oMyFiler.Files.Count<BR> if=20
left(oMyFiler.Files.Item(nFileCount).name,1)=3D'.' or=20
oMyFiler.Files.Item(nFileCount).attr#2064<BR> loop<BR> el=
se<BR> ?oMyFiler.Files.Item(nFileCount).path+oMyFiler.Files.It=
em(nFileCount).name<BR> endi<BR>endfor</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>close all</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>clear all</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>set talk on</FONT></DIV><FONT =
face=3DArial size=3D2>
<DIV><BR>************************************************</DIV>
<DIV> </DIV>
<DIV>Any suggestions?</DIV>
<DIV> </DIV>
<DIV>sp</FONT></DIV></BODY></HTML>
------=_NextPart_000_0010_01C377B5.9255FA80--