vb中如何实现查找文件
来源:百度知道 编辑:UC知道 时间:2024/04/28 15:35:19
能不能举个具体的例子?刚学vb,还不大懂代码,我只要找一个a.txt文件,不知道a.txt应该写在什么位置,回答的好可以加分
楼上的编程真长.
你也可以使用控件组合进行磁盘文件查找.
如果是小型软件我建议你这样做.为因很简单速试同样不慢
使用控件有
DriveListBox 控件
DirListBox 控件
FileListBox 控件
以上控件如无需用户操作可将Visible 属性设置为FALSE
编程思路如下
首先确定查先路径.也就是对以上三个控件相应属性进行设置.
最后例用FOR 或WHILE循环.过滤FILELISTBOX控件的List属性.
以上思路仅供参考
'模块部分
Option Explicit
Declare Function MoveWindow Lib "user32" _
(ByVal hwnd As Long, _
ByVal x As Long, ByVal y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal bRepaint As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const LB_INITSTORAGE = &H1A8
Public Const LB_ADDSTRING = &H180
Public Const WM_S