我是初学者,帮帮忙!!!

解决方案 »

  1.   

    这里是一个利用System.Directory来进行显示目录和文件的示例。'Imports System.Collections
    Imports System.IO
    Imports SystemModule 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 SubEnd Module