Cuadro de dialogo
¿Cómo hago para que al clickear un botón que diga "examinar" se abra la típica ventana de dialogo para elegir el archivo (quiero que nada más se muestren los .mp3, o .wav) y que al elegirlo guarde el path al archivo en una variable?
1 respuesta
Respuesta de netvaio
1
Primero que nada.. necesitas poner el componente Commondialog y tu programación sera.. la siguiente...
Para añadir el cCommondialog lo haces como si agregaras un flexgrid o un datagrid en agregar componentes y seleccionas el CommonDialog
Programación---
Private Sub buscar()
cd.DialogTitle = "Buscar Archivos... "
cd.FileName = ""
cd.Filter = "Archivos de imagen (*.mp3;) | " & " *.wav; "
cd.ShowOpen
If cd.FileName <> "" Then
Label9.Caption = cd.FileName
' el label 9 te guarda el nombre del archivo seleccionado
Open cd.FileName For Append As #1
If LOF(1) = 0 Then
MsgBox "ARCHIVO VACIO"
Close #1
Exit Sub
End If
Info.FileToSend = cd.FileName
Info.FileSize = LOF(1)
Close #1
Timer3.Interval = 1
DoEvents
Y:
End If
Para añadir el cCommondialog lo haces como si agregaras un flexgrid o un datagrid en agregar componentes y seleccionas el CommonDialog
Programación---
Private Sub buscar()
cd.DialogTitle = "Buscar Archivos... "
cd.FileName = ""
cd.Filter = "Archivos de imagen (*.mp3;) | " & " *.wav; "
cd.ShowOpen
If cd.FileName <> "" Then
Label9.Caption = cd.FileName
' el label 9 te guarda el nombre del archivo seleccionado
Open cd.FileName For Append As #1
If LOF(1) = 0 Then
MsgBox "ARCHIVO VACIO"
Close #1
Exit Sub
End If
Info.FileToSend = cd.FileName
Info.FileSize = LOF(1)
Close #1
Timer3.Interval = 1
DoEvents
Y:
End If
