COPIAR - COLAR E RENOMEAR ARQUIVOS

MARCOSSFERREIRA 30/06/2011 14:57:45
#378157
Olá galera eu novamente...Alguem já utilizou este comando no visual basic para arquivos com outras extensoes pq eu tentei com ods e da erro.

My.Computer.FileSystem.CopyFile( _
[Ô]C:\UserFiles\TestFiles    estFile.txt[Ô], _
[Ô]C:\UserFiles\TestFiles2\NewFile.txt[Ô], _
FileIO.UIOption.AllDialogs, _
FileIO.UICancelOption.DoNothing)


Obrigado.
PEGUDO 30/06/2011 22:15:05
#378178
cara, você ta usando deste jeito mesmo?
Cadê o [Ô]&[Ô] ante do [Ô]_[Ô]?

[txt-color=#0000f0]My[/txt-color].Computer.FileSystem.CopyFile([txt-color=#e80000][Ô]C:\UserFiles\TestFiles    estFile.txt[Ô][/txt-color], & _
    [txt-color=#e80000][Ô]C:\UserFiles\TestFiles2\NewFile.txt[Ô][/txt-color], FileIO.UIOption.AllDialogs, & _
    FileIO.UICancelOption.DoNothing)


Tenta assim pra ver no que vai dar
MARCOSSFERREIRA 01/07/2011 10:46:46
#378196
Pegudo Obrigado mesmo cara, mas encontrei este que postei abaixo e deu certo ficou muito bom. Meu unico problema agora é que quando ele ja copiou o arquivo e alguem tenta colocar o mesmo nome claro ele da erro, mas como faço pra inserir uma msg que o nome do arquivo ja existe e obrigue a pessoa a colocar um outro nome do arquivo, ou apenas volte a tela a qual ele pode corrigir o nome?



Dim novonomeods As Object
novonomeods = frmInstrumento.TxtNumCertificado.Text
novonomeods = frmInstrumento.TxtNumCertificado.Text + [Ô].ods[Ô]
My.Computer.FileSystem.CopyFile([Ô]C:/Program Files/SCCV-Dados/LV-Modelo.ods[Ô], [Ô]D:/LVS/LV-Modelo.ods[Ô])
My.Computer.FileSystem.RenameFile([Ô]D:/LVS/LV-Modelo.ods[Ô], novonomeods)
Tópico encerrado , respostas não são mais permitidas
Voltar