论坛广场 › 源码分享 › [TA原创]VB2010获得指定目录下的文件

Tesla.Angela 发表于 2011-10-8 14:07:27

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

把这代码结合ListBox，能自制一个山寨版FileListBox（此控件在VB6以后版本的VB中消失了）。
'参数：目录, 是否没有文件
'返回：字符串数组，每个元素就是一个文件名
Private Function GetFiles(ByVal szPath As String, ByRef IsNoFile As Boolean) As String()
        Dim szRet() As String, s As String
        ReDim Preserve szRet(0)
        s = Dir(szPath)
        If s = "" Then
                GetFiles = szRet
                IsNoFile = True
                Exit Function
        End If
        Do While s <> ""
                szRet(UBound(szRet)) = s
                s = Dir
                If s <> "" Then ReDim Preserve szRet(UBound(szRet) + 1)
        Loop
        GetFiles = szRet
End Function

'举例：
'dim sa() as string, b as boolean
'sa=GetFiles("c:\temp\*.exe", b)

阿杰 发表于 2011-10-10 21:49:02

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

查看完整版本: [TA原创]VB2010获得指定目录下的文件