<?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>Sun, 21 Feb 2010 10:44:07 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.8.6</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<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 необходимо соблюсти в соответствии с образцом!

Dim WSHshell [...]]]></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)) - 1)
End
End Sub

Модуль:
Option [...]]]></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 &#8211; вызывает диалоговое окно, и возвращает адрес идентификатора в списке директорий, который определяет позицию выбранной директорий относительно корневого каталога. Если нажать кнопку Отмены в диалоговом окне, возвращаемая величина &#8211; Null.

SHGetPathFromIDList &#8211; возвращает в переменую pszPath as String полный путь каталога.

Private Type BROWSEINFO
  hOwner As Long
  pidlRoot As [...]]]></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>
