Asunto: Cuadro de diálogo de selección fichero en Visual Basic .net
¿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.
Publicado:
Mar Jun 26, 2007 9:36 am
varios Magnífico usuario
Registrado: Oct 10, 2006 Mensajes: 2092
Asunto: Re: Cuadro de diálogo de selección fichero en Visual Basic .
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.
Publicado:
Mar Jun 26, 2007 9:48 am
varios Magnífico usuario
Registrado: Oct 10, 2006 Mensajes: 2092
Asunto: Cuadro de diálogo Guardar Fichero en Visual Basic .Net
¿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?
Publicado:
Mie Jun 27, 2007 6:41 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Cuadro de diálogo Guardar Fichero en Visual Basic .Net
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.
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
