重拾VB之一，日志编
重拾VB之一，日志编
PMP 关劲松
鬼使神差，09年12月入职的公司仍使用VB开发软件，虽然并非专职开发，但也不得不在事隔4年之后，重新使用VB进行开发。
首先是为自动化测试软件增加日志功能，将每天的数据记录到一个log文件。我为了方便使用了FSO对象，由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中，所以在使用前首先需要在在工程中引用这个文件，单击“工程”，“引用”，然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框，然后单击“确定”。
文件系统对象FSO的英文全称是File System Object ，这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。通过采用object.method这种在面向对象编程中广泛使用的语法，将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。
目录常用操作:
CreateFolder ：创建一个文件夹 。
DeleteFolder：删除一个文件夹 。
MoveFolder ：移动一个文件夹 。
CopyFolder：复制一个文件夹 。
FolderExists： 查找一个文件夹是否在驱动器上 。
由于有关File对象的复制，删除，移动等操作和Folder对象类似，所以这部分内容就不再重复。这里主要讲述利用File对象和TextStream对象操作文本文件。
通常对文本文件的操作包括在文本文件中创建数据，在文本文件中添加数据，删除文本文件的数据等操作。这些操作都可以通过File对象
和FileSystemObject对象的相关方法完成。不过在使用之前，首先要创建一个文本文件，这可以通过三种方法完成。一种方法是使用
FileSystemObject对象的 CreateTextFile 方法。要创建一个空文本文件，可以用以下语句：
1. Dim fsoTest As New FileSystemObject, fil1 As File
Set fil 1= fsoTest.CreateTextFile(“c:\testfile.txt", True)
CreateTextFile方法的第一个参数用来指定，第二个参数用来指定如果磁盘上已经存在要创建的文件是否覆盖，TRUE表示覆盖， FALSE表示
相关文档：
Option Explicit
Private Sub Form_Load()
'工程->引用->选中Microsoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'连接数据库的代码段
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Sour ......
虽然在VB里实现XP风格很简单，但是要使用XP风格同时又让按钮显示图片，则实现起来要麻烦一些，为此，我写了一个控件来实现前述功能，同时让读者可以从中了解XP主题界面的绘制过程。
使用办法很简单，在VB里新建一个工程，然后添加一个控件模块，粘贴以下代码，再将控件放置到窗口即 ......
http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx
不用FSO的复制文件夹得方法？
用API函数 SHFileOperation
以下是使用SHFileOperation删除复制移动文件的例子，可以复制文件夹
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pfrom As String
pTo As String
fFlags As ......
虽然WindowsXP的界面非常华丽。但是令人遗憾的是，我们用VB写的程序除了菜单和窗口的外观是XP风格外，其他控件还是一如既往的是普通风格。我想，有的程序在XP下有XP的风格，VB也一定有办法实现XP的风格。后来笔者在网上看到一篇介绍XML的文章，又在网上找到了一篇实现XP风格的文章，经过自己的实践，终于找到了VB程序 ......
