Crear Archivo .txt

[chan]

Hola, estoy queriendo crear un archivo .txt y para eso utilizo un common dialog llamado Cdialog donde hago lo siguiente:

With Cdialog
.CancelError = True
.DialogTitle = "Crear archivo"
.InitDir = App.Path
.Filter = "Archivos de texto (*.txt)|*.txt"
.ShowSave
End With

archivo = Cdialog.FileName

Esto no me crea nada... quisiera saber como crear el archivo, y que lo guarde en el lugar indicado por el common dialog

[jm00092]

Creo...


Open cdialog.path & "\" & cdialog.filename for output as #1

print #1, "Hola"
print #1, variable
Print #1, ...lo que sea

close #1



Así de sencillo falla si intentas guardar el archivo en el directorio raíz c:\

[chan]

no me funciona, la propiedad cdialog.path no la toma..

[vbx3m]

Open cdialog.path & "\" & cdialog.filename for output as #1

print #1, "Hola"
print #1, variable
Print #1, ...lo que sea

close #1

El commondialog no tiene la propiedad PATH, usa solo el FILENAME...

Open cdialog.filename for output as #1
...
...
...

[chan]

Sisi ahora si! Gracias!