Common dialog guardar como, boton guardar, mensaje de texto

[Rossanalie]

Hola

Tengo un botón que llama a un common dialog guardar como. El problema es que el mensaje de texto "Debe escribir un nombre de archivo"aparece cuando marco el boton cancelar y quiero que aparezca cuando marco el boton guardar y que aparezca encima de el cuadro de dialogo guardar como.. Este es el código


If CommonDialog1.FileName = "" Then
MsgBox "Debe escribir un nombre de archivo", vbInformation, "Sistema"
'Salimos de la rutina ya que no hay nada que guardar
Exit Sub
Else
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1

'Escribimos en el archivo el contenido de Text1
Print #1, Text1

'Cerramos el archivo
Close
End If

[Avellaneda]

Iniciado por Rossanalie

Hola

Tengo un botón que llama a un common dialog guardar como. El problema es que el mensaje de texto "Debe escribir un nombre de archivo"aparece cuando marco el boton cancelar y quiero que aparezca cuando marco el boton guardar y que aparezca encima de el cuadro de dialogo guardar como.. Este es el código


If CommonDialog1.FileName = "" Then
MsgBox "Debe escribir un nombre de archivo", vbInformation, "Sistema"
'Salimos de la rutina ya que no hay nada que guardar
Exit Sub
Else
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1

'Escribimos en el archivo el contenido de Text1
Print #1, Text1

'Cerramos el archivo
Close
End If

Hola

te refieres a algo como esto?

CommonDialog1.FileName = "Debe escribir un nombre de archivo..."
CommonDialog1.ShowSave

[Rossanalie]

Igual no funciona no me indica si esta vacio el textbox del cuadro de dialogo

[seba123neo]

Hola, proba esto:

Código:

CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
   'selecionaste algo
Else
  MsgBox "No se seleccionó ningún archivo"
End If

saludos.