<?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/folder/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/2009/11/vydelit-imya-poslednej-papki-iz-polnogo-puti/</link>
		<comments>http://www.vbfaq.ru/2009/11/vydelit-imya-poslednej-papki-iz-polnogo-puti/#comments</comments>
		<pubDate>Mon, 30 Nov 2009 04:09:48 +0000</pubDate>
		<dc:creator>Александр</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=340</guid>
		<description><![CDATA[Выделить имя последней папки из полного пути Dim Names1 'массив имен обрабатываемых папок ВВОД ИСХОДНЫХ ДАННЫХ Names1 = Array ("D:\Test","C:\Test2") 'перечислить имена архивируемых папок Dim Names2(40) 'массив на 40 позиций хранящий имена конечных папок получателя архивных данных Arhiv1="D:\Arh\" ' -указать место расположение архивов. Наличие и отсутствие слешей в \Arhiv1\ и \Names1 необходимо соблюсти в соответствии [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/11/vydelit-imya-poslednej-papki-iz-polnogo-puti/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Выбор папки</title>
		<link>http://www.vbfaq.ru/2009/02/vybor-papki/</link>
		<comments>http://www.vbfaq.ru/2009/02/vybor-papki/#comments</comments>
		<pubDate>Sun, 22 Feb 2009 04:00:05 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Папки]]></category>
		<category><![CDATA[выбор]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=194</guid>
		<description><![CDATA[Выбор папки. Форма: Option Explicit Dim udtBrowseInfo As BROWSEINFO, pid As Long Dim path As String Private Sub Form_Load() With udtBrowseInfo .hOwner = Me.hWnd .lpszTitle = "Выберите папку и получите путь к ней" .ulFlags = BIF_RETURNONLYFSDIRS End With pid = SHBrowseForFolder(udtBrowseInfo) path = Space(260) SHGetPathFromIDList ByVal pid, ByVal path Debug.Print Left$(path, InStr(1, path, Chr(0)) - [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/vybor-papki/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как удалить папку, не содержащую файлов?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-udalit-papku-ne-soderzhashhuyu-fajlov/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-udalit-papku-ne-soderzhashhuyu-fajlov/#comments</comments>
		<pubDate>Wed, 18 Feb 2009 04:00:02 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Папки]]></category>
		<category><![CDATA[удалить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=190</guid>
		<description><![CDATA[Как удалить папку, не содержащую файлов? Option Explicit Private Declare Function RemoveDirectory Lib "kernel32.dll" _ Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long Private Sub Command1_Click() Dim blnDir As Boolean blnDir = RemoveDirectory(App.Path &#038; "\1") If blnDir = True Then MsgBox "Папка была удалена", vbInformation Else MsgBox "Операция провалилась", vbCritical End If End End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-udalit-papku-ne-soderzhashhuyu-fajlov/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Открытие стандартного диалогового окна выбора каталога</title>
		<link>http://www.vbfaq.ru/2008/09/otkrytie-standartnogo-dialogovogo-okna-vybora-kataloga/</link>
		<comments>http://www.vbfaq.ru/2008/09/otkrytie-standartnogo-dialogovogo-okna-vybora-kataloga/#comments</comments>
		<pubDate>Fri, 19 Sep 2008 03:56:58 +0000</pubDate>
		<dc:creator>desant</dc:creator>
				<category><![CDATA[Папки]]></category>
		<category><![CDATA[адрес]]></category>
		<category><![CDATA[величина]]></category>
		<category><![CDATA[возвращает]]></category>
		<category><![CDATA[каталог]]></category>
		<category><![CDATA[кнопка]]></category>
		<category><![CDATA[окно]]></category>
		<category><![CDATA[переменая]]></category>
		<category><![CDATA[путь]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=36</guid>
		<description><![CDATA[Открытие стандартного диалогового окна выбора каталога. SHBrowseForFolder &#8212; вызывает диалоговое окно, и возвращает адрес идентификатора в списке директорий, который определяет позицию выбранной директорий относительно корневого каталога. Если нажать кнопку Отмены в диалоговом окне, возвращаемая величина &#8212; Null. SHGetPathFromIDList &#8212; возвращает в переменую pszPath as String полный путь каталога. Private Type BROWSEINFO hOwner As Long pidlRoot [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/09/otkrytie-standartnogo-dialogovogo-okna-vybora-kataloga/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

