elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Como usar FolderBrowserDialog
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 4 5 6 Ir Abajo Respuesta Imprimir
Autor Tema: Como usar FolderBrowserDialog  (Leído 22,352 veces)
z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Como usar FolderBrowserDialog
« en: 24 Enero 2013, 20:46 pm »

Hola pues bueno, quiero hacer algo así:



Y que cuando le hagamos click a una carpeta pues se cambie de directorio:

La ruta la tengo seteada como "Ruta", en un Dim Ruta As String = "aqui iria la ruta seleccionada a otra ves del FolderBrowserDialog"

Necesito por lo menos que me digais como saco la direccion a través de un:  "selecteditemchanged".

Un saludo.



EDITO:

Enconte un codigo que lo hace todo, codigo aquí:

Código
  1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  2.        Try
  3.            ' Configuración del FolderBrowserDialog
  4.            With FolderBrowserDialog1
  5.  
  6.                .Reset() ' resetea
  7.  
  8.                ' leyenda
  9.                .Description = " Seleccionar una carpeta "
  10.                ' Path " Mis documentos "
  11.                .SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
  12.  
  13.                ' deshabilita el botón " crear nueva carpeta "
  14.                .ShowNewFolderButton = False
  15.                '.RootFolder = Environment.SpecialFolder.Desktop
  16.                '.RootFolder = Environment.SpecialFolder.StartMenu
  17.  
  18.                Dim ret As DialogResult = .ShowDialog ' abre el diálogo
  19.  
  20.                ' si se presionó el botón aceptar ...
  21.                If ret = Windows.Forms.DialogResult.OK Then
  22.  
  23.                    Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
  24.  
  25.                    nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath)
  26.  
  27.                    MsgBox("Total de archivos: " & CStr(nFiles.Count), _
  28.                                            MsgBoxStyle.Information)
  29.                End If
  30.  
  31.                .Dispose()
  32.  
  33.            End With
  34.        Catch oe As Exception
  35.            MsgBox(oe.Message, MsgBoxStyle.Critical)
  36.        End Try
  37.    End Sub
  38.  

Si tengo alguna duda, pues pregunto. :)



Tengo una duda:

Código
  1.                If ret = Windows.Forms.DialogResult.OK Then
  2.  
  3.                    Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
  4.  
  5.                    nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath)
  6.  
  7.                    MsgBox("Total de archivos: " & CStr(nFiles.Count), _
  8.                                            MsgBoxStyle.Information)
  9.                End If
  10.  

Lo que quiero hacer es setear la direccion desde aqui, pero no tengo ni idea, porque nunca maneje este campo.

Un saludo.


« Última modificación: 24 Enero 2013, 21:10 pm por Seazoux » En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Como usar FolderBrowserDialog
« Respuesta #1 en: 25 Enero 2013, 09:42 am »

Lo que quiero hacer es setear la direccion desde aqui, pero no tengo ni idea, porque nunca maneje este campo.

Código
  1. Dim Folder As String = FBD.SelectedPath ' Aquí tienes "la dirección"

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim FBD As New FolderBrowserDialog
        FBD.Description = " Seleccionar una carpeta "
        FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

        Dim Resultado As DialogResult = FBD.ShowDialog
        If Resultado = Windows.Forms.DialogResult.OK Then
            Dim Folder As String = FBD.SelectedPath ' Aquí tienes "la dirección"
            MsgBox("Carpeta seleccionada: " & vbnewline & Folder)
        End If

        FBD.Dispose()

    End Sub


« Última modificación: 25 Enero 2013, 10:49 am por EleKtro H@cker » En línea

z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: Como usar FolderBrowserDialog
« Respuesta #2 en: 25 Enero 2013, 16:36 pm »

Código
  1. Dim Folder As String = FBD.SelectedPath ' Aquí tienes "la dirección"

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim FBD As New FolderBrowserDialog
        FBD.Description = " Seleccionar una carpeta "
        FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

        Dim Resultado As DialogResult = FBD.ShowDialog
        If Resultado = Windows.Forms.DialogResult.OK Then
            Dim Folder As String = FBD.SelectedPath ' Aquí tienes "la dirección"
            MsgBox("Carpeta seleccionada: " & vbnewline & Folder)
        End If

        FBD.Dispose()

    End Sub


Gracias por ese c&p oculto xD

Un duda, y si quiero setear una variable general desde un sub nivel? Es decir desde el "If Resultado = Windows.Forms.DialogResult.OK Then" poner una variable general que valga tambien para: "Dim Files As Array = IO.Directory.GetFiles(Folder, "*", IO.SearchOption.TopDirectoryOnly)"

Un saludo.
« Última modificación: 25 Enero 2013, 16:38 pm por Seazoux » En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Como usar FolderBrowserDialog
« Respuesta #3 en: 25 Enero 2013, 16:46 pm »

Un duda, y si quiero setear una variable general desde un sub nivel? Es decir desde el "If Resultado = Windows.Forms.DialogResult.OK Then" poner una variable general que valga tambien para: "Dim Files As Array = IO.Directory.GetFiles(Folder, "*", IO.SearchOption.TopDirectoryOnly)"

Eing?

No se si te he entendido muy bien...

Las variables declaradas dentro de un sub, se quedan en el sub.

Ya te dije que leyeses los tipos de variables y declaraciones.

EDITO: Todas las variables que vayas a usar en más de un sub/ocasión las deberías declarar fuera de los subs... ejemplo:

Código:
class

Public putavariable as string

form load sub
  putavariable = "putovalor"
  sub1()
end sub

sub1
  msgbox(putavariable)
end sub

end class

xD saludos.
« Última modificación: 25 Enero 2013, 16:52 pm por EleKtro H@cker » En línea

z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: Como usar FolderBrowserDialog
« Respuesta #4 en: 25 Enero 2013, 18:15 pm »

Eing?

No se si te he entendido muy bien...

Las variables declaradas dentro de un sub, se quedan en el sub.

Ya te dije que leyeses los tipos de variables y declaraciones.

EDITO: Todas las variables que vayas a usar en más de un sub/ocasión las deberías declarar fuera de los subs... ejemplo:

Código:
class

Public putavariable as string

form load sub
  putavariable = "putovalor"
  sub1()
end sub

sub1
  msgbox(putavariable)
end sub

end class

xD saludos.

Y como lo puedo pasar de form a form? xD Me refiero a la putavariable xD
« Última modificación: 25 Enero 2013, 18:17 pm por Seazoux » En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Como usar FolderBrowserDialog
« Respuesta #5 en: 25 Enero 2013, 18:34 pm »

Y como lo puedo pasar de form a form? xD Me refiero a la putavariable xD

Código
  1. Public Shared puta_variable As String = "Elektro H@cker"
  2.  
  3. MsgBox(Form1.puta_variable)

saludos
En línea

z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: Como usar FolderBrowserDialog
« Respuesta #6 en: 25 Enero 2013, 19:40 pm »

Código
  1. Public Shared puta_variable As String = "Elektro H@cker"
  2.  
  3. MsgBox(Form1.puta_variable)

saludos

Bueno, pues llevo con un error putandome de hay la variable xD un ratillo.

Necesito declarar una primera variable para que se pueda abrir de hay tu ultimo codigo, pero cuando se va abrir el form 2 me suelta este error:



Y luego pa colmo, necesito guardarlo en un archivo dat o dentro del mismo exe para que la proxima vez se guarde y se ejecute esa direccion.

Es decir, necesita una direccion base para abrir y  luego cargar otra direccion que seria la guardada de la ultima vez.  :-\



Y a ver si me ayudas con el paquete en castellano  :-\ :-\
En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Como usar FolderBrowserDialog
« Respuesta #7 en: 25 Enero 2013, 20:04 pm »

El error está más que claro, la variable "Folder" está vacía, y en la imagen lo puedes ver en los autos:   "Folder > value Nothing"

¿Porque no te fijas en lo que estás haciendo?

1. declaras la variable en el form2
2. no le das ningún valor a esa NUEVA variable
3. intentas usar la variable en el método "getfiles" (pero la variable no contiene ningún valor, así que KABOOM!)

Te he explicado como usar las variables en otras class.

1. declaras la variable en EL PRIMER FORM (form1.vb)
2. la usas así en el resto de forms:   msgbox(form1.mivariable)

PD: O puedes hacer un form, lo llamas "Variables Globales.vb" y ahi metes las p*tas variables que desees, tienes un ejemplo de eso en el post de los snippets (sintaxis > global variables) ahí tienes un ejemplo bueno.





necesito guardarlo en un archivo dat o dentro del mismo exe para que la proxima vez se guarde y se ejecute esa direccion.

Olvídate de crear archivos innecesarios para guardar "opciones" o cosas así, esto no es Batch, todo es más simple.

Debes crear una setting en tu proyecto, y luego es tán sencillo como hacer... :

Código
  1. my.settings.MiOpcion = Folder
  2. my.settings.save()

Código
  1. form1 load sub
  2.  msgbox(my.settings.MiOpcion) ' la última ruta guardada...
  3. end sub

EDITO: Bueno en realidad esto se guarda en el archivo settings.cfg del programa, pero eso ya es otra cosa xD.




Si realmente quieres aprender te va a ser mucho más dificil si te modificas el lenguaje de la IDE al castellano, más que nada porque no vas a encontrar referencias en castellano ni ayuda en ningún sitio cuando tengas un problema en concreto sobre la IDE y necesites buscar un código o solución en Google, todos los terminos son en ingles, y hay que aprender a usar en inglés, déjate eso para cuando sepas mejor las cosas.

saludos
« Última modificación: 25 Enero 2013, 20:09 pm por EleKtro H@cker » En línea

z3nth10n


Desconectado Desconectado

Mensajes: 1.583


"Jack of all trades, master of none." - Zenthion


Ver Perfil WWW
Re: Como usar FolderBrowserDialog
« Respuesta #8 en: 25 Enero 2013, 20:14 pm »

El error está más que claro, la variable "Folder" está vacía.

Me pregunto porque a veces seré tan cazurro. xD
La verdad que lo imagine, pero me faltaba un puto Form1. xDDD

En fin

Ahora tengo que hacer que se actualice el ListBox cuando lo ejecute en el FolderBrowserDialog, porque no hace nada. Le echare un vistazo igualmente.  :xD

Si realmente quieres aprender te va a ser mucho más dificil si te modificas el lenguaje de la IDE al castellano, más que nada porque no vas a encontrar referencias en castellano ni ayuda en ningún sitio cuando tengas un problema en concreto sobre la IDE y necesites buscar un código o solución en Google, todos los terminos son en ingles, y hay que aprender a usar en inglés, déjate eso para cuando sepas mejor las cosas.

saludos

Se bastante ingles o eso creo, y la verdad es que aunque tenga el programa en Español se me da igual, yo lo traduzco al ingles y busco en ingles que es lo que hago xDDD



Hihihihihi, que burraco soy, hay conflicto entre el Folder del Form1 y el del Form2 aunque no lo diga se ve claramente. XD Como hagi para anular el Folder del Form1.Folder y tomar el nuevo folder?

Codigo:
Código
  1. Dim Files As Array = IO.Directory.GetFiles(Form1.Folder, "*", IO.SearchOption.TopDirectoryOnly)
« Última modificación: 25 Enero 2013, 20:17 pm por Seazoux » En línea


Interesados hablad por Discord.
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: Como usar FolderBrowserDialog
« Respuesta #9 en: 25 Enero 2013, 20:23 pm »

Se bastante ingles o eso creo, y la verdad es que aunque tenga el programa en Español se me da igual, yo lo traduzco al ingles y busco en ingles que es lo que hago xDDD


Yo también se mucho (Inglés leido) y te aseguro que saber no te va a servir de nada cuando empiezas a aprender un programa y necesitas leer tutoriales y manuales,
prueba a aprender Photoshop con la APP en castellano y todos los tutoriales/pasos en Inglés, y me cuentas que tál te fue...

Para usar el VS al Español y sin miedo hay que estar al nivel de Seba123Neo xD





hay conflicto entre el Folder del Form1 y el del Form2 aunque no lo diga se ve claramente. XD Como hagi para anular el Folder del Form1.Folder y tomar el nuevo folder?

Codigo:
Código
  1. Dim Files As Array = IO.Directory.GetFiles(Form1.Folder, "*", IO.SearchOption.TopDirectoryOnly)

Pero si ya tienes la variable declarada en el form1, ¿Quieres crear la misma variable y con el mismo valor en el form2?


Código:
form1
public folder as string
end class

form2
dim folder2 as string = form1.folder
Dim Files As Array = IO.Directory.GetFiles(folder2 , "*", IO.SearchOption.TopDirectoryOnly)
« Última modificación: 25 Enero 2013, 20:24 pm por EleKtro H@cker » En línea

Páginas: [1] 2 3 4 5 6 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Quien me explica como usar o como funcionan los SocketS? (java)
Java
McKain 5 8,834 Último mensaje 16 Noviembre 2005, 18:52 pm
por McKain
[VS2012] El control FolderBrowserDialog está deshabilitado!
Programación General
Eleкtro 1 2,196 Último mensaje 10 Noviembre 2012, 01:59 am
por Eleкtro
saben como usar usar el windows live messenger 2009 en win 8
Mensajería
dannyphantom 1 2,963 Último mensaje 25 Diciembre 2012, 22:07 pm
por Songoku
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines