Gostaria de saber se existe alguma forma de renomear o arquivo txt atraves de um codigo no access. Tenho uma macro que faz upload do arquivo, após este upload queria que o access renomeasse e coloca-se no diretorio que eu especificasse. Agradeço a ajuda de todos.

Tente isso:

Name PastaArquivo As OutraPastaArquivo

Estou tentando este código mas não vai....Alguem pode tentar me ajudar?


Public Function Nome_Arquivo()

Set BD = OpenDatabase("C:\Patrocinio\Projetos\uniteste.mdb")
Set tbn = BD.OpenRecordset("n", dbOpenTable)

Dim dir
Dim nome As String
Dim n As Integer

Set dir = CreateObject("Scripting.FileSystemObject") 'Cria o FSO

If n = 0 Then
nome = 1 + n
tbn.AddNew
tbn("n") = n
'tbn.Updated
End If

If dir.FileExists("C:\uniteste.txt") Then
End If
'Para renomear, use:
dir.MoveFile "C:\Karin\Projetos\teste" & n & ".txt"

End Function

Querido amigo Avelino, neste caso eu conseguiria mudar o arquivo de diretório, mas existiria uma maneira de renomear o arquivo? Mas que cada vez que eu muda-se o de diretorio o arquivo fica-se uniteste1, uniteste2...? Agradeço sua preciosa atenção! Karin Patrocinio

Caro Avelino, muito obrigado pela ajuda! e desculpe a demora para responder! Agradeço mais uma vez!

quote:

Scripting.FileSystemObject

Bom, antes de mais nada agradeço á vocês pela ajuda, pois também estava procurando uma solução como essa pra copiar arquivo.
Mechendo aqui descobri qeu o .Copyfile quando vc dá o caminho de destino já com o nome do arquivo do jeito que vc quer, ele já renomea automaticamente, sem a necessidade de outros trabalhos.

Valew