в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:56:24Z

1 версия

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

==Create a directory==

<source lang="vbnet">Public Class Tester
Public Shared Sub Main
Try
My.ruputer.FileSystem.CreateDirectory("c:\\a")
Console.WriteLine("Directory created successfully.")
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class</source>
<pre class=codeResult>Directory created successfully.</pre>

==Get CurrentDirectory==

<source lang="vbnet">Imports System.IO
Public Class Tester
Public Shared Sub Main
Console.WriteLine(Directory.GetCurrentDirectory)
End Sub
End Class</source>
<pre class=codeResult>C:\Java_Dev\WEB\dev\VB</pre>

==Get Directory contents==

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

If Directory.Exists("c:\\") Then
Dim directoryList As String() " array for directories
Dim i As Integer
directoryList = Directory.GetDirectories("c:\\")
For i = 0 To directoryList.Length - 1
Console.WriteLine(directoryList(i))
Next
End If
End Sub
End Class</source>
<pre class=codeResult>c:\\Documents and Settings
c:\\Java_Dev
c:\\oracle
c:\\Program Files
c:\\RECYCLER
c:\\System Volume Information
c:\\SYSTEM.SAV
c:\\Temp
c:\\WINDOWS</pre>

==Get Directory Creation Time==

<source lang="vbnet">Option Strict On
Imports System.Collections.ObjectModel
Imports System.IO
Public Module FileSystem
Public Sub Main()
Dim dirPath As String = "c:\\"
If String.IsNullOrEmpty(dirPath) Then Exit Sub
If Not Directory.Exists(dirPath) Then Exit Sub

Dim dirs As ReadOnlyCollection(Of String) = My.ruputer.FileSystem.GetDirectories(dirPath)
For Each dir As String In dirs
Dim dirInfo As DirectoryInfo = New DirectoryInfo(dir)
Console.WriteLine("{0} : Created {1}", dirinfo.Name,dirInfo.CreationTime)
Next
End Sub
End Module</source>
<pre class=codeResult>Documents and Settings : Created 27/08/2006 3:16:44 PM
Java_Dev : Created 28/08/2006 5:04:26 PM
oracle : Created 28/08/2006 7:04:13 PM
Program Files : Created 27/08/2006 3:20:18 PM
RECYCLER : Created 28/08/2006 7:30:41 PM
System Volume Information : Created 27/08/2006 3:16:44 PM
SYSTEM.SAV : Created 27/08/2006 11:01:08 PM
Temp : Created 28/08/2006 7:19:38 PM
WINDOWS : Created 27/08/2006 3:07:16 PM</pre>

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

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

в 16:40, 26 мая 2010

Admin: 1 версия