third party vendors

[Karsten Natebus]

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.de at 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.