当前位置:编程学习 > VB >>

怎样用vb.net2005写出任意一文件夹里的所有文件的文件名??

我是初学者,帮帮忙!!! --------------------编程问答-------------------- 这里是一个利用System.Directory来进行显示目录和文件的示例。

'Imports System.Collections
Imports System.IO
Imports System

Module Module1

    

    Sub Main()
        Dim path As String
        Dim m_files As String
        Dim dir As System.IO.Directory
        Dim m_fileNames As String() '文件
        Dim m_dirNames As String() '自目录
        Dim m_dirs As String

        Dim m_cmdl() As String = System.Environment.GetCommandLineArgs()

        Try


            'path = dir.GetCurrentDirectory()
            m_fileNames = dir.GetFiles(m_cmdl(1))

            m_dirNames = dir.GetDirectories(m_cmdl(1)) '自目录
        Catch
            path = dir.GetCurrentDirectory()
            m_fileNames = dir.GetFiles(path)

            m_dirNames = dir.GetDirectories(path)
            'Console.WriteLine(path)
        End Try

       

        '--------------------------------------
        '获取文件
        For Each m_files In m_fileNames
            Console.WriteLine(m_files)
        Next m_files

        For Each m_dirs In m_dirNames
            Console.WriteLine("<DIR>" & vbTab & m_dirs)
        Next m_dirs
    End Sub

End Module
补充:VB ,  资源
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,