<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Visual Basic FAQ &#187; Диск</title>
	<atom:link href="http://www.vbfaq.ru/category/disc/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.vbfaq.ru</link>
	<description>База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant</description>
	<lastBuildDate>Wed, 21 Sep 2011 12:01:28 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3</generator>
		<item>
		<title>Как проверить наличие диска в устройстве?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-proverit-nalichie-diska-v-ustrojstve/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-proverit-nalichie-diska-v-ustrojstve/#comments</comments>
		<pubDate>Fri, 19 Dec 2008 13:00:47 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Диск]]></category>
		<category><![CDATA[диск]]></category>
		<category><![CDATA[наличие]]></category>
		<category><![CDATA[проверка]]></category>
		<category><![CDATA[устройство]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=170</guid>
		<description><![CDATA[Проверить наличие диска в устройстве. Option Explicit Dim FSO As FileSystemObject Dim CDDrive As Drive Private Sub Form_Load() Set FSO = New FileSystemObject Set CDDrive = FSO.GetDrive("C:") If CDDrive.IsReady Then MsgBox "Диск " &#038; CDDrive.VolumeName Else MsgBox "Диск в лотке отсутствует" End If Set CDDrive = Nothing Set FSO = Nothing End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-proverit-nalichie-diska-v-ustrojstve/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как открыть и закрыть дверцу CD-ROM&#8217;а?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-otkryt-i-zakryt-dvercu-cd-roma/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-otkryt-i-zakryt-dvercu-cd-roma/#comments</comments>
		<pubDate>Wed, 17 Dec 2008 13:00:06 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Диск]]></category>
		<category><![CDATA[cd-rom]]></category>
		<category><![CDATA[закрыть]]></category>
		<category><![CDATA[открыть]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=169</guid>
		<description><![CDATA[Как открыть и закрыть дверцу CD-ROM&#8217;а? Option Explicit Private Declare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long Private Sub Command1_Click() 'Открыть дверцу CD-Rom: Call mciSendString("Set CDAudio Door Open Wait", 0&#038;, 0&#038;, 0&#038;) End Sub Private [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-otkryt-i-zakryt-dvercu-cd-roma/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как изменить название метки диска</title>
		<link>http://www.vbfaq.ru/2008/09/kak-izmenit-nazvanie-metki-diska/</link>
		<comments>http://www.vbfaq.ru/2008/09/kak-izmenit-nazvanie-metki-diska/#comments</comments>
		<pubDate>Sun, 21 Sep 2008 06:00:07 +0000</pubDate>
		<dc:creator>desant</dc:creator>
				<category><![CDATA[Диск]]></category>
		<category><![CDATA[метка]]></category>
		<category><![CDATA[название]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=34</guid>
		<description><![CDATA[Как изменить название метки диска Option Explicit Private Declare Function SetVolumeLabel _ Lib "kernel32" Alias "SetVolumeLabelA" _ (ByVal lpRootPathName As String, _ ByVal lpVolumeName As String) As Long Private Sub Command1_Click() If SetVolumeLabel("d:\", "Master_BEGan") = 0 Then MsgBox "Ошибка", vbCritical, "Траблы" End If End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/kak-izmenit-nazvanie-metki-diska/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Открытие и закрытие нескольких CD-ROM ’ов</title>
		<link>http://www.vbfaq.ru/2008/09/otkrytie-i-zakrytie-neskolkix-cd-rom/</link>
		<comments>http://www.vbfaq.ru/2008/09/otkrytie-i-zakrytie-neskolkix-cd-rom/#comments</comments>
		<pubDate>Wed, 10 Sep 2008 06:11:16 +0000</pubDate>
		<dc:creator>desant</dc:creator>
				<category><![CDATA[Диск]]></category>
		<category><![CDATA[cd-rom]]></category>
		<category><![CDATA[закрыть]]></category>
		<category><![CDATA[открыть]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=21</guid>
		<description><![CDATA[Открытие и закрытие нескольких CD-ROM ’ов Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As String, ByVal uReturnLength As _ Long, ByVal hwndCallback As Long) As Long Private Sub OpenCloseDoor(strDriveLetter As String, Optional blnDoOpen As Boolean = True) Dim AliasName$, strOpenClose$ strOpenClose = IIf(blnDoOpen, "Open", "Closed") AliasName [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/otkrytie-i-zakrytie-neskolkix-cd-rom/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

