| | Awarded by
Microsoft since 2005: |  |
| | VBOffice Info | | Visitors | 1409256 | | Impressions | 5189782 |
| |
|
| |
| Author: Michael Bauer | Homepage | | Date: 20.01.2006 | Accessed: 21533 | | | | Description
This sample creates a serial number and stores it in a simple text file. Please note, the directory must already exist while the file will automatically be created if necessary. |
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 alerts you before unintentionally replying all, or if you are a confidential BCC recipient of the ... [more] |
| | |  | Access the master category list in the blink of an eye, share your categories in a network, get a reminder service, and ... [more] |
| | |  | SAM automatically sets the sender, signature, and folder for sent items, for instance based on the recipient ... [more] |
| | |  | OLKeeper reliably prevents users from closing their Outlook window and thus possibly missing reminders or ... [more] |
| |
|
