[TA原创]VB2010获得指定目录下的文件

Tesla.Angela

把这代码结合ListBox，能自制一个山寨版FileListBox（此控件在VB6以后版本的VB中消失了）。

1. 
   
2. '参数：目录, 是否没有文件
   
3. '返回：字符串数组，每个元素就是一个文件名
   
4. Private Function GetFiles(ByVal szPath As String, ByRef IsNoFile As Boolean) As String()
   
5.         Dim szRet() As String, s As String
   
6.         ReDim Preserve szRet(0)
   
7.         s = Dir(szPath)
   
8.         If s = "" Then
   
9.                 GetFiles = szRet
   
10.                 IsNoFile = True
    
11.                 Exit Function
    
12.         End If
    
13.         Do While s <> ""
    
14.                 szRet(UBound(szRet)) = s
    
15.                 s = Dir
    
16.                 If s <> "" Then ReDim Preserve szRet(UBound(szRet) + 1)
    
17.         Loop
    
18.         GetFiles = szRet
    
19. End Function
    
20. 
    
21. '举例：
    
22. 'dim sa() as string, b as boolean
    
23. 'sa=GetFiles("c:\temp\*.exe", b)
    

复制代码

阿杰

我刚学习VB时也是从磁盘文件读写操作开始学起了