FTP só trasfere arquivos do C:/

[Northon]

Olá, eu estava aqui mexendo um pouco no VB, mas quando eu fui enviar um arquivo pelo FTP ele só enviava arquivo do Disco C:\. ou seja se fosse assim:

C:\1\arquivo.jpg (Não funciona por causa do diretório 1)

C:\arquivo.jpg (Funciona por que não tem diretório)

Botão de transferir:

Private Sub envia_Click()

    Dim contador As Integer
    Dim operacao As String
    Dim nomeArquivo As String, arquivoSaida As String

    For contador = 0 To filList.ListCount - 1
        If filList.Selected(contador) = True Then
            nomeArquivo = filList.List(contador)
            arquivoSaida = lblRemoteDirectory.Text & "/" & nomeArquivo
            operacao = "send " & filList.Path & "\" & nomeArquivo & " " & arquivoSaida
            executaComando operacao, False
        End If
    Next contador
    listaDir
    filList.Refresh
End Sub

Grato desde já.

[kuroi]

hum, mas q componente você ta usando?? winsock?? o q faz essa funcao executaComando??

e se você tentar enviar o arquivo com diretorio o q acontece?? da alguma mensagem de erro??

[Northon]

Cliente FTP que eu usei como source:

http://www.macoratti.net/vb_ftp1.htm

Não dá nenhuma mensagem de erro não, ele só não transfere os arquivos que estejam em algum diretório.

[kuroi]

é o programa do macoratti parece q ta com esse problema mesmo.

na verdade não é q ele so envia do c:, acontece q ele so envia se o arquivo tiver no app.path.

pra corrigir tenta substituir essas duas linhas:

nomeArquivo = filList.List(contador)
arquivoSaida = lblRemoteDirectory.Text & "/" & nomeArquivo[/code]

por
[code]nomeArquivo = Chr(34) & dirList.Path & "\" & filList.List(contador) & Chr(34)
arquivoSaida = lblRemoteDirectory.Caption & "/" & filList.List(contador)

[Northon]

Pioro. Agora nem quer transferir nenhum arquivo, pode verificar o código ai?

OBS: lblRemoteDirectory.Caption eu troquei o Caption por Text, pois estou usando a o Textbox.

[kuroi]

ó tai o projeto do macoratti modificado (alterei somente essas duas linhas e mais nd) q ta funcionando sem problema nenhum aqui:

FtpInet_kuroi.zip

[Northon]

Funcionou! Valeu pela atenção!

Você não modificou só 2 linhas olha:

For contador = 0 To filList.ListCount - 1
        If filList.Selected(contador) = True Then
            'nomeArquivo = filList.List(contador)
            'arquivoSaida = lblRemoteDirectory.Caption & "/" & nomeArquivo
            nomeArquivo = Chr(34) & dirList.Path & "\" & filList.List(contador) & Chr(34)
            arquivoSaida = lblRemoteDirectory.Caption & "/" & filList.List(contador)
            operacao = "send " & nomeArquivo & " " & arquivoSaida
            executaComando operacao, False

Original:

For contador = 0 To filList.ListCount - 1
        If filList.Selected(contador) = True Then
            nomeArquivo = filList.List(contador)
            arquivoSaida = lblRemoteDirectory.Text & "/" & nomeArquivo
            operacao = "send " & filList.Path & "\" & nomeArquivo & " " & arquivoSaida
            executaComando operacao, False

[Fabiano Melo]

Funcionou! Valeu pela atenção!

Você não modificou só 2 linhas olha:

For contador = 0 To filList.ListCount - 1
        If filList.Selected(contador) = True Then
            'nomeArquivo = filList.List(contador)
            'arquivoSaida = lblRemoteDirectory.Caption & "/" & nomeArquivo
            nomeArquivo = Chr(34) & dirList.Path & "\" & filList.List(contador) & Chr(34)
            arquivoSaida = lblRemoteDirectory.Caption & "/" & filList.List(contador)
            operacao = "send " & nomeArquivo & " " & arquivoSaida
            executaComando operacao, False

Original:

For contador = 0 To filList.ListCount - 1
        If filList.Selected(contador) = True Then
            nomeArquivo = filList.List(contador)
            arquivoSaida = lblRemoteDirectory.Text & "/" & nomeArquivo
            operacao = "send " & filList.Path & "\" & nomeArquivo & " " & arquivoSaida
            executaComando operacao, False

Como resolver o problema q estou tendo?

Arquivo com o nome sem espaço sobre sem problemas (Ex. teste.txt).

Porém arquivo com o nome com espaço o upload não funciona (Ex. teste agora.txt).

Alguém tem idéia de como resolver?

PS.: Tenho pouco conhecimento em VB.

Aguardo apoio da comunidade!

Editado Março 16, 2012 por Fabiano Melo

[kuroi]

Acho que os códigos que passei acima devem resolver, não??