SALVAR SEM USAR SHOWSAVE

ERLANMG 03/05/2011 13:49:52
#373089

Prezados colegas,

Como faço para salvar um arquivo sem abrir a tela do showsave.

Estou usando assim, mas gostaria que salvasse direto sem abrir tela para o usuário.

CommonDialog1.DialogTitle = [Ô]Informe o nome do arquivo para gravar o CT-e[Ô]
CommonDialog1.InitDir = App.Path & [Ô]\XML\[Ô]
CommonDialog1.FileName = nome
CommonDialog1.Filter = [Ô]Arquivo XML (*.xml)|*.xml|Qualquer arquivo (*.*)|*.*[Ô]
CommonDialog1.FilterIndex = 1
CommonDialog1.FLAGS = _
cdlOFNFileMustExist + _
cdlOFNHideReadOnly + _
cdlOFNLongNames + _
cdlOFNExplorer
CommonDialog1.CancelError = True
CommonDialog1.ShowSave