VB问题 高手请进

来源：百度知道 编辑：UC知道 时间：2024/05/16 15:37:27
我想用VB做一个影音管理系统,想知道一下怎样做才可以像千千静听那样子添加整个文档的歌曲名儿以及连接到数据库呢?可以办到么??请详细地教一下步骤好不好?谢谢~~~
我是想加在一个button上面的代码 就像那个千千静听一样的 点了添加文件夹的话就弹出窗口让你选文件夹而不是选择文件窗口 2楼的filelistbox可以这样用吗?请不吝赐教~~

自己网上搜一下枚举子文件夹文件的API函数

另外:

'给一个打开文件夹的通用函数你,添加到模块中
'***********API声明:打开文件夹对话框
Private Type BrowseInfo
hwndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = 1
Const MAX_PATH = 260
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

'文件夹选择框函数 不作解释
Function opendir(ByVal Fname As Form) As String
Di