请教各位大侠 如何打开一个空的文件目录啊？

bluemoon

请问如何打开一个空的文件目录啊？用CommonDialog 的showopen 属性只能带开含有文件的目录啊
另：如何判断一个文件夹是否为空啊？

efan2000

这是一个Window中使用的目录浏览器。

2. 
   
3. Private Type BrowseInfo
   
4.     hWndOwner As Long
   
5.     pIDLRoot As Long
   
6.     pszDisplayName As Long
   
7.     lpszTitle As Long
   
8.     ulFlags As Long
   
9.     lpfnCallback As Long
   
10.     lParam As Long
    
11.     iImage As Long
    
12. End Type
    
13. Const BIF_RETURNONLYFSDIRS = 1
    
14. Const MAX_PATH = 260
    
15. Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
    
16. Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
    
17. Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
    
18. Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
    
19. Private Sub Form_Load()
    
20.     'KPD-Team 1998
    
21.     'URL: http://www.allapi.net/
    
22.     'KPDTeam@Allapi.net
    
23.     Dim iNull As Integer, lpIDList As Long, lResult As Long
    
24.     Dim sPath As String, udtBI As BrowseInfo
    
25. 
    
26.     With udtBI
    
27.         'Set the owner window
    
28.         .hWndOwner = Me.hWnd
    
29.         'lstrcat appends the two strings and returns the memory address
    
30.         .lpszTitle = lstrcat("C:", "")
    
31.         'Return only if the user selected a directory
    
32.         .ulFlags = BIF_RETURNONLYFSDIRS
    
33.     End With
    
34. 
    
35.     'Show the 'Browse for folder' dialog
    
36.     lpIDList = SHBrowseForFolder(udtBI)
    
37.     If lpIDList Then
    
38.         sPath = String$(MAX_PATH, 0)
    
39.         'Get the path from the IDList
    
40.         SHGetPathFromIDList lpIDList, sPath
    
41.         'free the block of memory
    
42.         CoTaskMemFree lpIDList
    
43.         iNull = InStr(sPath, vbNullChar)
    
44.         If iNull Then
    
45.             sPath = Left$(sPath, iNull - 1)
    
46.         End If
    
47.     End If
    
48. 
    
49.     MsgBox sPath
    
50. End Sub
    

<br /> Private Type BrowseInfo<br />     hWndOwner As Long<br />     pIDLRoot As Long<br />     pszDisplayName As Long<br />     lpszTitle As Long<br />     ulFlags As Long<br />     lpfnCallback As Long<br />     lParam As Long<br />     iImage As Long<br /> End Type<br /> Const BIF_RETURNONLYFSDIRS = 1<br /> Const MAX_PATH = 260<br /> Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)<br /> Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long<br /> Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long<br /> Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long<br /> Private Sub Form_Load()<br />     'KPD-Team 1998<br />     'URL: http://www.allapi.net/<br />     'KPDTeam@Allapi.net<br />     Dim iNull As Integer, lpIDList As Long, lResult As Long<br />     Dim sPath As String, udtBI As BrowseInfo<br /> <br />     With udtBI<br />         'Set the owner window<br />         .hWndOwner = Me.hWnd<br />         'lstrcat appends the two strings and returns the memory address<br />         .lpszTitle = lstrcat("C:", "")<br />         'Return only if the user selected a directory<br />         .ulFlags = BIF_RETURNONLYFSDIRS<br />     End With<br /> <br />     'Show the 'Browse for folder' dialog<br />     lpIDList = SHBrowseForFolder(udtBI)<br />     If lpIDList Then<br />         sPath = String$(MAX_PATH, 0)<br />         'Get the path from the IDList<br />         SHGetPathFromIDList lpIDList, sPath<br />         'free the block of memory<br />         CoTaskMemFree lpIDList<br />         iNull = InStr(sPath, vbNullChar)<br />         If iNull Then<br />             sPath = Left$(sPath, iNull - 1)<br />         End If<br />     End If<br /> <br />     MsgBox sPath<br /> End Sub<br />

关于文件夹和文件的操作，可以在VB或者VBA中引用Microsoft Scripting Runtime类型库，它提供了一些比较简单的方法来操作。
如：

2. 
   
3. Sub test()
   
4.     Dim fso As FileSystemObject
   
5.     Set fso = New FileSystemObject
   
6.     '判断文件夹是否存在
   
7.     Debug.Print fso.FolderExists("c:\test")
   
8.     '判断文件是否存在
   
9.     Debug.Print fso.FileExists("c:\test")
   
10.     '判断文件夹中子文件夹的数目
    
11.     Debug.Print fso.GetFolder("c:\test").SubFolders.Count
    
12.     '判断文件夹中文件的数目
    
13.     Debug.Print fso.GetFolder("c:\test").Files.Count
    
14.     Set fso = Nothing
    
15. End Sub
    

<br /> Sub test()<br />     Dim fso As FileSystemObject<br />     Set fso = New FileSystemObject<br />     '判断文件夹是否存在<br />     Debug.Print fso.FolderExists("c:\test")<br />     '判断文件是否存在<br />     Debug.Print fso.FileExists("c:\test")<br />     '判断文件夹中子文件夹的数目<br />     Debug.Print fso.GetFolder("c:\test").SubFolders.Count<br />     '判断文件夹中文件的数目<br />     Debug.Print fso.GetFolder("c:\test").Files.Count<br />     Set fso = Nothing<br /> End Sub<br />

其它的用法可以参考VBA帮助。

bluemoon

感谢，非常！！