http://www.vbex.ru/index.php?action=history&feed=atom&title=VB.Net%2FFile_Directory%2FDriveVB.Net/File Directory/Drive - История изменений2026-04-06T01:03:11ZИстория изменений этой страницы в викиMediaWiki 1.30.0http://www.vbex.ru/index.php?title=VB.Net/File_Directory/Drive&diff=870&oldid=prev в 16:40, 26 мая 20102010-05-26T16:40:06Z<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:40, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>http://www.vbex.ru/index.php?title=VB.Net/File_Directory/Drive&diff=871&oldid=prevAdmin: 1 версия2010-05-26T12:45:25Z<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Display Drive Info: Drive Letter==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For Each drive_info As DriveInfo In DriveInfo.GetDrives()<br />
Console.WriteLine(drive_info.Name)<br />
Next drive_info<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Get Available Free Space for a Drive==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For Each drive_info As DriveInfo In DriveInfo.GetDrives()<br />
Console.Write(drive_info.Name & " " )<br />
Console.WriteLine(drive_info.RootDirectory.ToString)<br />
If drive_info.IsReady() Then<br />
Console.WriteLine( drive_info.AvailableFreeSpace().ToString)<br />
End If<br />
Next drive_info<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Get Drive File System Format==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For Each drive_info As DriveInfo In DriveInfo.GetDrives()<br />
Console.Write(drive_info.Name & " " )<br />
Console.WriteLine(drive_info.RootDirectory.ToString)<br />
If drive_info.IsReady() Then<br />
Console.WriteLine( drive_info.DriveFormat())<br />
End If<br />
Next drive_info<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Get Root Directory for each Drive==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For Each drive_info As DriveInfo In DriveInfo.GetDrives()<br />
Console.Write(drive_info.Name & " " )<br />
Console.WriteLine(drive_info.RootDirectory.ToString)<br />
Next drive_info<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Get the Drive Type==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For Each drive_info As DriveInfo In DriveInfo.GetDrives()<br />
Console.Write(drive_info.Name & " " )<br />
Console.WriteLine(drive_info.DriveType().ToString)<br />
Next drive_info<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Get Total Free Space Drive==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For Each drive_info As DriveInfo In DriveInfo.GetDrives()<br />
Console.Write(drive_info.Name & " " )<br />
Console.WriteLine(drive_info.RootDirectory.ToString)<br />
If drive_info.IsReady() Then<br />
Console.WriteLine( drive_info.TotalFreeSpace().ToString)<br />
End If<br />
Next drive_info<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Get Volumn Label for a Drive==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For Each drive_info As DriveInfo In DriveInfo.GetDrives()<br />
Console.Write(drive_info.Name & " " )<br />
Console.WriteLine(drive_info.RootDirectory.ToString)<br />
If drive_info.IsReady() Then<br />
Console.WriteLine( drive_info.VolumeLabel())<br />
End If<br />
Next drive_info<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Is Your Drive Ready==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Imports System.IO<br />
<br />
Public Class MainClass<br />
Shared Sub Main()<br />
For Each drive_info As DriveInfo In DriveInfo.GetDrives()<br />
Console.Write(drive_info.Name & " " )<br />
Console.WriteLine(drive_info.IsReady().ToString)<br />
Next drive_info<br />
End Sub <br />
End Class<br />
<br />
</source><br />
<br />
<br />
==List each folder at the root of your C drive==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System<br />
Public Class MainClass<br />
Shared Sub Main()<br />
"List each folder at the root of your C drive<br />
For Each strFolder As String In _<br />
My.ruputer.FileSystem.GetDirectories("C:\")<br />
"Add the item to the list<br />
System.Console.WriteLine(strFolder)<br />
Next<br />
End Sub<br />
End Class<br />
<br />
</source><br />
<br />
<br />
==Print out all logical dirve letters==<br />
<br />
<br />
<br />
<br />
<source lang="vbnet"><br />
Imports System.IO<br />
Module Module1<br />
Sub Main()<br />
Dim DriveList As String() = Directory.GetLogicalDrives()<br />
Dim Drive As String<br />
Console.WriteLine("Logical Drives")<br />
For Each Drive In DriveList<br />
Console.WriteLine(Drive)<br />
Next<br />
End Sub<br />
End Module<br />
<br />
<br />
</source></div>Admin