CommonDialog en VB6 (SP6)

[juanfosaiz]

Hola de nuevo compañeros gracias anticipadas por la ayuda, me estoy volviendo loco con un CommonDialog, lo tengo activado en complementos y lo tengo programado, pero al dar al botón designado para que salga la pantalla de selección de fichero (en tiempo de ejecución) me da error 91. Por favor ayudadme. El código es éste:

Private Sub ImpCarta_Click()
Dim Rec_Certific As Recordset, Rec_RenovadoPESOL As Recordset
Dim msg As String
Dim VentSelecFichero As CommonDialog

' VentSelecFichero.CancelError = True
On Error GoTo ImpCarta_ERROR

certificado_id = NumCertificado.Caption

VentSelecFichero.InitDir = "C:\"
VentSelecFichero.Flags = cdlOFNHideReadOnly
VentSelecFichero.Filter = "*.TXT"
VentSelecFichero.FileName = "*.TXT"
VentSelecFichero.CancelError = True
VentSelecFichero.ShowOpen

Muchas gracias de nuevo y saludos cordiales.

[pkj]

El commondialog lo tienes que poner en el form como si fuese un botón o cualquier otra cosa

El error te lo dá porque lo declaras en la sub

Dim VentSelecFichero As CommonDialog

pón el commondialog en el form, ponle de nombre ventselecfichero y elimina esta linea.

Saludos

[juanfosaiz]

Hola de nuevo y muchas gracias por la respuesta, pkj. Me has sacado de un apuro (por tu respuesta me doy cuenta de lo verde que estoy, me tengo que volver a poner serio con el VB...).

Muchas gracias de nuevo y un saludo.