VB中filesystemobject对象实现文件存取方法
最简单的方法是使用filesystemobject对象。而它并非VB内置对象，
需引用才可以使用。
1．filesystemObject对象引用
“工程/引用/microsoft scription Runtime”
在对象浏览器窗口中选“scripting”模块，看到增了许多对象，
drive filesystemobject textstream file等
其中filesystemobject是这些对象的关键，想要使用其它对象，
都必须先建立filesystemobject对象。
２．文件存取
dim fs as new filesystemobject 建立filesystemobject对象
dim txtf as textstream 定义了一个textstream对象变量
textstrem对象与文件的读写所有文件都必须先打开，才能读写，
filesystemobjet对象所提供的打开文件的方法有两种：
opentextfile 打开文件
createtextfile 建立文件
通过filesystemobject所打开的文件是一个TextStream对象，
而通过textstream对象的各种方法和属性，就可以进一步读写文件。
1）opentextfile 方法：打开文件
set textstream对象名=filesystemobject名.opentextfile(文件名，IO模式，是否自动建立文件）
文件名：建议写入完整路径的文件名。
IO模式：可设置成forreading(=1)、forwrting(=2)或forappending(=8)。
如果设置成forreading，则打开的文件是只读的；
如果设置成forwriting，则打开的文件是可写的，而原来文件 的内容会被清除；
如果设置成forappending，则打开的文件是可写的，但原文件 的内容不会被清除，数据会从文件 的最后面开始写入。
参数缺省： 表示forreading 只读。
是否自动建立文件：可设置成true或false。
设置为：true 则当文件不存在时，会自动
相关文档：
http://zhidao.baidu.com/question/33440250.html
在模块中输入以下代码
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1 ......
VB Treeview控件详细使用方法
1、属性
这里只给大家介绍Treeview� ......
VB根据窗口标题获取应用程序完整路径(来自网络)
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId A ......
使用VB把Excel导入到Sql数据库中，其实有几种方法。
下面我介绍的这种方法，较为简单。
其实这种方法的话，是直接使用T-SQL操作的，因此，到了VB里面，直接eccute这个代码就OK了的。
-----------------------------------------------------下面是在T-sql中的语句
if object_id('NewTable') is not null/*判断表NewTabl ......
很久以前的一个代码了。。。。。那时还沉迷于研究WindowsXP登录密码的计算方法。。。。
先新建一个VB工程，画一个CommandButton，改名为cmdGetSYSKEY，画一个TextBox，改名为txtSYSKEY，然后粘贴下面的代码，运行即可，在WindowsXP SP2 Build 2600 + VB6.0 SP6下测试通过，获得的SYSKEY与Cain&Abel v4.9.6一致。。。。 ......
