в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:50:13Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.IO/Directory - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия