vb窗体预览系统文件夹

① vb 使用ListView控件显示文件夹内容

防止本程序重复运行可以在Form_Load()的开头部分加上这几句就行了
If App.PrevInstance Then
MsgBox "程序已经运行！", vbCritical, "程序"
Unload Me
End
End If

再把判断“运行过”的语句删除掉就行了
这个双击是可以执行lnk文件的啊。。

你的这张图是ListView的大图标显示，把View属性设置为lvwIcon。。

要获得图标的话要知道lnk文件连接到的exe文件路径，在用API函数ExtractIconEx提取出来图标，然后加入到ListView中，，（首先我不知道怎样从lnk文件获得exe文件所在地址……所以，做不出了~~~ -_=|||）

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

建立一个窗体，添加一个ListView控件，然后在代码窗口里添加代码：

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Option Explicit
'路径，要以“\”结尾
Const Path As String = "C:\Users\Administrator\Desktop\"
'扩展名
Const Pattern As String = "*.lnk"

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1

Private Sub Form_Load()
Dim fName As String, i As Integer
'显示模式改成详细资料
ListView1.View = lvwReport
'添加表头的列
ListView1.ColumnHeaders.Add , , "文件名", 2240
ListView1.ColumnHeaders.Add , , "文件路径", 5240
ListView1.ColumnHeaders.Add , , "已运行", 1000
'用Dir函数获取文件列表(不停的用Dir可以获得当前目录中所有文件,直到""结束)
fName = Dir$(Path & Pattern)
Dim lst As ListItem
Do While fName <> ""
'添加一行
Set lst = ListView1.ListItems.Add(, , fName)
'添加这一行的第二列
lst.ListSubItems.Add , , Path + fName
'继续获得文件
fName = Dir$
Loop
End Sub

Private Sub ListView1_DblClick()
Dim lst As ListItem
'获取选择行
Set lst = ListView1.SelectedItem
'如果这一行的第3列有东西("是")就表明运行过了,给予提示
If lst.ListSubItems.Count = 2 Then
MsgBox "已经运行过: " + lst.SubItems(1), vbOKOnly + vbExclamation, "提示"
Exit Sub
End If
'用WinAPI函数来运行lnk文件
ShellExecute Me.hwnd, "open", lst.SubItems(1), vbNullString, Path, SW_NORMAL
'运行过的打上标记
lst.ListSubItems.Add , , "是"
End Sub

② 关于VB中的文件夹浏览框!

您指的是"我的电脑"中左边的资源管理器窗口吗?它实际上是一个TreeView控件
默认情况下,该控件是不会出现在工具箱中的,您可以这样做:
右击工具箱,选择"部件"菜单,在弹出的窗口中
在"控件"选项卡中选择"Microsoft
windows
common
control
6.0(SP6)"
选中其前面的对勾,单击确定后,你将会在工具箱中发现多出了好几个控件
有一个类似于楼梯的图标,它就是您要找的控件了.
说到使用它,还真有点惭愧,本人还真不会呢,祝您好运了,
记得加分哦,楼主

③ vb 实现文件浏览

1，先添加部件，在“工程”菜单里有“部件”，打开“部件”选项卡，找到“Microsoft Common Dialog Contrlo 6.0”选项，然后把前面的勾选，确定，此时在工具箱上出现了“CommonDialog控件” 。

PrivateSubCommand1_Click()
CommonDialog1.DialogTitle=""
CommonDialog1.InitDir="C:"
CommonDialog1.Filter="*.*|*.*;"
CommonDialog1.FileName=""
CommonDialog1.ShowOpen
IfCommonDialog1.FileName<>""Then
Shell"cmd/cstart"""""""&CommonDialog1.FileName&""""
EndIf
EndSub

用上述代码即可实现浏览文件，选择后还能打开的功能。

④ VB6.0浏览文件夹对话框，怎么做

添加一个form2。把他当做弹出对话框，在form2中添加一个dirlistbox控件，在form1的command1的click事件中写入form2.show。在form2的dir1的click事件中写入form1.text1.text = dir1.path就OK了，避免使用繁琐的API函数

⑤ vb 浏览文件和文件夹

VB6.0中没有提供直接的控件，即使网上说的“现成”也时别人做的，与其用别人不如自己做一个。虽然VB6没有直接控件，但有相似及方便实现的控件。其中界面参考/wx 萧何 /wx 的Treeview，至于获取，VB6中带有个磁盘控件、目录控件和文件控件，将它们的visible设置成false，连接treeview就可以实现。在.net2008中直接就有该控件，在工具箱中。
希望能解决您的问题。

⑥ VB6.0 treeview显示文件夹及文件

桌面上放置一个treeview，名称Tv1，代码如下：
Public Function GetExtName(strFileName As String) As String
Dim strTmp As String
Dim strByte As String
Dim i As Long
For i = Len(strFileName) To 1 Step -1
strByte = Mid(strFileName, i, 1)
If strByte <> "." Then
strTmp = strByte + strTmp
Else
Exit For
End If
Next i
GetExtName = strTmp
End Function

Public Function search(ByVal strPath As String, Optional strSearch As String) As Boolean
Dim strFile As String
Dim i As Long
Dim lDirCount As Long
On Error GoTo MyErr
If Right(strPath, 1) <> "\" Then strPath = strPath + "\"
Tv1.Nodes.Add , , strPath, strPath, ImageCollapse, ImageExpand
strFile = Dir(strPath, vbDirectory Or vbHidden Or vbNormal Or vbReadOnly)
While strFile <> ""
DoEvents
If (GetAttr(strPath + strFile) And vbDirectory) <> vbDirectory Then
If LCase(GetExtName(strPath + strFile)) = LCase(GetExtName(strSearch)) Then
Tv1.Nodes.Add strPath, tvwChild, strPath + strFile, strFile, ImageCollapse, ImageExpand
End If
End If
strFile = Dir
Wend
search = True
Exit Function
MyErr:
search = False
End Function

Private Sub Form_Load()
Tv1.Style = 7
search "D:\Documents\新建文件夹1", ".xls"
search "D:\Documents\新建文件夹2", ".xls"
End Sub

⑦ VB 怎么制作“浏览”按扭，可以浏览电脑上的文件和文件夹，将浏览选择好后的地址显示在text1控制中。

给你提供几种方法，第一个如一楼那样，使用公用对话框，选择文件。第二你可以使用VB提供的驱动器列表，文件夹列表，文件列表来完成此操作，非常简单，如需代码可以联系我。第三可以通过API调用Windows的浏览文件夹对话框，给你如下代码，添加到标准模块里，需要时只要调用就行。
'这个模块利用Shell API函数弹出文件夹浏览窗口
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Private Declare Function SHGetSpecialFolderLocation Lib _
"shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder _
As Long, pIdl As ITEMIDLIST) As Long

Private Declare Function SHGetFileInfo Lib "Shell32" Alias _
"SHGetFileInfoA" (ByVal pszPath As Any, ByVal _
dwFileAttributes As Long, psfi As SHFILEINFO, ByVal _
cbFileInfo As Long, ByVal uFlags As Long) As Long

Private Declare Function ShellAbout Lib "shell32.dll" Alias _
"ShellAboutA" (ByVal hwnd As Long, ByVal szApp As _
String, ByVal szOtherStuff As String, ByVal hIcon As Long) _
As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pIdl As Long, ByVal _
pszPath As String) As Long
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal pv As Long)

Const MAX_PATH = 260

Private Type SHITEMID
cb As Long
abID() As Byte
End Type

Private Type ITEMIDLIST
mkid As SHITEMID
End Type

Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Private Function GetFolderValue(wIdx As Integer) As Long
If wIdx < 2 Then
GetFolderValue = 0
ElseIf wIdx < 12 Then
GetFolderValue = wIdx
Else
GetFolderValue = wIdx + 4
End If
End Function

Public Function SeleteFolder(ByVal frmX As Form)
'参数frmX为调用文件夹浏览窗口的窗体
Dim BI As BROWSEINFO
Dim nFolder As Long
Dim IDL As ITEMIDLIST
Dim pIdl As Long
Dim sPath As String
Dim SHFI As SHFILEINFO
Dim m_wCurOptIdx As Integer
Dim txtPath As String
Dim txtDisplayNafrmx As String

With BI
.hOwner = frmX.hwnd
nFolder = GetFolderValue(m_wCurOptIdx)

If SHGetSpecialFolderLocation(ByVal frmX.hwnd, ByVal nFolder, IDL) = NOERROR Then
.pidlRoot = IDL.mkid.cb
End If

.pszDisplayName = String$(MAX_PATH, 0)
.lpszTitle = "请选择文件夹： "
.ulFlags = 0
End With

txtPath = ""
txtDisplayName = ""

pIdl = SHBrowseForFolder(BI)

If pIdl = 0 Then Exit Function
sPath = String$(MAX_PATH, 0)
SHGetPathFromIDList ByVal pIdl, ByVal sPath

txtPath = Left(sPath, InStr(sPath, vbNullChar) - 1)
'Debug.Print txtPath
'txtDisplayName = Left$(BI.pszDisplayName, _
InStr(BI.pszDisplayName, vbNullChar) - 1)

'SHGetFileInfo ByVal pIdl, 0&, SHFI, Len(SHFI), _
SHGFI_PIDL Or SHGFI_ICON Or SHGFI_SMALLICON

'SHGetFileInfo ByVal pIdl, 0&, SHFI, Len(SHFI), _
SHGFI_PIDL Or SHGFI_ICON
'CoTaskMemFree pIdl
SeleteFolder = txtPath
'MsgBox "你选择的文件夹是" + Chr(13) + Chr(10) + txtPath
End Function

⑧ vb中 地址栏+文件/文件夹显示窗口的编程方法

DriveListBox 控件

在运行时，由于有 DriveListBox 控件，所以可选择一个有效的磁盘驱动器。该控件用来显示用户系统中所有有效磁盘驱动器的列表。可以创建对话框，通过它从任一可用驱动器的磁盘文件列表中打开文件。

语法

DriveListBox

说明

设置 List、ListCount、和 ListIndex 属性，就可以访问列表中的项目。如果需要显示 DirListBox 和 FileListBox 控件，那么可以编写代码，使它们与 DriveListBox 控件同步，并使它们之间彼此同步。

⑨ 用VB（或者VB.net）怎样打开“浏览文件夹窗口”（如图）

Private Sub Command1_Click()
Dim sf As Object
Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "选择文件夹", 0, "")
If Not sf Is Nothing Then
MsgBox "选择的文件夹是" & vbCrLf & sf.self.Path
End If
Set sf = Nothing
End Sub

⑩ Vb中实现浏览文件夹在打开想要的文件

VB 打开浏览文件夹

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

Private Const MAX_PATH = 260
Private Const BIF_RETURNONLYFSDIRS = 1

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

Private Sub Command1_Click()
Dim iNull As Integer, lpIDList As Long
Dim sPath As String, udtBI As BrowseInfo

With udtBI
'设置浏览窗口
.hWndOwner = Me.hWnd
'返回选中的目录
.ulFlags = BIF_RETURNONLYFSDIRS
End With

'调出浏览窗口
lpIDList = SHBrowseForFolder(udtBI)

If lpIDList Then
sPath = String$(MAX_PATH, 0)
'获取路径
SHGetPathFromIDList lpIDList, sPath
'释放内存
CoTaskMemFree lpIDList
iNull = InStr(sPath, vbNullChar)

If iNull Then
sPath = Left$(sPath, iNull - 1)
End If
End If

Text1.Text = sPath
End Sub

sPath 是返回的路径