| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Besucher | 1388185 | | Aufrufe | 5084029 |
| |
|
| |
| Autor: Michael Bauer | Homepage | | Datum: 20.01.2006 | Zugriffe: 21234 | | | | Beschreibung
Dieses Beispiel erzeugt eine fortlaufende Nummer und speichert diese in einer einfachen Textdatei. In dieser einfachen Variante muss der Pfad zur Datei bereits existieren; die Datei selbst wird bei Bedarf automatisch angelegt. |
Public Function GetNextID() As Long
Dim lCurrID As Long
Dim File As String
File = "C:\Sample.txt"
lCurrID = Val(ReadFile(File))
lCurrID = lCurrID + 1
WriteFile File, CStr(lCurrID), False
GetNextID = lCurrID
End Function
|
| | |
| | |  | ReplyAll warnt Sie, bevor Sie unbeabsichtigt allen Empfängern
einer E-Mail antworten oder wenn Sie ein vertraulicher BCC-Empfänger der E-Mail ... [weiter] |
| | |  | Blitzschneller Zugriff auf die Hauptkategorienliste, gemeinsame Kategorien im Netzwerk, eine Erinnerungsfunktion ... [weiter] |
| | |  | SAM legt automatisch Absender, Signatur und Speicherort für gesendete Mails fest, z.B. anhand der ... [weiter] |
| | |  | OLKeeper verhindert zuverlässig, dass Mitarbeiter Outlook schließen und dadurch Termine oder E-Mails ... [weiter] |
| | |
|
