в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:22Z

1 версия

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

==Create DirectoryInfo and get its parent and 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>
<pre class=codeResult>True
Java_dev
c:\</pre>

==DirectoryInfo: create directory and sub directory==

<source lang="vbnet">Imports System.IO
Public Class Tester
Public Shared Sub Main

Dim DirInfo As System.IO.DirectoryInfo
DirInfo = System.IO.Directory.CreateDirectory("c:\a")
DirInfo.CreateSubdirectory("a")

End Sub
End Class</source>

==Get all directories under current directory==

<source lang="vbnet">Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim myDirectoryInfo As DirectoryInfo
myDirectoryInfo = New DirectoryInfo("c:\\Java_dev")

Dim myDirectoryInfos() As DirectoryInfo
Dim myDir As DirectoryInfo
Try
myDirectoryInfos = myDirectoryInfo.GetDirectories()
For Each myDir In myDirectoryInfos
Console.WriteLine(myDir.FullName)
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class</source>
<pre class=codeResult>c:\Java_dev\backup
c:\Java_dev\sdk
c:\Java_dev\support
c:\Java_dev\WEB</pre>

==Get all files under a directory and output file name==

<source lang="vbnet">Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim myDirectoryInfo As DirectoryInfo
myDirectoryInfo = New DirectoryInfo("c:\\")

Dim filesInfo() As FileInfo
Dim fileInfo As FileInfo
Try
filesInfo = myDirectoryInfo.GetFiles()
For Each fileInfo In filesInfo
Console.WriteLine(fileInfo.FullName)
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class</source>
<pre class=codeResult>c:\AUTOEXEC.BAT
c:\boot.ini
c:\CONFIG.SYS
c:\DebugMessages.txt
c:\hiberfil.sys
c:\IO.SYS
c:\MSDOS.SYS
c:\NTDETECT.ru
c:\ntldr
c:\pagefile.sys
c:\test.txt
c:\test1.txt</pre>

==Get directories under current directory with condition==

<source lang="vbnet">Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim myDirectoryInfo As DirectoryInfo
myDirectoryInfo = New DirectoryInfo("c:\\")

Dim myDirectoryInfos() As DirectoryInfo
Dim myDir As DirectoryInfo
Try
myDirectoryInfos = myDirectoryInfo.GetDirectories("wind*")
For Each myDir In myDirectoryInfos
Console.WriteLine(myDir.FullName)
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class</source>
<pre class=codeResult>c:\WINDOWS</pre>

==Get files under a directory with condition==

<source lang="vbnet">Imports System.IO
Public Class Tester
Public Shared Sub Main
Dim myDirectoryInfo As DirectoryInfo
myDirectoryInfo = New DirectoryInfo("c:\\")

Dim filesInfo() As FileInfo
Dim fileInfo As FileInfo
Try
filesInfo = myDirectoryInfo.GetFiles("*.sys")
For Each fileInfo In filesInfo
Console.WriteLine(fileInfo.FullName)
Next
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class</source>
<pre class=codeResult>c:\CONFIG.SYS
c:\hiberfil.sys
c:\IO.SYS
c:\MSDOS.SYS
c:\pagefile.sys</pre>

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

VB.Net Tutorial/Stream File/DirectoryInfo - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия