BOTAO P/ COPIAR E COLAR ARQUIVOS DE 1 PASTA P/ OUT
Bom dia pessoal, novamente venho pedir ajuda a vocês, tentei usar uma opção no visual basic para abir um arquivo e salvar este como ( comando salve as) eu consegui abrir o arquivo mas não consegui, salvar como e sim apenas gravar. Então pensei em fazer um botão que copie este arquivo de minha pasta (A) apos salvo e cole na pasta (B).
Todo o processo de abrir e salvar ja esta feito, so preciso copiar ele de um lugar e colar em outro. Alguem me ajuda?
Obrigado.
Todo o processo de abrir e salvar ja esta feito, so preciso copiar ele de um lugar e colar em outro. Alguem me ajuda?
Obrigado.
Para copiar um arquivo para um outro lugar é simples:
My.Computer.FileSystem.CopyFile([Ô]C:\Pasta A\NOME-DO-ARQUIVO.txt[Ô], [Ô]C:\Pasta B\NOME-DO-ARQUIVO.txt[Ô])
My.Computer.FileSystem.CopyFile([Ô]C:\Pasta A\NOME-DO-ARQUIVO.txt[Ô], [Ô]C:\Pasta B\NOME-DO-ARQUIVO.txt[Ô])
Ok muito bem é isso mesmo, porem tenho um outro problema pensei que isso fosse resolver, mas não resolve. Veja só o tamanho do meu problema.
Fiz a seguinte rotina pra salvar em pdf e alterar o nome do arquivo com o nome de um campo.
[ô] Inicio da Rotina de Exportcao para Ods e pdf
Dim oSM, oDesk, oDoc As Object [ô]OOo objects
Dim OpenParam(1) As Object [ô]Parameters to open the doc
Dim SaveParam(1) As Object [ô]Parameters to save the doc
Dim Diretorio As String
oSM = CreateObject([Ô]com.sun.star.ServiceManager[Ô])
oDesk = oSM.createInstance([Ô]com.sun.star.frame.Desktop[Ô])
OpenParam(0) = MakePropertyValue([Ô]Hidden[Ô], True) [ô]Open the file hidden
OpenParam(1) = MakePropertyValue([Ô]ReadOnly[Ô], True)
OpenParam(0) = MakePropertyValue([Ô]Hidden[Ô], True) [ô]Open the file hidden
oDoc = oDesk.loadComponentFromURL([Ô]file:///C:/Program Files/SCCV-Dados/LV-Modelo.ods[Ô], [Ô]_blank[Ô], 0, OpenParam)
SaveParam(0) = MakePropertyValue([Ô]FilterName[Ô], [Ô]writer_pdf_Export[Ô])
SaveParam(0) = MakePropertyValue([Ô]FilterName[Ô], [Ô]calc_pdf_Export[Ô])
SaveParam(1) = MakePropertyValue([Ô]FilterOptions[Ô], [Ô]9,,0, 1, 10[Ô])
Diretorio = [Ô]file:///D:/LVS/[Ô]
Arquivopdf = frmCabecalho.TxtNumCertificado.Text
ArquivoOds = frmCabecalho.TxtNumCertificado.Text
Arquivopdf = Diretorio + Arquivopdf + [Ô].pdf[Ô]
[Ô]
Call oDoc.storeToURL(Arquivopdf, SaveParam)
oDesk = Nothing
oSM = Nothing
[ô] Fim da Rotina de Exportcao para Ods e pdf
Gostaria de fazer isso ai para salvar como ods (BrOffice) pois tenho um arquivo assim já.
Obrigado. Vou fechar este post e abrir outro mas obrigado por sua agilidade em ajudar-me.
Fiz a seguinte rotina pra salvar em pdf e alterar o nome do arquivo com o nome de um campo.
[ô] Inicio da Rotina de Exportcao para Ods e pdf
Dim oSM, oDesk, oDoc As Object [ô]OOo objects
Dim OpenParam(1) As Object [ô]Parameters to open the doc
Dim SaveParam(1) As Object [ô]Parameters to save the doc
Dim Diretorio As String
oSM = CreateObject([Ô]com.sun.star.ServiceManager[Ô])
oDesk = oSM.createInstance([Ô]com.sun.star.frame.Desktop[Ô])
OpenParam(0) = MakePropertyValue([Ô]Hidden[Ô], True) [ô]Open the file hidden
OpenParam(1) = MakePropertyValue([Ô]ReadOnly[Ô], True)
OpenParam(0) = MakePropertyValue([Ô]Hidden[Ô], True) [ô]Open the file hidden
oDoc = oDesk.loadComponentFromURL([Ô]file:///C:/Program Files/SCCV-Dados/LV-Modelo.ods[Ô], [Ô]_blank[Ô], 0, OpenParam)
SaveParam(0) = MakePropertyValue([Ô]FilterName[Ô], [Ô]writer_pdf_Export[Ô])
SaveParam(0) = MakePropertyValue([Ô]FilterName[Ô], [Ô]calc_pdf_Export[Ô])
SaveParam(1) = MakePropertyValue([Ô]FilterOptions[Ô], [Ô]9,,0, 1, 10[Ô])
Diretorio = [Ô]file:///D:/LVS/[Ô]
Arquivopdf = frmCabecalho.TxtNumCertificado.Text
ArquivoOds = frmCabecalho.TxtNumCertificado.Text
Arquivopdf = Diretorio + Arquivopdf + [Ô].pdf[Ô]
[Ô]
Call oDoc.storeToURL(Arquivopdf, SaveParam)
oDesk = Nothing
oSM = Nothing
[ô] Fim da Rotina de Exportcao para Ods e pdf
Gostaria de fazer isso ai para salvar como ods (BrOffice) pois tenho um arquivo assim já.
Obrigado. Vou fechar este post e abrir outro mas obrigado por sua agilidade em ajudar-me.
Tópico encerrado , respostas não são mais permitidas