VB 一个API方式存取日志文件的模块

程序代码

'**************************************

' 模块名称: AppendToLog
' 功能描述:一个很不错的日志文件写入模块，不同于
'     open/print/close写文件方法,这个模块使用API
'     存取文件，这样保证文件能正确的存取，及时被
'     存取的文件正被其他用户打开。这个模块是最安全
'     有效的文件写入方法,用于日志文件的创建，当然
'     也可以用于其他文件存取。
'   : 枕善居收藏整理
'**************************************
'API 声明
Const GENERIC_WRITE = &H40000000
Const FILE_SHARE_READ = &H1
Const Create_NEW = 1
Const OPEN_EXISTING = 3
Const FILE_ATTRIBUTE_NORMAL = &H80
Cons