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 '树形展开的时候，需要了解子目录�
相关文档：
Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......
给出代码如下:
Type WAPPushPDUStruct
SMSCLen As String
SMSCType As String
SMSC As String
PROTOCOL As String
TPMRBase As String
RePhoneNumLen As String
ReP ......
Visual Basic有着强大的数据库存取能力，不仅能够直接支持Ms Access数据库，而且通过其内部安装的ISAM驱动程序使它能间接支持FoxPro、dBASE等外来数据库。本文不仅从VB数据库体系结构的角度探索了VB对这些外来数据库的支持，还结合了一些实例具体阐述了使用数据库存取对象变量的方法实现这些外来数据库的新建、库结构修改、 ......
十天学会ASP.net之实战系列（C#和Vb.net双版本）
第一天
我认为ASP.NET比ASP难很多，希望大家做好准备。难难在实现同一个效果有很多方法，大家或许会疑惑。十天学会系列教程会清晰的写出各种方法，让大家能少一点坎坷。在ASP里面，大家几乎都是使用VB，数据库嘛，也无非是SQL和ACCESS。在ASP.NET里面，数据库还是� ......
C#自己没有Inputbox这个类，但是Inputbox也蛮好用的，所以有两种方法可以使用
一：.间接调用vb中的Inputbox功能
1。在项目中添加对Microsoft.VisualBasic引用
2。在项目中添加命名空间Using Microsoft.VisualBasic;
&n ......
