Can someone tell me to what thread Karsten was replying?  It certainly 
wan't "Third party vendors"!

-- Hedley

Hello Michael,

you can do this with a recursive function or sub.

Set StartDir = 'c:\programme\';
Run RecDir pv_strDir(StartDir);

Sub RecDir Using pv_strDir
                 Local lv_strStartDir;
                 Local lv_objFileInfo;
                 Local lv_blnRetStat;
                 Local lv_strPathName;
                 Local lv_intRetPos;
                 Local lv_strExtension;
                 Local lv_lv_strRetStr;

                 Set lv_strStartDir = pv_strDir;
                 New EFileInfo NewVar(vFileInfo) Filename(lv_strStartDir + 
'\*.*');
                 Set lv_objFileInfo = vFileInfo;
                 Loop While(lv_objFileInfo.FilePresent)
                                 If lv_objFileInfo.IsDirectory = false

                                 // code for found files

                                 Else
                                                 Find String('\.')
                                                                 InString 
(lv_objFileInfo.FilePath)
 ReturnPos(lv_intRetPos)
 ReturnStatus(lv_blnRetStat)
 ReturnString(lv_strRetStr);
                                                 If lv_blnRetStat = false
                                                                 Find 
String('\..')
  InString (lv_objFileInfo.FilePath)
  ReturnPos(lv_intRetPos)
  ReturnStatus(lv_blnRetStat)
  ReturnString(lv_strRetStr);
                                                                 if 
lv_blnRetStat = false
  // code for found folders

  //start search in folder (recursive)
  Run RecDir
pv_strDir(lv_objFileInfo.FilePath);
                                                                 EndIf
                                                 EndIf
                                 EndIf
                                 Run lv_objFileInfo.GetNext;
                 EndLoop
                 DELETE Object(lv_objFileInfo);
EndSub

See the full sourcecode on
http://framescript.natebus.de/index.php?navi=script_misc .

Best regards Karsten 'MAC' Natebus 

-----Original Message-----
From: framers-bounces+karsten=natebus...@lists.frameusers.com
[mailto:framers-bounces+karsten=natebus.de at lists.frameusers.com] On Behalf
Of Ann Zdunczyk
Sent: Thursday, November 16, 2006 10:23 PM
To: framers at lists.frameusers.com; framers at omsys.com
Subject: OT: third party vendors

All, 

In the process of putting together a tools and pricing plan for the VP of
Product Engineering. I am trying to find third party vendors that are
resellers of Adobe Framemaker and Adobe's own list for this information is
woefully out-of-date. Specifically, I am hoping to find vendors that still
offer the TPL version of licensing ("x" number of licenses for this 
reduced
rate plus a guarantee of point releases and one major upgrade), but any 
and
all suggestions are appreciated. I am in the Denver metro area.

TIA, 

TVB 

Tammy L. Van Boening
Engineering Technical Writer
Fiserv Insurance Solutions
Property and Casualty Division
303-729-7733
tammy.vanboening at fiserv.com 


_______________________________________________


You are currently subscribed to Framers as karsten at natebus.de.

Send list messages to framers at lists.frameusers.com.

To unsubscribe send a blank email to
framers-unsubscribe at lists.frameusers.com
or visit
http://lists.frameusers.com/mailman/options/framers/karsten%40natebus.de

Send administrative questions to listadmin at frameusers.com. Visit
http://www.frameusers.com/ for more resources and info.



_______________________________________________


You are currently subscribed to Framers as hedley.finger at myob.com.

Send list messages to framers at lists.frameusers.com.

To unsubscribe send a blank email to 
framers-unsubscribe at lists.frameusers.com
or visit 
http://lists.frameusers.com/mailman/options/framers/hedley.finger%40myob.com


Send administrative questions to listadmin at frameusers.com. Visit
http://www.frameusers.com/ for more resources and info.


Reply via email to