Das nachfolgende Beispiel zeigt, wie sich unter VBA das Öffnen von z.B. Word-Dokumenten sehr einfach protokollieren lässt. Somit lässt sich dann später jederzeit nachvollziehen, wer ein bestimmtes Dokument wann geöffnet hat. Und so geht's:
Da die Protokoll-Datei bei jedem Zugriff auf das Dokument "wächst", kann man über Protokoll_Check_FileSize die Größe der Protokoll-Datei abfragen, um diese auf eine bestimmte Maximal-Größe zu begrenzen (z.B. max. 128 KB). Private Sub Protokoll_Check_FileSize( _ ByVal sFile As String, ByVal nMaxSize As Long) Dim nFileSize As Long Dim sName As String Dim sExt As String Dim sPath As String On Error Resume Next ' Aktuelle Größe ermitteln nFileSize = FileLen(sFile) If nFileSize > nMaxSize Then ' Pfad und Dateiname ermitteln sPath = sFile: sName = "" While Right$(sPath, 1) <> "\" And sPath <> "" sName = Right$(sFile, 1) & sName sPath = Left$(sPath, Len(sPath) - 1) Wend ' Extension sExt = "" While Right$(sName, 1) <> "." And sName <> "" sExt = Right$(sName, 1) & sExt sName = Left$(sName, Len(sName) - 1) Wend ' Datei umkopieren! ' Wird ja nur max. einmal pro Tag passieren, ' daher das heutige Datum FileCopy sFile, _ sPath & sName & "_" & Format(Now, "yymmdd") & sExt Kill sFile End If End Sub Weitere Anwendungsmöglichkeiten wäre beim Schliessen: Private Sub Document_Close(), usw. Dieser Tipp wurde bereits 19.408 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |