'================================================================
Sub ModuleSichern()
' Aufgabe:   Speichern aller Module in Dateien
' Autor:     Juengling <Juengling@gus.de>
' Bemerkung: Nur f�r Access Version 7 getestet.
'            CBF nicht unterst�tzt!OHNE GEWÄHR !!!
'================================================================

Dim AktuelleDB As DATABASE
Dim ModulContainer As Container, Dokument As Document
Dim i As Integer
Dim Dateiname As String
Dim Pfad As String

'------------------------------

Set AktuelleDB = CurrentDb()

' Speicherung erfolgt im gleichen Verzeichnis wie die MDB
Pfad = gsExtractPath(AktuelleDB.Name) & "\"
Debug.Print "Pfad = "; Pfad

Set ModulContainer = AktuelleDB.Containers("Modules")
        
Debug.Print
Debug.Print "Letzte Žnderung", "Dateiname"
Debug.Print
"-------------------------------------------------------------"

For i = 0 To ModulContainer.Documents.Count - 1
    Set Dokument = ModulContainer.Documents(i)
    Debug.Print Dokument.LastUpdated, ;

    Dateiname = CStr(Dokument.Name) & ".bas"
    Debug.Print Dateiname;
    DoCmd.Echo True, "Sichere " & Dokument.Name & " ..."

	On Error Resume Next
	Kill Pfad & Dateiname
	On Error GoTo 0

    Debug.Print
    DoCmd.OutputTo acModule, Dokument.Name, acFormatTXT, _
		Pfad & Dateiname, False
    DoEvents
Next i

End Function
'================================================================