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控件,用来显示。
相关文档:
有静态和动态两种,静态的需要lib而动态的只需要一个dll就可以了(但是要知道函数的定义一般是头文
件)动态相对复杂一点!但是掌握了也不是很难
//第一步 定义函数指针就是你要调用的函数,参数必须一致,不然就内存泄露
typedef HANDLE ......
去年曾写过一篇博文,名称叫《用VB无窗口透明Usercontrol编写透明浮动按钮》,该文有一个观点是错误的,即透明无窗口Usercontrol不支持设计时点选。其实,通过在UserControl_HitTest过程里加入HitResult = vbHitResultHit语句,就可以实现设计时的点选了,为此,修改代码如下:
'* ******************* ......
最近在使用和研究OpenGL绘图,遇到不少问题。网上查阅资料的时候,发现大部分资料都是C语言,和C++写的,VB这方面的资料太少了,VB6.0的就更少,现在都流行dotnet。自己买了本OpenGL书是也是C语言版的。这个博客也开了2年多了,都没写点东东上来。趁晚上睡不着,上来写点。
一、什么是OpenGL?
OpenGL是Ope ......
Public Class Form1
Private Sub CmdTrans_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdTrans.Click
Dim psi As New System.Diagnostics.ProcessStartInfo
Dim ftpFileName As String
psi.FileName = "ftp.exe"
psi.RedirectStandardInput = ......
在日常的操作系统维护过程中,有时我们也会写一些小的脚本程序来简化系统管理工作,例如调用一些WMI函数来自动安装卸载程序之类的。
在实际工作中,我发现程序员对脚本抱怨最多的就是脚本程序很难调试这个缺点,特别是调试.vbs等WSH程序的时候,总是:
1. 在资源管理器里面双击一个. ......