这里是一个利用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
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