重拾VB之四，日志加强篇
重拾VB之四，日志加强篇
关劲松 PMP
一、关于日志记录功能
主要功能点有
1 在程序目录下生成log目录，用于保存日志文件。
2 自动在log目录中，生成日志文件，文件命名用年月日定义，如20100119_log.log。
3 在日志文件中，每行记录一个时间点的运行内容。时间点的精度应该达到毫秒。
4 在日志文件中，每一行的记录内容为文本信息。
5 在需要记录日志的地方，调用记录日志过程。
二、相关过程、函数。
'* 备注:由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中，所以在使用前首先需要在在工程中引用这个文件，
'* 单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。
'*-----------------------------------------------------------------------------*
'* 注释内容,用于获取系统时间的毫秒。
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
'*-----------------------------------------------------------------------------*
'*-----------------------------------------------------------------------------*
'* 注释内容,用于保存详细log文件的方法。使用中。
Public Sub Dtllog(ByVal logText As String)
Dim fso As FileSystemObject
Dim fileName As String
Dim a As Object
Set fso = New FileSystemObject
If fso.FolderExists(App.Path & "\log\") Then
Set a = fso.OpenTextFile(App.Path & "\lo
相关文档：
简单而实用的合并Excel文件的函数，能够将多个XLS文件中指定数量的工作表自动合并到一个XLS文件里。当然，如果只是数据合并，则使用ADO就可以实现，但如果要保留表格格式，则恐怕只能使用俺的方法了。
一、函数代码：
Option Explicit
'* ********************************************************* ......
由底至上是：
• 托管资源
• WMI 基础结构
• 使用者
托管资源
托管资源是任意逻辑或物理组件，通过使用 WMI 进行公开和管理。可以使用 WMI 管理� ......
添加
两个TEXT(multiline=true)
一个按钮
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" '先清空text2
For i = 1 To Len(Text1.Text)
DoEve ......
今天用编程语言Visual Basic（VB）写出自己的记事本！记得自从上次的一个VB打造简单计算器后就再也没有写一些小程序了！今天呢，写一个简单的记事本程序吧！
工具：一台计算机（电脑）。（配置不做什么要求，现在的机器应该没有配置很低的吧！只要能运行Visual Basic 6.0就行！）
&nbs ......
