VB编程：得到文件夹里所有文件名

以下是提取文件夹下所有文件名的VB代码，它可以轻易得到一个文件夹的所有文件名，这个代码是提取C盘根目录下所有文件名，你就要改一下，就可以提取其它文件里的所有文件名。

在窗体上画一个按钮，输入以下VB源代码，运行后点击按钮，就会在窗体上输出C盘下所有文件名。

Private Sub Command1_Click()
    Dim d As New Collection '声明一个集合
    Dim f
    f = Dir("C:\*.*")  '返回C盘目录下第一个文件，这里可改成别的文件夹名
    d.Add f            '将找到的第1个文件名添加到集合里
    Do While f <> ""   '循环查找所有文件
        f = Dir
        d.Add f        '将找到的文件名添加到集合里
    Loop

    Me.Cls  '清屏，然后在窗体上输出所有文件名
    For Each f In d
        For i = 1 To Len(f)
            If Left(Right(f, i), 1) = "." Then Exit For
        Next

        If InStr(f, ".") <> 0 Then
            If InStr(f, ".scf") <> 0 Or InStr(f, ".lnk") Or InStr(f, ".url") Then
                f = Left(f, Len(f) - i)
            End If
        End If

        Print f
    Next
End Sub

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：https://wb98.com/post/34.html