// Global variables of the project 
gsAppName is string = "MyApp"
gsDataDir is string = CompleteDir(fExeDir()) + "Data\"

//Procedure global to the project 
PROCEDURE gWdOptimizeAnalysis(_OptionNum = 5,_bSave = False)
// WDOPTIMIZER control for all data files in an application 
// while taking into account the password, exeActive and 
// WDOptimizer is blocking when run. 
// After each reindex operation, WDOptimizer displays the message
// "Re-indexing the data file 'C:\.....\MonFic.Fic' was successful".
// The user must click "OK".
// The option 5 of WDOptimizer is used by default
// By default, data files are not saved before optimization
// - Required: 
//   - The data files can be relocated in relation to the exe 
// (Global variables gsAppName and gsDataDir)
//  - WDOptimizer is always found beside the executable
// - Data files can have a physical name different from their logical name 
// as well as an extension <> ".FIC"
 
// Variables local to the process
sFileList, sFileName are strings
sSave is string = "False"
IF _bSave = True THEN sSave = "True"
	i is int = 1
	sDir is string = CompleteDir(fExeDir())
	 // Physical name of the file (name + extension)
	sPhysicalFileName is string
	// Password of the file 
	sPwd is string 
	sCommandLine is string

	// Check for WDOptimizer
	IF fDir(sDir + "WDOptimizer.EXE", frFile) = "" _OR_ ...
				fDir(sDir + "WDTool.WDK", frFile) = "" THEN 
			Error("WDOptimizer has not been correctly installed")
		RETURN
	END

	// List the data files found in the analysis
	sFileList = HListFile()
	sFileName = ExtractString(sFileList, i, CR)
	WHILE sFileName <> EOT 
		sPhysicalFileName = {sFileName}..PhysicalName + {sFileName}..Extension
		IF fDir(gsDataDir + sPhysicalFileName, frFile) <> "" THEN 
			// Password protection for certain protected data files  
		SWITCH Upper(sFileName)
			CASE "TOTO": sPwd = "toto"
			OTHER CASE: sPwd = ""  
		END
		IF sPwd <> "" THEN 
			sCommandLine = 
				sDir + "WDOptimizer.EXE   /File=" + ...
				gsDataDir + sPhysicalFileName + " /Pwd=" + sPwd + " /" + ...
					_OptionNum + " /" + sBackup
		ELSE
				sCommandLine = sDir + "WDOptimizer.EXE   /File=" + ...
					 gsDataDir + sPhysicalFileName + " /5 /" + sBackup
			END
		ExeRun(sCommandLine, exeActive, exeWait)
	END
	i++
	sFileName = ExtractString(sFileList, i, CR)
END
Info("Optimization of data files from '" + gsNomAppli + "' completed")