'*=**********************************************
'* Deklaration von Variablen ist erforderlich.
'*=
Option Explicit 

'*=**********************************************
'* Archivierung von IDEA-Dateien.
'*
'* Eingabe:
'*    Eine separate Eingabe ist nicht festzulegen.
'*    Falls erwünscht kann der Text, der als 
'*    Namensanfang bei den Archivdateien genutzt wird
'*    bei der Zuweisung der Variable 'archPrefix'
'*    angepasst werden (Präfix anpassen).
'*
'* Ausgabe:
'*    Es werden alle so gekürzt, dass nur noch ein
'*    Datensatz enthalten ist. Die Archivierung von
'*    vielen einzelnen Zwischendateien ist dann
'*    grundsätzlich nicht mehr notwendig, weil die
'*    Verarbeitungshistorie in den kleinen Archiv-
'*    dateien enthalten ist.
'*    Es ist aber zu beachten, dass
'*      - immer die Ausgangsdaten archiviert werden 
'*        müssen und
'*      - auch die wesentlichen Analyseergebnisse
'*        vollständig als IDEA-Dateien aufzubewahren
'*        sind.
'*=

Sub Main
   Dim curPath As String
   Dim curFile As String
   Dim db As Database
   Dim task As Object
   Dim dbName As String
   Dim archPrefix As String
      
   curPath = Client.WorkingDirectory
      
'*=**********************************************
'* Abrage des aktuellen Dateipfads.
'*=
   If Right( curPath, 1 ) = "\" Then
      curPath = curPath & "*.IMD"
   Else
      curPath = curPath & "\*.IMD"
   End If       

            
'*=**********************************************
'* Festlegen des Präfix für Archivdateien.
'*=
   archPrefix = "Archiv_"   
  

'*=**********************************************
'* Ersten Dateinamen auslesen.
'*=
   curFile = Dir( curPath )   

'*=**********************************************
'* Start der Verarbeitungsschleife.
'*=
   Do While curFile <> ""   
   
'************************************************
'* Auslesen des ersten Dateisatzes mit der Historie.
'*=
	Set db = Client.OpenDatabase( curFile )
	Set task = db.Extraction
	task.IncludeAllFields
	dbName = archPrefix & curFile
	task.AddExtraction dbName, "", ""
	task.PerformTask 1, 1
	Set task = Nothing
	db.close
	Set db = Nothing   

'************************************************
'* Nächsten Dateinamen erhalten und Archivdatei erzeugen.
'*=
     curFile = Dir   

            
'************************************************
'* Wiederholen der Schleifenverarbeitung
'*=
   Loop 

'************************************************
'* Aktualisierung der IDEA-Anzeige
'*=   
   Client.RefreshFileExplorer  

End Sub