[Resolvido]importar arquivo

Pessoal

Como posso executar um arquivo que é um atalho para um FTP(arquivo para baixar informações de um servidor)?

No menu propriedades/destino do arquivo está aparecendo:
C:\WINDOWS\system32\ftp.exe -n -s:RS_DA.txt


e para executa-lo utilizo o caminho:
C:\Ferramentas\Tempo de Ligação\RS_Da.lnk

Gostaria de saber como posso executar o mesmo de dentro do proprio access...
Obrigado..

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub seubotão_Click()

ShellExecute Me.hwnd, "Open", "C:\Ferramentas\Tempo de Ligação\RS_Da.lnk", vbNullString, vbNullString, 1

End Sub

Ricardo

Fiz o que você me disse, porem nao deu certo também nao..

ele abre o command, porem mostra algumas coisas como se tivesse digitado o "/?" e nao executa o que deveria ser executado corretamente...

teste;

Private Sub SeuBotão_Click()
Dim strCaminho As String
strCaminho = "C:\Ferramentas\Tempo de Ligação\RS_Da.txt" & ".lnk"
Application.FollowHyperlink strCaminho, , True
End Sub

JPaulo

Também nao deu certo..

da maneira que você disse é como se tivesse digitado:

C:\Ferramentas\Tempo de Ligação\RS_Da.txt.lnk

entao aparece que nao é possivel abrir o arquivo especificado...


tentei mudar a ordem que você me enviou porem nao deu certo também nao...
Alguma nova ideia?

Depende de como está a visualização desse ficheiro, se tem somente o nome, ou tem .txt no final ou tem .lnk

1ª hipotese

Private Sub SeuBotão_Click()
Dim strCaminho As String
strCaminho = "C:\Ferramentas\Tempo de Ligação\RS_Da.txt" & ".lnk"
Application.FollowHyperlink strCaminho, , True
End Sub

2ª hipotese

Private Sub SeuBotão_Click()
Dim strCaminho As String
strCaminho = "C:\Ferramentas\Tempo de Ligação\RS_Da.lnk"
Application.FollowHyperlink strCaminho, , True
End Sub

3ª hipotese

Private Sub SeuBotão_Click()
Dim strCaminho As String
strCaminho = "C:\Ferramentas\Tempo de Ligação\RS_Da" & ".lnk"
Application.FollowHyperlink strCaminho, , True
End Sub

Jpaulo

Nao consegui implementar das maneiras que voce informou..voce teria mais alguma solução?

Adriano bom dia !

Este é o caminho das pedras, se preferir colocar num site publico o seu banco ou parte dele para analisar-mos, estou no aguardo.