SALVAR ARQUIVO SEM SOBRESCREVER
Oi,
Tenho uma rotina para exportação de alguns dados para excel que funciona bem, porém não reconhece se já existe algum arquivo com o mesmo nome no local a ser salvo, então acaba sobrescrevendo o que já existia.
poderiam me dar uma ajudinha com isso?
Agradecido.
Tenho uma rotina para exportação de alguns dados para excel que funciona bem, porém não reconhece se já existe algum arquivo com o mesmo nome no local a ser salvo, então acaba sobrescrevendo o que já existia.
poderiam me dar uma ajudinha com isso?
Agradecido.
VB6 ?
Utilize a biblioteca FSO
Depois não sei como você faz para salvar os arquivos mas caso seja por algum FOR você implementa a função para verificar se o arquivo existe conforme exemplo.
Dim fso As New FileSystemObject
If fso.FileExists ([Ô]MEUARQUIVO.txt[Ô]) = True Then
MsgBox [Ô]Arquivo Existe[Ô]
End If
Utilize a biblioteca FSO
Depois não sei como você faz para salvar os arquivos mas caso seja por algum FOR você implementa a função para verificar se o arquivo existe conforme exemplo.
Dim fso As New FileSystemObject
If fso.FileExists ([Ô]MEUARQUIVO.txt[Ô]) = True Then
MsgBox [Ô]Arquivo Existe[Ô]
End If
Obrigado, vou tentar isso.
Faça seu login para responder