Innanzitutto scusa il ritardo nel rispondere.
Per quanto riguarda il controllo sulle operazioni (sapere se sono andate a buon fine) puoi fare riferimento all'evento StateChanged dell'oggetto Inet:

Private Sub Inet1_StateChanged(ByVal State As Integer)

Dim vtData As Variant ' Data variable.
Select Case State
' ... Other cases not shown.
Case icError ' 11
vtData = Inet1.ResponseCode & ":" & vbCrLf & _
Inet1.ResponseInfo
MsgBox "Errore: " & vtData, vbOKOnly, "FTP - ERRORE"
Case icResponseCompleted ' 12

vtData = Inet1.GetChunk(1024, icString)

End Select
End Sub

Per trasferire intere cartelle, non credo sia possibile (in quanto il protocollo ftp prevede il trasferimento di un singolo file alla volta). Per far ciò puoi usare un trucco che usano anche molti programmi di interfaccia FTP grafica, come ad es. CrystalFTP. Ti esplodi la cartela con i file in essa contenuti. (Fai un ciclo con un oggetto Folder del FileSystemObject)

Penso che funzioni correttamente anche in una LAN, anche se in tal caso potresti usare (o almeno credo) l'oggetto FileSystemObject.

Sul fatto di poter eseguire più operazioni contemporaneamente, non so se sia possibile (ma non credo)

Spero di averti aiutato almeno un po'.
Ciao!!

:adhone: