利用.NET Directory类轻松进行目录管理

Imports System.IO

Module Module1

Sub Main()

Dim testPath As String
testPath = "c:\test"

If (Path.HasExtension(testPath)) Then
Console.WriteLine("This is a file path, not a directory.")

Else

If (Directory.Exists(testPath)) Then
Console.WriteLine("This directory already exists.")

Else

Try
Directory.CreateDirectory(testPath)

Catch ex As IOException
Console.WriteLine("Error creating directory {0} - {1}", testPath, ex.Message.ToString())

End Try

If (Directory.Exists(testPath)) Then

Try
Directory.Move(testPath, "c:\techrepublic")

Catch ex As IOException
Console.WriteLine("Error moving directory {0} - {1}", testPath, ex.Message.ToString())

End Try

End If

If (Directory.Exists("c:\techrepublic")) Then

Try
Directory.Delete("c:\techrepublic", True)

Catch ex As IOException
Console.WriteLine("Error deleting directory c:\\techrepublic - {0}", ex.Message.ToString())

End Try

End If

End If

End If

End Sub

End Module