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á.