vb实现目录下所有文件名目录名称的获取
前几日，有个哥们说有很多电影，问我要不要？我就让他一个一个的写过来，让哥们累个不轻。所以就想简单写个程序，获取一下文件夹下面的所有文件名称，这样就可以节省很多时间了。
软件呢，我已经上传到网站了：http://download.csdn.net/source/1802599
vb版本目录获取器 1.0（龙卷风出品）
说明：
1.选好目录后，可以直接得到目录下的文件夹和文件名称，以及统计数目。
2."树形结构"按键将会把各文件夹和文件罗列下来。
3."树形展开"将把目录下的子目录也一并展开。大家测试的时候需要注意，不要用太深的目录来测。
下面开始动手的步骤：
vb中有个函数Dir()，这个就是今天的主角了。Dir()第一次调用的时候，必须指定路径。然后其会返回一个string，这就是一个文件夹，或者一个文件的名称了。具体用法，大家google一下吧。我就不多说了。
然后就是区分返回值是文件夹，还是文件。这里用到的就是vbDirectory(=16)这个属性了。
OK. 剩下的就简单了，我把我软件中的这部分发出来share一下，大家不要说水平太差哟：
首先我是将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():
Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开
'文件夹数和名称
Dim sf As String
sf = Dir(pathname, vbDirectory) '获取第一个目录名
foldernum = 0
Do While sf <> ""
' 跳过当前的目录及上层目录
If sf <> "." And sf <> ".." Then
If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then
If treeflag = 0 Then
Text2 = Text2 & sf & vbCrLf ' 如果它是一个目录，将其名称添加到列表
ElseIf treeflag = 1 Then
Text2 = Text2 & Treestr & sf & vbCrLf
ElseIf treeflag = 2 Then '树形展开的时候，需要了解子目录�
相关文档：
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作。同时OCX控件还有利于主程序的简单化、功能的重用、隐藏程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 5.0方便地制作出自己的OCX控件供我们在编程中使用，同时还可以把它送给你周围喜欢编程的朋友!下面列出制 ......
教你如何用VB做控件*.ocx
一个控件有很多事件如：Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OC ......
把鼠标移到屏幕指定位置 如（111.111） 单击一下
再移到屏幕另一指定位置指定位置 如（222.222）单击一下
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPo ......
在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。
因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。
&n ......
ASP.Net中使用VB.Net调用存储过程并得到返回值
来源：qqread论坛 作者： 出处：巧巧读书 2006-08-03 进入讨论组
//存储过程代码
CREATE PROCEDURE [AddNewInvoiceInfo] (@sUserID int,@sClaimMethod varchar(50),@sInvoiceNum varchar(50),@sInvoiceDate datetime,@sBuyCity varchar(50))AS
Insert Into SMB_In ......
