<?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/file/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>Как вытаскивать из файла по 1 символу?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-vytaskivat-iz-fajla-po-1-simvolu/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-vytaskivat-iz-fajla-po-1-simvolu/#comments</comments>
		<pubDate>Sat, 28 Feb 2009 04:00:54 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[вытаскивать]]></category>
		<category><![CDATA[символ]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=200</guid>
		<description><![CDATA[Как вытаскивать из файла по 1 символу? Option Explicit Private Sub Text2_Change() On Error GoTo ErrLabel Dim Message As String Dim NumberM As Integer Dim FileNum As Byte Message = String$(1, " ") FileNum = FreeFile Open App.Path &#038; "\1.txt" For Binary As FileNum NumberM = Val(Text2.Text) Get #FileNum, NumberM, Message Text1.Text = Message Close [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-vytaskivat-iz-fajla-po-1-simvolu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как вести лог файл, допустим каждые 5 секунд?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-vesti-log-fajl-dopustim-kazhdye-5-sekund/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-vesti-log-fajl-dopustim-kazhdye-5-sekund/#comments</comments>
		<pubDate>Fri, 27 Feb 2009 04:00:01 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[запись]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=199</guid>
		<description><![CDATA[Как вести лог файл, допустим каждые 5 секунд? 'Каждые 5 секунд будет производиться запись в файл Option Explicit Dim strInfo As String Dim FilneNum As Byte Private Sub Form_Load() Timer1.Interval = 5000 End Sub Private Sub Timer1_Timer() strInfo = Now FilneNum = FreeFile Open App.Path &#038; "\log.lg" For Append As #FilneNum Print #FilneNum, strInfo Close [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-vesti-log-fajl-dopustim-kazhdye-5-sekund/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как создать нужно колличество файлов?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-sozdat-nuzhno-kollichestvo-fajlov/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-sozdat-nuzhno-kollichestvo-fajlov/#comments</comments>
		<pubDate>Thu, 26 Feb 2009 04:00:56 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[колличество]]></category>
		<category><![CDATA[создать]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=198</guid>
		<description><![CDATA[Как создать нужно колличество файлов? Option Explicit Dim intN As Integer Dim intI As Integer Dim FileNum As Byte Private Sub Command1_Click() 'Ввели нужную цифру и нужно количество файлов ".doc" 'Причем расширение можно поменять по усмотрению 'В каталоге с программой intN = Val(Text1.Text) For intI = 1 To intN FileNum = FreeFile Open App.Path &#038; [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-sozdat-nuzhno-kollichestvo-fajlov/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как прочитать данные из файла в текстовое поле?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-prochitat-dannye-iz-fajla-v-tekstovoe-pole/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-prochitat-dannye-iz-fajla-v-tekstovoe-pole/#comments</comments>
		<pubDate>Wed, 25 Feb 2009 04:00:56 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[данные]]></category>
		<category><![CDATA[прочитать]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=197</guid>
		<description><![CDATA[Как прочитать данные из файла в текстовое поле? 'Свойство TextBox Multiline установите в True Option Explicit Dim Str As String Dim FileNum As Byte Private Sub Form_Load() Text1.Text = "" FileNum = FreeFile 'Не забудьте создать файл в папке с примером 'Иначе он будет создан программой, но будет пустой 'И результата вы не увидете Open [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-prochitat-dannye-iz-fajla-v-tekstovoe-pole/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как работать со всеми файлами заданного расширения в нужной папке?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-rabotat-so-vsemi-fajlami-zadannogo-rasshireniya-v-nuzhnoj-papke/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-rabotat-so-vsemi-fajlami-zadannogo-rasshireniya-v-nuzhnoj-papke/#comments</comments>
		<pubDate>Tue, 24 Feb 2009 04:00:53 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[работать]]></category>
		<category><![CDATA[расширение]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=196</guid>
		<description><![CDATA[Как работать со всеми файлами заданного расширения в нужной папке? 'Пример кода перебора файлов заданного расширения в каталоге 'Очень удобно если нужна не большая по функциональности программа, 'Чтобы вручную не перебирать, допустим, 100 файлов 'Возможности безграничны Option Explicit Function ListFiles(ByVal Path As String, Optional ByVal _ NestedDirs As Boolean) As String() Dim FSO As New [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-rabotat-so-vsemi-fajlami-zadannogo-rasshireniya-v-nuzhnoj-papke/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Как создать файл и открыть его блокнотом?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-sozdat-fajl-i-otkryt-ego-bloknotom/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-sozdat-fajl-i-otkryt-ego-bloknotom/#comments</comments>
		<pubDate>Mon, 23 Feb 2009 04:00:01 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[блокнот]]></category>
		<category><![CDATA[открыть]]></category>
		<category><![CDATA[создать]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=195</guid>
		<description><![CDATA[Как создать файл и открыть его блокнотом? 'Создать текстовый файл и занести информацию 'И сразу открыть файл блокнотом Option Explicit Dim FileNum As Byte Private Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-sozdat-fajl-i-otkryt-ego-bloknotom/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Как сравнить 2 файла на идентичность?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-sravnit-2-fajla-na-identichnost/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-sravnit-2-fajla-na-identichnost/#comments</comments>
		<pubDate>Sat, 21 Feb 2009 04:00:41 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[идентичность]]></category>
		<category><![CDATA[сравнить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=193</guid>
		<description><![CDATA[Как сравнить 2 файла на идентичность? Option Explicit Private Sub Command1_Click() Dim issame As Boolean Dim whole As Long Dim part As Long Dim buffer1 As String Dim buffer2 As String Dim start As String Dim X As Long Open App.Path &#038; "\1.txt" For Binary As #1 Open App.Path &#038; "\2.txt" For Binary As #2 [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-sravnit-2-fajla-na-identichnost/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как открыть любой файл/директорию?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-otkryt-lyuboj-fajldirektoriyu-2/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-otkryt-lyuboj-fajldirektoriyu-2/#comments</comments>
		<pubDate>Fri, 20 Feb 2009 04:00:48 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[директория]]></category>
		<category><![CDATA[открыть]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=192</guid>
		<description><![CDATA[Как открыть любой файл/директорию? Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" _ (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub Command1_Click() ShellExecute 0, vbNullString, "D:\1.doc", _ [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-otkryt-lyuboj-fajldirektoriyu-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как открыть любой файл/директорию?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-otkryt-lyuboj-fajldirektoriyu/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-otkryt-lyuboj-fajldirektoriyu/#comments</comments>
		<pubDate>Thu, 19 Feb 2009 04:00:05 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[директория]]></category>
		<category><![CDATA[открыть]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=191</guid>
		<description><![CDATA[Как открыть любой файл/директорию? Option Explicit Private Sub Command1_Click() 'Не забудьте создать файл Shell "cmd /X /C start D:\1.doc" End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-otkryt-lyuboj-fajldirektoriyu/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как изменить атрибуты файла?</title>
		<link>http://www.vbfaq.ru/2009/02/kak-izmenit-atributy-fajla-2/</link>
		<comments>http://www.vbfaq.ru/2009/02/kak-izmenit-atributy-fajla-2/#comments</comments>
		<pubDate>Tue, 17 Feb 2009 04:00:56 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Файл]]></category>
		<category><![CDATA[атрибуты]]></category>
		<category><![CDATA[изменить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=189</guid>
		<description><![CDATA[Как изменить атрибуты файла? Option Explicit Private Sub Command1_Click() 'Поставить атрибут "Только чтение" SetAttr App.Path &#038; "\1.doc", vbReadOnly End Sub Private Sub Command4_Click() 'Снять атрибут "Только чтение" SetAttr App.Path &#038; "\1.doc", GetAttr(App.Path &#038; "\1.doc") _ And (Not vbReadOnly) End Sub Private Sub Command2_Click() 'Поставить атрибут "Архивный" SetAttr App.Path &#038; "\1.doc", vbArchive End Sub Private Sub [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/02/kak-izmenit-atributy-fajla-2/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

