Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Directory.CreateDirectory("c:\dyc") '创建目录
If Directory.Exists("c:\dyc") Then
Directory.Delete("c:\dyc") '删除目录
End If
MsgBox(Directory.GetCurrentDirectory) '当前应用程序目录
MsgBox(Directory.GetDirectoryRoot("c:\windows\system32")) '根目录
'MsgBox(Directory.GetParent("c:\windows\system32")) '父目录
MsgBox(Directory.GetCreationTime("c:\windows\system32")) '目录创建的时间、时间
REM 查找子目录
Dim dirs() As String = Directory.GetDirectories("c:\windows")
For i = 0 To dirs.Length - 1
Debug.Print(dirs(i))
Next
REM 查找文件
Dim files() As String = Directory.GetFiles("c:\windows")
For i = 0 To files.Length - 1
Debug.Print(files(i))
Next
REM 查找子目录和文件
Dim dirfiles() As String = Directory.GetFileSystemEntries("c:\windows")
For i = 0 To dirfiles.Length - 1
Debug.Print(dirfiles(i))
Next
End Sub
End Class
精典使用案例:
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dirs() As String = Directory.GetDirectories("c:\")
Dim files() As String = Directory.GetFiles("c:\")
Dim dirfiles() As String = Directory.GetFileSystemEntries("c:\")
Dim dris() As String = Directory.GetLogicalDrives()
For Each temp As String In dirs
ListBox1.Items.Add(temp)
Next
For Each temp As String In files
ListBox2.Items.Add(temp)
Next
For Each temp As String In dirfiles
ListBox3.Items.Add(temp)
Next
For Each temp As String In dris
ListBox4.Items.Add(temp)
Next
End Sub
End Class
本文介绍如何利用C#中的Directory类进行文件夹的基本操作,包括创建、删除、获取当前目录、获取根目录等,并提供了查找子目录、文件及文件系统条目的示例代码。
630

被折叠的 条评论
为什么被折叠?



