MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Alterar extensão de arquivo.

    DCR2012
    DCR2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Alterar extensão de arquivo. Empty Alterar extensão de arquivo.

    Mensagem  DCR2012 5/2/2013, 20:40

    Boa tarde,

    Tenho uma rotina criada onde se abre o browser do windows se escolhe um arquivo e ele carrega a toda o caminho do arquivo junto a sua extensão.
    Até ai beleza.

    O que preciso é alterar a extensão do arquivo antes dele ser importado.
    O arquivo é um CNAB do banco que vem em .RET, essa extensão é lida em txt sem problemas.
    Mas gostaria de automatizar isso para que o usuario não precisa-se alterar a extensão do arquivo antes de importar.

    O cod para copiar para uma pasta é esse.

    Private Sub anexoBTN_Click()
    Dim Destino As String
    Dim Arquivo As String
    Dim FSO As Object
    'habilite a referencia Microsoft Scripting Runtime

    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FolderExists("\\10.100.1.15\financeiro_lfg\contasreceber\RESTITUIÇÃO\Banco de Dados\ANEXOS\" & Replace(Me.IDPGOTXTT, "/", "")) Then ' verifica se já existe a pasta
    If MsgBox("A pasta já existe, adicionar arquivos?", vbOKCancel + vbCritical, "Pasta") = vbOK Then
    ' se responder Ok, abre a caixa de dialogo
    'Irá abrir a caixa de diálogo
    Arquivo = LaunchCD(Me)
    Destino = "\\10.100.1.15\financeiro_lfg\contasreceber\RESTITUIÇÃO\Banco de Dados\ANEXOS\" & Replace(Me.IDPGOTXTT, "/", "") & "/" & Mid(Arquivo, InStrRev(Arquivo, "\") + 1)
    'Copia o arquivo para uma pasta mapeada no servidor
    On Error GoTo Erro
    FileCopy Arquivo, Destino

    Else
    On Error GoTo Erro
    Application.FollowHyperlink ("\\10.100.1.15\financeiro_lfg\contasreceber\RESTITUIÇÃO\Banco de Dados\ANEXOS\" & Replace(Me.IDPGOTXTT, "/", ""))
    Exit Sub
    End If
    Else
    If MsgBox("Você deseja criar uma pasta para adicionar arquivos?", vbOKCancel + vbCritical, "Pasta") = vbOK Then
    MkDir ("\\10.100.1.15\financeiro_lfg\contasreceber\RESTITUIÇÃO\Banco de Dados\ANEXOS\" & Replace(Me.IDPGOTXTT, "/", "")) ' se não existir cria"
    'Irá abrir a caixa de diálogo
    Arquivo = LaunchCD(Me)
    Destino = "\\10.100.1.15\financeiro_lfg\contasreceber\RESTITUIÇÃO\Banco de Dados\ANEXOS\" & Replace(Me.IDPGOTXTT, "/", "") & "/" & Mid(Arquivo, InStrRev(Arquivo, "\") + 1) 'Pega apenas o nome do arquivo

    'Copia o arquivo para uma pasta mapeada no servidor
    On Error GoTo Erro
    FileCopy Arquivo, Destino


    Else
    On Error GoTo Erro
    MsgBox "Não Exitem arquivos anexos para serem abertos", vbInformation, _
    "UpLoad Cancelado"


    End If
    End If

    Application.FollowHyperlink ("\\10.100.1.15\financeiro_lfg\contasreceber\RESTITUIÇÃO\Banco de Dados\ANEXOS\" & Replace(Me.IDPGOTXTT, "/", ""))

    Erro:
    DoCmd.CancelEvent

    End Sub


    Teria alguma função para isso?


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Alterar extensão de arquivo. Empty Re: [Resolvido]Alterar extensão de arquivo.

    Mensagem  criquio 5/2/2013, 22:42

    Parece estar faltando uma função aí. Talvez seja nessa função que deve-se alterar, talvez usando um Replace para mudar RET para txt.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    DCR2012
    DCR2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Alterar extensão de arquivo. Empty Re: [Resolvido]Alterar extensão de arquivo.

    Mensagem  DCR2012 6/2/2013, 12:19

    Não Tinha pensando nisso Criquio.
    Vou efetuar o teste para ver se altera a extensão.
    Vlw
    DCR2012
    DCR2012
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 25/01/2013

    [Resolvido]Alterar extensão de arquivo. Empty Re: [Resolvido]Alterar extensão de arquivo.

    Mensagem  DCR2012 6/2/2013, 14:17

    Criquio,
    Na linha de comando do destino só inclui o replace, funcionou que é uma maravilha.

    Destino = "\\10.100.1.15\financeiro_lfg\contasreceber\RESTITUIÇÃO\Banco de Dados\ANEXOS\" & Replace(Me.IDPGOTXTT, "/", "") & "/" & Replace(Mid(Arquivo, InStrRev(Arquivo, "\") + 1), ".RET",".txt")

    vLW..
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Alterar extensão de arquivo. Empty Re: [Resolvido]Alterar extensão de arquivo.

    Mensagem  criquio 6/2/2013, 16:03

    Ótimo. O fórum agradece o retorno.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Alterar extensão de arquivo. Empty Re: [Resolvido]Alterar extensão de arquivo.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:21