CRIAR PASTA E COPIAR DOCUMENTO RENOMEANDO
Desculpem estar postando novamente, é que eu andei pesquisando e não encontrei uma outra solução para outra duvida minha.
Eu queria fazer o seguinte.
Tenho um Modelo de Contrato do Word 2007 pronto.
Tenho o Form para cadastro de clientes.
Eu queria fazer o seguinte: Ao terminar de preencher os campos como, Nome, RG, CPF, Endereço e tudo mais, eu queria que ao clicar em Salvar, o Sistema criasse uma pasta com o Código (txtcodigocliente ) do Cliente. E teria um Botão ( Gerar Contrato ) que fária uma cópa do Modelo de Contrato do Word e renomeava o Modelo para o Nome do Cliente ( txtnomecliente ) salvando dentro da pasta que foi criada.
Agradeço desde já.
Abraços.
Eu queria fazer o seguinte.
Tenho um Modelo de Contrato do Word 2007 pronto.
Tenho o Form para cadastro de clientes.
Eu queria fazer o seguinte: Ao terminar de preencher os campos como, Nome, RG, CPF, Endereço e tudo mais, eu queria que ao clicar em Salvar, o Sistema criasse uma pasta com o Código (txtcodigocliente ) do Cliente. E teria um Botão ( Gerar Contrato ) que fária uma cópa do Modelo de Contrato do Word e renomeava o Modelo para o Nome do Cliente ( txtnomecliente ) salvando dentro da pasta que foi criada.
Agradeço desde já.
Abraços.
Segue um Link que vai te ajudar:
www.macoratti.net/file_vb.htm
Espero ter ajudado.
www.macoratti.net/file_vb.htm
Espero ter ajudado.
bom colega é assim para criar uma pasta seria desta forma, super simples
quanto ao restante veja neste tópico que é seu também acabei de postar, onde explico um passo a passo de como proceder, e acredito que faz exatamente o que você deseja.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=406547&varWorld=
Private Sub Command1_Click()
MkDir [Ô]c:
ome da sua pasta[Ô]
End Subquanto ao restante veja neste tópico que é seu também acabei de postar, onde explico um passo a passo de como proceder, e acredito que faz exatamente o que você deseja.
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=406547&varWorld=
Já consegui.
Segue código
Obrigado
Segue código
Obrigado
Private Sub Command1_Click()
MkDir [Ô]C:\Temp\[Ô] & Text1.Text
End Sub
Tópico encerrado , respostas não são mais permitidas