VB遍历当前目录
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub
Function SeachFolder(str As String)
Dim itemFolder
Dim curFolder As Folder
Set curFolder = FSO.GetFolder(str)
Dim itemFile
For Each itemFolder In curFolder.SubFolders
SeachFolder (CStr(itemFolder))
Me.Text1.Text = Me.Text1.Text & itemFolder & Chr(13) & Chr(10)
For Each itemFile In itemFolder.Files
Me.Text1.Text = Me.Text1.Text & itemFile & Chr(13) & Chr(10)
Next
Next
End Function
注： 要用FSO，需要引用Microsoft Scripting Runtime，窗体上要放一个text控件，用来显示。
相关文档：
本文来自qingye2008所发的此帖的讨论，感谢陈辉、马云剑、qingye的耐心指点和分享。
1、引言
话说qingye同学得到了一个用于加解密的Dll（该动态库在这里下载），通过Dll Export Viewer看到dll有2个导出函数分别是Dll_EncIn和Dll_EncOut，qingye同学想在VB中使用这两个函数。因为搞不到接口说明，只好通过查看汇编代码来猜 ......
代码：
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetW ......
去年曾写过一篇博文，名称叫《用VB无窗口透明Usercontrol编写透明浮动按钮》，该文有一个观点是错误的，即透明无窗口Usercontrol不支持设计时点选。其实，通过在UserControl_HitTest过程里加入HitResult = vbHitResultHit语句，就可以实现设计时的点选了，为此，修改代码如下：
'* ******************* ......
JavaScript/VB Script脚本程序一般有两种执行方式，一种是嵌入在宿主程序里面执行，比如在IE浏览器里面执行；另外一种，在资源管理器里面双击执行（虽然还是通过另外一个程序解释执行，但是给人的感觉毕竟是直接运行）。
这两种方式，都可以使用Visual Studio来进行调试，先看大家用得比较频繁的网页脚本程序的调试：
1 ......
相信现在绝大多数计算机上使用的是IE浏览器。如何通过编程控制IE的操作呢，本文将一步步介绍如何通过VB
调用IE的对象库来对IE进行控制。
本文使用的编程工具是VB6英文企业版，浏览器是IE5，以下的代码只能在IE4及以上版本下运行。另外为了能深
入了解程序代码，最好能安装MSDN。 ......
