RENOMEAR ARQUIVO TXT

RENATOIPSOFT 27/02/2013 11:37:53
#419678
PRECISO DE UMA AJUDA PARA RENOMEAR UM ARQUIVO TXT
JESUEL.OLIVEIRA 27/02/2013 12:46:57
#419680
Teste ai e vê se da certo.

   
Dim Dsk As String, nAnt As String, nNovo As String

Dsk = Environ([Ô]USERPROFILE[Ô]) & [Ô]\Desktop\[Ô]
nAnt = Dsk & txt_Antigo.old
nNovo = Dsk & txt_Antigo.Text
MARCELO.TREZE 27/02/2013 14:24:24
#419682
simples e direto

Private Sub Command1_Click()
Name [Ô]c:    este.txt[Ô] As [Ô]c:
ovonome.txt[Ô]
End Sub


ps: o arquivo não pode estar aberto
Faça seu login para responder
Voltar