Solucion: Ver un Rep. CR, en cualquier Directorio
Publicado por Juan Reyes (81 intervenciones) el 22/11/2002 19:40:27
Este ejemplo usa el Open File del Sistema Operarivo tal como lo hace Excel, Words..etc...
'Localizar el Archivo deseado
Dim FileName As String
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "Report files (*.rpt)|*.rpt"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = DialogResult.OK Then
FileName = openFileDialog1.FileName
Else
MessageBox.Show("Archivo no Encontrado...", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Saludos
'Localizar el Archivo deseado
Dim FileName As String
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "Report files (*.rpt)|*.rpt"
openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = DialogResult.OK Then
FileName = openFileDialog1.FileName
Else
MessageBox.Show("Archivo no Encontrado...", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Saludos
Valora esta pregunta


0