в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:50:10Z

1 версия

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

==DirectoryInfo.CreationTime==

<source lang="vbnet">

Imports System.IO
Module Module1
Sub Main()
Dim Dir As New DirectoryInfo("C:\WINNT\Temp")
Console.WriteLine("Full name: {0}", Dir.FullName)
Console.WriteLine("Creation time: {0}", Dir.CreationTime)
Console.WriteLine("Last access time: {0}", Dir.LastAccessTime)
Console.WriteLine("Last write time: {0}", Dir.LastWriteTime)
End Sub
End Module

</source>

==DirectoryInfo.FullName==

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

==DirectoryInfo.GetDirectories()==

<source lang="vbnet">

Imports System.IO
Module Module1
Sub Main()
Dim Root As New DirectoryInfo("C:\")
Dim Files As FileInfo() = Root.GetFiles("*.*")
Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")
Console.WriteLine("Root Directories")
Dim DirectoryName As DirectoryInfo
For Each DirectoryName In Dirs
Try
Console.Write(DirectoryName.FullName)
Console.Write(" contains {0} files ", DirectoryName.GetFiles().Length)
Console.WriteLine(" and {0} subdirectories ", DirectoryName.GetDirectories().Length)
Catch E As Exception
Console.WriteLine("Error accessing")
End Try
Next
End Sub
End Module

</source>

==DirectoryInfo.GetDirectories(String filter)==

<source lang="vbnet">
Imports System.IO
Module Module1
Sub Main()
Dim Root As New DirectoryInfo("C:\")
Dim Files As FileInfo() = Root.GetFiles("*.*")
Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")
Console.WriteLine("Root Directories")
Dim DirectoryName As DirectoryInfo
For Each DirectoryName In Dirs
Try
Console.Write(DirectoryName.FullName)
Console.Write(" contains {0} files ", DirectoryName.GetFiles().Length)
Console.WriteLine(" and {0} subdirectories ", DirectoryName.GetDirectories().Length)
Catch E As Exception
Console.WriteLine("Error accessing")
End Try
Next
End Sub
End Module

</source>

==DirectoryInfo.GetFiles==

<source lang="vbnet">
Imports System.IO
Module Module1
Sub Main()
Dim Root As New DirectoryInfo("C:\")
Dim Files As FileInfo() = Root.GetFiles("*.*")
Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")
Console.WriteLine("Root Files")
Dim Filename As FileInfo
For Each Filename In Files
Try
Console.Write(Filename.FullName)
Console.Write(" Size: {0} bytes", Filename.Length)
Console.WriteLine(" Last use: {0}", Filename.LastAccessTime)
Catch E As Exception
Console.WriteLine("Error accessing File")
End Try
Next
End Sub
End Module

</source>

==DirectoryInfo.LastAccessTime==

<source lang="vbnet">

Imports System.IO
Module Module1
Sub Main()
Dim Dir As New DirectoryInfo("C:\WINNT\Temp")
Console.WriteLine("Full name: {0}", Dir.FullName)
Console.WriteLine("Creation time: {0}", Dir.CreationTime)
Console.WriteLine("Last access time: {0}", Dir.LastAccessTime)
Console.WriteLine("Last write time: {0}", Dir.LastWriteTime)
End Sub
End Module

</source>

==DirectoryInfo.LastWriteTime==

<source lang="vbnet">

Imports System.IO
Module Module1
Sub Main()
Dim Dir As New DirectoryInfo("C:\WINNT\Temp")
Console.WriteLine("Full name: {0}", Dir.FullName)
Console.WriteLine("Creation time: {0}", Dir.CreationTime)
Console.WriteLine("Last access time: {0}", Dir.LastAccessTime)
Console.WriteLine("Last write time: {0}", Dir.LastWriteTime)
End Sub
End Module

</source>

==DirectoryInfo.Root==

<source lang="vbnet">

Imports System.IO
Public Class Tester
Public Shared Sub Main

Dim myDirectoryInfo As DirectoryInfo
myDirectoryInfo = New DirectoryInfo("c:\\Java_dev")
Console.WriteLine(myDirectoryInfo.Exists)

Console.WriteLine(myDirectoryInfo.Name)
Console.WriteLine(myDirectoryInfo.Parent.ToString)
Console.WriteLine(myDirectoryInfo.Root.ToString)
End Sub
End Class

</source>

==New DirectoryInfo==

<source lang="vbnet">

Imports System.IO
Module Module1
Sub Main()
Dim Root As New DirectoryInfo("C:\")
Dim Files As FileInfo() = Root.GetFiles("*.*")
Dim Dirs As DirectoryInfo() = Root.GetDirectories("*.*")
Console.WriteLine("Root Files")
Dim Filename As FileInfo
For Each Filename In Files
Try
Console.Write(Filename.FullName)
Console.Write(" Size: {0} bytes", Filename.Length)
Console.WriteLine(" Last use: {0}", Filename.LastAccessTime)
Catch E As Exception
Console.WriteLine("Error accessing File")
End Try
Next
End Sub
End Module

</source>

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

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

в 16:40, 26 мая 2010

Admin: 1 версия