vb操作文件夹

来源：百度知道 编辑：UC知道 时间：2024/06/14 11:30:50
用vb做关于文件夹的内容 我没做过，所以请高手说详细点 包括建立 文件夹对象什么的！我要的功能是：
一个按钮让用户选择一个目录，不是文件，选目录就行了！比如他选了D:\1\2
那么我要在文件夹2下面去判断有没有XX.txt文件，然后还要判断2下面有没有文件了，有的话我要遍历文件夹的名字，2下面的下面还有的话 继续判断！
即主要实现选定文件夹中有没有某个指定文件和有没有子文件夹！

特意为你写了如下代码 ，完全能达到你的要求
Option Explicit

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 BIF_RETURNONLYFSDIRS = 1
Private 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

Dim Fso As Object
Dim Folder As Object, F1 As Object
Dim Sf As Object, File As Object
Dim Fc