Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Cuadro de diálogo de selección fichero en Visual Basic .net
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Cuadro de diálogo de selección fichero en Visual Basic .net

Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Cuadro de diálogo de selección fichero en Visual Basic .net Responder citando

¿cómo puedo mostrar un cuadro de diálogo de selección de fichero en Visual Basic .Net (Visual Studio)?

Sé que en Delphi es algo así:

Código:

var
  dlabrir : TOpenDialog;
  nombreFichero : string;
begin
  dlabrir := TOpenDialog.Create(nil);
  dlAbrir.Title := 'Selección de fichero';
  dlAbrir.Filter := 'Archivos de texto (*.txt)|*.txt|' +
      'Archivos de log (*.log)|*.log|' +
      'Todos los archivos (*.*)|*.*';
  if dlAbrir.Execute then
  begin
    nombreFichero := dlAbrir.FileName;
  end;
end;


Lo que pretendo es no tener que utilizar un componente visual (TOpenDialog en el caso de Delphi), sino hacerlo por código.
MensajePublicado:
Mar Jun 26, 2007 9:36 am
Top of PageVer perfil de usuario
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Re: Cuadro de diálogo de selección fichero en Visual Basic . Responder citando



Anuncios



varios escribió:
¿cómo puedo mostrar un cuadro de diálogo de selección de fichero en Visual Basic .Net (Visual Studio)?
...
Lo que pretendo es no tener que utilizar un componente visual (TOpenDialog en el caso de Delphi), sino hacerlo por código.



Puedes utilizar el siguiente código Visual Basic .Net:


* Con la opción de selección múltiple de ficheros:

Código:

  Dim ficheros() As String
  Dim ficherosTodos, ficheroActual As String
  Dim dlAbrir As New System.Windows.Forms.OpenFileDialog

  dlAbrir.Filter = "Archivos de Texto (*.txt)|*.txt|" & _
      "Archivos de log (*.log)|*.log|" & _
      "Todos los archivos (*.*)|*.*"
  dlAbrir.Multiselect = True
  dlAbrir.Title = "Selección de fichero"
  dlAbrir.ShowDialog()
  If dlAbrir.FileName <> "" Then
    ficheros = dlAbrir.FileNames
    ficherosTodos = ""
    For Each ficheroActual In ficheros
      If ficherosTodos = "" Then
        ficherosTodos = ficheroActual
      Else
        ficherosTodos = ficherosTodos & ";" _
            & ficheroActual
      End If
    Next   
  End If



* Con la opción de selección de un solo fichero:

Código:
  Dim fichero As String
  Dim dlAbrir As New System.Windows.Forms.OpenFileDialog

  dlAbrir.Filter = "Archivos de Texto (*.txt)|*.txt|" & _
      "Archivos de log (*.log)|*.log|" & _
      "Todos los archivos (*.*)|*.*"
  dlAbrir.Multiselect = False
  dlAbrir.CheckFileExists = False
  dlAbrir.Title = "Selección de fichero"
  dlAbrir.ShowDialog()
  If dlAbrir.FileName <> "" Then
    fichero = dlAbrir.FileName
    txtFichero.Text = fichero
  End If


Nota: la propiedad "CheckFileExists" indica si se quiere que el cuadro de diálogo sólo admita abrir ficheros existentes (si está a TRUE). Si está a FALSE permitirá seleccionar ficheros no existentes.
MensajePublicado:
Mar Jun 26, 2007 9:48 am
Top of PageVer perfil de usuario
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Cuadro de diálogo Guardar Fichero en Visual Basic .Net Responder citando

¿cómo puedo mostrar un cuadro de diálogo para Guardar fichero, igual que para el anterior de Abrir fichero?

¿cómo puedo indicarle que avise de que el fichero será reemplazado si existe?
MensajePublicado:
Mie Jun 27, 2007 6:41 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Cuadro de diálogo Guardar Fichero en Visual Basic .Net Responder citando



Anuncios



varios escribió:
¿cómo puedo mostrar un cuadro de diálogo para Guardar fichero, igual que para el anterior de Abrir fichero?

¿cómo puedo indicarle que avise de que el fichero será reemplazado si existe?



Para el cuadro de diálogo (ventana) de Guardar Fichero te puede servir esto:

Código:

        Dim dlGuardar As New System.Windows.Forms.SaveFileDialog

        dlGuardar.Filter = "Archivos de Texto (*.txt)|*.txt|" & _
            "Archivos de SQL (*.sql)|*.sql|" & _
            "Todos los archivos (*.*)|*.*"
        dlGuadar.CheckFileExists = False
        dlGuardar.OverwritePrompt = True
        dlGuardar.Title = "Guardar SQL en fichero"
        dlGuardar.ShowDialog()
        If dlGuardar.FileName <> "" Then
            Dim fichero As New System.IO.StreamWriter(dlGuardar.FileName)
            fichero.WriteLine(txtSQL.Text)
            fichero.Close()
        End If
    End Sub


La propiedad "OverwritePrompt" a "True" indica que si el fichero existe y es seleccionado aparecerá un mensaje de aviso de que el fichero será reemplazado.

En este ejemplo, se escribirá el contenido del componente "txtSQL.Text" en el fichero seleccionado por la ventana de Guardar Fichero.
MensajePublicado:
Mie Jun 27, 2007 6:45 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » VB.Net, C# .Net, Visual Studio .Net  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A