Sección vb.net

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones empresariales sobre base de datos

12 - Ejemplos del control FolderBrowserDialog

Ejemplos del componente FolderBrowserDialog

-----------------------------------------------------

Ejemplo para desplegar el cuadro de diálogo para poder seleccionar una carpeta del sistema

El siguiente código llama al diálogo con el método ShowDialog , y luego retorna la cantidad de archivos del directorio seleccionado

Código fuente en el form

Option Explicit On Imports System.Collections Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button1.Click Try ' Configuración del FolderBrowserDialog With FolderBrowserDialog1 .Reset() ' resetea ' leyenda .Description = " Seleccionar una carpeta " ' Path " Mis documentos " .SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) ' deshabilita el botón " crear nueva carpeta " .ShowNewFolderButton = False '.RootFolder = Environment.SpecialFolder.Desktop '.RootFolder = Environment.SpecialFolder.StartMenu Dim ret As DialogResult = .ShowDialog ' abre el diálogo ' si se presionó el botón aceptar ... If ret = Windows.Forms.DialogResult.OK Then Dim nFiles As ObjectModel.ReadOnlyCollection(Of String) nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath) MsgBox("Total de archivos: " & CStr(nFiles.Count), _ MsgBoxStyle.Information) End If .Dispose() End With Catch oe As Exception MsgBox(oe.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Button1.Text = "Abrir" End Sub End Class

Este otro ejemplo establece en la propiedad rootFolder, la ruta de nivel superior del árbol de carpetas ( escritorio, la carpeta inicio, mis documentos, favoritos, mi pc etc.. ) en este caso la carpeta Inicio

Option Explicit On Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles Button1.Click Try ' Configuración del FolderBrowserDialog With FolderBrowserDialog1 .RootFolder = Environment.SpecialFolder.StartMenu Dim ret As DialogResult = .ShowDialog ' abre el diálogo ' si se presionó el botón aceptar ... If ret = Windows.Forms.DialogResult.OK Then MsgBox("Path : " & .SelectedPath, MsgBoxStyle.Information) End If .Dispose() End With Catch oe As Exception MsgBox(oe.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Button1.Text = "Abrir" End Sub End Class

vb 6.0 - Enlaces relacionados

Buscar en Recursos vb