[Resolvido]Erro em código com o uso do conversor DbToExe para Access

Ao usar este aplicativo que converte o arquivo accdb ou mdb em .exr (Logicamente não exclui a necessidade do access instalado ou RunTime)

Em linhas que utiliza o comando CurrentProject.Path, o sistema convertido entender o comando da seguinte forma:

C:\DOCUME~1\cliente\CONFIG~1\Temp\DBtoEXE121118132430_tmp\DBtoEXEtmp\Fotos\

Quando teria que ser assim:

C:\GenteGrande\Fotos\

Akguma ideia de como resolver isto, pois eu não posso colocar na linha o caminho visto que o usuário pode instalar o sistema em outra pasta...


Cumprimentos.

Boa tarde, amigo Piloto
Tem código onde utiliza CurrentProject.Path? Explique melhor

Eu não tenho experiência com esse conversor, mas talvez se utilizar o FileDialog(msoFileDialogFolderPicker) programando para iniciar na pasta atual do aplicativo, funcione.

Boas Mestres!!!...

Em um formulário de Alunos com fotos, em eventos, no Atual o codigo para caso não haja na tabela o caminho da foto do aluno, direciona a um jpg de aviso sem foto disponivel... este jpg fica no dir do BD... ai utilizo o currentProject.Path para conseguir o diretório do bd onde está o JPG...

If IsNull(Me.LocalFoto) = False Then
Me.Foto.Picture = Me.LocalFoto
Else
Me.Foto.Picture = CurrentProject.Path & "\Foto\SemFoto.Jpg"
End If


Porem depois de convertido, o sistema exe criado pelo DbToExe entende de maneira diversa o diretório...Não encontrando a foto...
Gerando erro

C:\DOCUME~1\cliente\CONFIG~1\Temp\DBtoEXE121118132430_tmp\DBtoEXEtmp\Fotos\


Teria que ser assim:

C:\PastaDoBD\Foto\


Cumprimentos.

Amigo Piloto,
Se o .exe fixa o endereço, coloque-o fixo
If IsNull(Me.LocalFoto) Then
"C:\PastaDoBD\Foto\SemFoto.Jpg"
Else
Me.Foto.Picture = Me.LocalFoto
End If

Se a dica que passei acima não funcionar, e talvez não funcione, podes ainda tentar algo assim:

Código:

Dim V As Variant, N As Integer, P As String

V = Split(CurrentDb.Name, "\")

For N = 0 To UBound(V) - 1
    If P = "" Then
        P = V(N)
    Else
        P = P & "\" & V(N)
    End If
Next

Mas, se for alguma interferência direta desse conversor, e talvez seja, acredito que não dará certo tambem, pois talvez o caminho esteja sendo mudado antes de ser passado para a função.

Boas Alexandre... O problema é que como o sistema será comercializado talvez o usuário resolve instalá-lo em outra pasta...

Criquio... testarei sua dica.

Cumprimentos.

Estive pensando... A questão é porque talvez o comando CurrentProject.Path busca arquivos com a extensão .accdb e o convertido é extensão .exe

Cumprimentos.

Pronto. Deve ser por aí.

Amigo, este programa é no site do Orlando, já fiz um teste com ele uma vez e tive umas dúvidas.
Mandei um e-mail para ele e ele me respondeu e foi super atencioso. Talvez fosse o caso.
O site é:
Orlando

Obrigado pela Dica Buscador..

Seguindo o reciocinio do colega Criquio, abro uma janela de diálogo filtrada para aquivos com a extensão .exe, ao selecionar o aplicativo, o caminho e o nome do mesmo são aplicados em uma caixa texto, retirando desta o nome do aplicativo, deixando apenas o caminho.

Gravo em uma tabela e utilizo esta para os demais caminhos no código.

Assim caso o usuário deseje instalar o aplicativo em uma pasta diferente da padrão, basta abrir um form de configurações e alterar a pasta.

Código:


On Error Resume Next
    Dim File As Variant

    'Create a file open instance
    With New sjmFileDialog
        'This will open the dialog over our form
        '(form must be popup for this to work)
        .hwnd = Me.hwnd
        '
        'What to display to the user (in title bar)
        .Caption = "Selecione a imagem"
        'Initial directory
        .InitDir = "C:\"
        'Add some file filters to the "filter list"
        .AddFilter "Arquivos Sistema", "*.Exe"
                '
        'Set some flags
        .FileMustExist = True
        .PathMustExist = True
        .MultiSelect = False
        .NoChangeDir = True
              '
        'Tell the class which operation to perform
        .Action = "Abrir"
        'Process the dialog
        .Execute
        If Not .UserCancel Then
           
            Me.DestinationDir = Mid(.ReturnFile, 1, (Len(.ReturnFile) - 13))

       
        End If
    End With
btnBrowseDir.Enabled = True


Cumprimentos.