VB.Net by API/System.IO/DirectoryInfo

Материал из VB Эксперт
Перейти к: навигация, поиск

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>