当前位置:首页 » 程序代码 » 正文

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

来源:济亨网

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

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号