<?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>solo VB.NET - Visual Basic .Net &#187; System.IO</title>
	<atom:link href="http://www.solovb.net/index.php/tag/systemio/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.solovb.net</link>
	<description>Visual Basic.NET, VB.NET, Programación, Tutoriales, Ejemplos</description>
	<lastBuildDate>Mon, 02 Jan 2012 14:30:00 +0000</lastBuildDate>
	<language>es-ES</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.5.1</generator>
		<item>
		<title>Leer un archivo de texto completo</title>
		<link>http://www.solovb.net/index.php/2009/06/04/leer-un-archivo-de-texto-completo/</link>
		<comments>http://www.solovb.net/index.php/2009/06/04/leer-un-archivo-de-texto-completo/#comments</comments>
		<pubDate>Thu, 04 Jun 2009 23:58:33 +0000</pubDate>
		<dc:creator>Eliseo</dc:creator>
				<category><![CDATA[Ejemplos]]></category>
		<category><![CDATA[Tutoriales]]></category>
		<category><![CDATA[openfiledialog]]></category>
		<category><![CDATA[ReadToEnd]]></category>
		<category><![CDATA[StreamReader]]></category>
		<category><![CDATA[System.IO]]></category>

		<guid isPermaLink="false">http://www.solovb.net/?p=495</guid>
		<description><![CDATA[Les quiero mostrar en esta oportunidad un ejemplo muy sencillo de como se puede leer y cargar un archivo de texto en un TextBox con visual basic .net.]]></description>
				<content:encoded><![CDATA[<p>Les quiero mostrar en esta oportunidad un ejemplo muy sencillo de como se puede leer y cargar un archivo de texto en un TextBox con visual basic .net.</p>
<p>Para el ejemplo necesitaremos un formulario con dos cuadros de texto, un botón yn componente OpenFileDialog. Como se ve en la figura siguiente:</p>
<p><img alt="" src="/images/lector001.jpg" class="alignnone" width="646" height="606" /></p>
<p>En el evento Load del formulario realizamos unas pocas configuraciones para los controles:</p>
<pre class="brush: vbnet; ruler: false; first-line: 1; highlight: [0]">
txtNombre.ReadOnly = True
txtContenido.ScrollBars = ScrollBars.Vertical
OpenFileDialog1.Filter = "Archivos de Texto |*.txt"
OpenFileDialog1.Title = "Abrir archivo de texto"
OpenFileDialog1.Multiselect = False
</pre>
<p>y en el evento click del botón copiamos el siguiente código:</p>
<pre class="brush: vbnet; ruler: false; first-line: 1; highlight: [0]">
OpenFileDialog1.Filter = "Archivos de Texto |*.txt"
OpenFileDialog1.Title = "Abrir archivo de texto"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    txtNombre.Text = OpenFileDialog1.FileName
    Dim objReader As System.IO.StreamReader
    objReader = File.OpenText(OpenFileDialog1.FileName)
    txtContenido.Text = objReader.ReadToEnd
End If
</pre>
<p>finalmente para que el código funcione no se olviden de importar el espacio de nombre:</p>
<pre class="brush: vbnet; ruler: false; first-line: 1; highlight: [0]">
Imports System.IO
</pre>
<p>Es un ejemplo muy fácil de realizar y muy básico. El código a analizar el realmente poco, así que no voy a hacer demasiados comentarios.<br />
Como siempre, espero que les sirva y lo puedan utilizar y personalizar como deseen.</p>
]]></content:encoded>
			<wfw:commentRss>http://www.solovb.net/index.php/2009/06/04/leer-un-archivo-de-texto-completo/feed/</wfw:commentRss>
		<slash:comments>17</slash:comments>
		</item>
		<item>
		<title>Llenar un ListView con un listado de directorio</title>
		<link>http://www.solovb.net/index.php/2009/03/18/llenar-un-listview-con-un-listado-de-directorio/</link>
		<comments>http://www.solovb.net/index.php/2009/03/18/llenar-un-listview-con-un-listado-de-directorio/#comments</comments>
		<pubDate>Wed, 18 Mar 2009 04:03:32 +0000</pubDate>
		<dc:creator>Eliseo</dc:creator>
				<category><![CDATA[Controles]]></category>
		<category><![CDATA[Ejemplos]]></category>
		<category><![CDATA[Tutoriales]]></category>
		<category><![CDATA[DirectoriInfo]]></category>
		<category><![CDATA[Directory]]></category>
		<category><![CDATA[ListView]]></category>
		<category><![CDATA[System.IO]]></category>

		<guid isPermaLink="false">http://www.solovb.net/?p=321</guid>
		<description><![CDATA[Vamos a crear en <a href="http://www.solovb.net">visual basic .net </a>una vista de un directorio en un ListView, muy similar a como lo vemos en el explorador de windows.
]]></description>
				<content:encoded><![CDATA[<p>Vamos a crear en <a href="http://www.solovb.net">visual basic .net </a>una vista de un directorio en un ListView, muy similar a como lo vemos en el explorador de windows.</p>
<p>Para ello solo necesitamos un formulario y un listview.</p>
<p>Como se muestra en la siguiente imagen, debemos agregar las columnas al listview. Ellas son: Nombre, Tamaño, Fecha creación, Fecha modificación y Ultimo acceso.</p>
<p><a href="/images/listview001.jpg"><img class="alignnone" src="/images/listview001.jpg" alt="" width="984" height="300" /></a></p>
<p>Para leer la información del directorio usaremos la instrucción DirectoryInfo contenida en el espacio de nombre System.IO por lo que tenemos que hacer un import como se muestrá abajo.</p>
<p><code></p>
<pre class="brush: vb; title: ;">
imports System.IO
</pre>
<p></code></p>
<p>Luego en el evento Load del formulario copiamos el siguiente código:</p>
<p><code></p>
<pre class="brush: vb; title: ;">
Dim d As New DirectoryInfo(&quot;C:\Windows&quot;)
ListView1.View = View.Details
ListView1.FullRowSelect = True

ListView1.BeginUpdate()
ListView1.Items.Clear()

For Each f As FileInfo In d.GetFiles
    Dim item As New ListViewItem(f.Name)

    item.SubItems.Add(f.Length)
    item.SubItems.Add(f.CreationTime)
    item.SubItems.Add(f.LastWriteTime)
    item.SubItems.Add(f.LastAccessTime)

    ListView1.Items.Add(item)
Next
ListView1.EndUpdate()
</pre>
<p></code></p>
<p>El código es muy sencillo, por lo que no haré demasiadas aclaraciones&#8230; pero si tienes alguna duda solo debes comentar y dentro de mis posibilidades te estaré contestando.</p>
]]></content:encoded>
			<wfw:commentRss>http://www.solovb.net/index.php/2009/03/18/llenar-un-listview-con-un-listado-de-directorio/feed/</wfw:commentRss>
		<slash:comments>20</slash:comments>
		</item>
	</channel>
</rss>
