VB.Net by API/System.IO/Directory
Версия от 19:40, 26 мая 2010; (обсуждение)
Содержание
Directory.CreateDirectory
<source lang="vbnet"> Imports System.IO Module Module1
Sub Main() Console.WriteLine("Creating directories...") Directory.CreateDirectory("D:\test01") Directory.CreateDirectory("D:\Temp\Sample02") Directory.CreateDirectory("Sample03") Console.WriteLine("Directories created") End Sub
End Module
</source>
Directory.Delete
<source lang="vbnet"> Imports System.IO Module Module1
Sub Main() Try Directory.Delete("C:\Sample01", True) Catch E As Exception Console.WriteLine("Error deleting directory C:\Sample01") Console.WriteLine("Error {0}", E.Message) End Try End Sub
End Module
</source>
Directory.Exists
<source lang="vbnet"> Imports System.IO Module Module1
Sub Main() Try If (Directory.Exists("D:\test01")) Then Console.WriteLine("D:\test01 already exists") Else Directory.CreateDirectory("C:\test01") End If Console.WriteLine("Directories created") Catch E As Exception Console.WriteLine("Error creating directory") Console.WriteLine("Error: {0}", E.Message) End Try End Sub
End Module
</source>
Directory.GetCurrentDirectory()
<source lang="vbnet">
Imports System.IO Module Module1
Sub Main() Dim Current As String Dim Parent As DirectoryInfo Try Current = Directory.GetCurrentDirectory() Parent = Directory.GetParent(Current) Console.WriteLine("Current directory {0}", Current) Console.WriteLine("Parent directory {0}", Parent.FullName) Catch E As Exception Console.WriteLine("Error determining parent directory") Console.WriteLine(E.Message) End Try End Sub
End Module
</source>
Directory.GetDirectoryRoot
<source lang="vbnet"> Imports System.IO Public Class Tester
Public Shared Sub Main Console.WriteLine(Directory.GetDirectoryRoot("c:\\Java_Dev")) End Sub
End Class
</source>
Directory.GetFileSystemEntries
<source lang="vbnet">
Imports System.IO public class Test
public Shared Sub Main Dim aryItems() As String Dim strPath As String = "C:\Program Files" Dim strItem As String aryItems = Directory.GetFileSystemEntries(strPath) For Each strItem In aryItems If Directory.Exists(strItem) Then Console.WriteLine("FOLDER " & strItem) Else Console.WriteLine("FILE " & strItem) End If Next strItem End Sub
End class
</source>
Directory.GetLogicalDrives()
<source lang="vbnet"> Imports System.IO Module Module1
Sub Main() Dim DriveList As String() = Directory.GetLogicalDrives() Dim Drive As String Console.WriteLine("Logical Drives") For Each Drive In DriveList Console.WriteLine(Drive) Next End Sub
End Module
</source>
Directory.GetParent
<source lang="vbnet">
Imports System.IO Module Module1
Sub Main() Dim Current As String Dim Parent As DirectoryInfo Try Current = Directory.GetCurrentDirectory() Parent = Directory.GetParent(Current) Console.WriteLine("Current directory {0}", Current) Console.WriteLine("Parent directory {0}", Parent.FullName) Catch E As Exception Console.WriteLine("Error determining parent directory") Console.WriteLine(E.Message) End Try End Sub
End Module
</source>
Directory.Move
<source lang="vbnet">
Imports System.IO Public Class Tester
Public Shared Sub Main Directory.Move("c:\\b", "c:\\a") End Sub
End Class
</source>
Directory.SetCurrentDirectory
<source lang="vbnet"> Imports System.IO Module Module1
Sub Main() Console.WriteLine("Current directory is {0}", Directory.GetCurrentDirectory()) Directory.SetCurrentDirectory("C:\") Console.WriteLine("Current directory is {0}", Directory.GetCurrentDirectory()) End Sub
End Module
</source>