arne_v fxp

Det er ikke tilladt at give mere end 200 point, så ...

:-)

Jeg kan godt prøve at kigge på det, men det bliver tidligst i morgen aften.

Tusind tak...

Men jeg vil gerne oprette et nyt spørgsmål til dig, og give dig endnu 200.

Venlig hilsen,
Martin.

Man må heller ikke give mere end 200 point ved at oprette et spørgsmål
ekstra.

Men 200 er helt fint.

Problemet er at få løst opgaven !

Forresten.

Jeg har testet den kode, som er postet øverst.
Jeg vil gerne have muligheden for at kalde koden med følgende parameter:
Fxp.Transfer(FraIP, FraPort, FraBrugernavn, FraPassword, FraPath, Filnavn, Binary, TilIP, TilPort, TilBrugernavn, TilPassword)

Endvidere har jeg fundet en fejl; når min fra server og til server IKKE er den samme, så crasher programmet. Dette crash sker her:
Dim addrparts As String() = dataaddr.Split("()".ToCharArray)(1).Split(",".ToCharArray)
som ligger under SetupData.

Venlig hilsen,
Martin.

Jeg glemte at skrive at der også skulle kunne kaldes med en TilPath.
Fxp.Transfer(FraIP, FraPort, FraBrugernavn, FraPassword, FraPath, Filnavn, Binary, TilIP, TilPort, TilBrugernavn, TilPassword, TilPath)

Venlig hilsen,
Martin.

TilPath er nem at lave da FTPClient klassen har en ChDir metode.

Jeg er en lille smule skeptisk overfor port. Har du brug for at connecte
til FTP servere som ikke lytter på port 21 ?

Crashet må jeg lige kigge på i aften.

Her er så en version med topath og en fix for crash (lidt længere pause):

Imports System
Imports System.IO
Imports System.Text
Imports System.Net.Sockets
Imports System.Threading

Public Class FtpClient
    Private ctrl As TcpClient
    Private ctrlstm As NetworkStream
    Private data As TcpClient
    Private datastm As NetworkStream

    Private Shared Sub Send(ByVal stm As NetworkStream, ByVal line As String)
        Dim b As Byte() = Encoding.Default.GetBytes(line)
        stm.Write(b, 0, b.Length)
    End Sub

    Private Shared Function Receive(ByVal stm As NetworkStream) As String
        Dim b(100000 - 1) As Byte
        Dim ix As Integer = 0
        Dim n As Integer
        While stm.DataAvailable
            n = stm.Read(b, ix, b.Length - ix)
            ix += n
        End While
        Return Encoding.Default.GetString(b, 0, ix)
    End Function

    Public Shared Function Command(ByVal stm As NetworkStream, ByVal cmd As String) As String
        Send(stm, cmd + Convert.ToChar(13) + Convert.ToChar(10))
        Thread.Sleep(200)
        Return Receive(stm)
    End Function

    Private Sub SetupData()
        Dim dataaddr As String = Command(ctrlstm, "PASV")
        Dim addrparts As String() = dataaddr.Split("()".ToCharArray)(1).Split(",".ToCharArray)
        Dim datahost As String = addrparts(0) + "." + addrparts(1) + "." + addrparts(2) + "." + addrparts(3)
        Dim dataport As Integer = Integer.Parse(addrparts(4)) * 256 + Integer.Parse(addrparts(5))
        data = New TcpClient (datahost, dataport)
        datastm = data.GetStream
    End Sub

    Public Sub New(ByVal host As String, ByVal username As String, ByVal password As String)
        ctrl = New TcpClient (host, 21)
        ctrlstm = ctrl.GetStream
        Command(ctrlstm, "USER " + username)
        Command(ctrlstm, "PASS " + password)
    End Sub

    Public Function Dir() As String
        SetupData
        Command(ctrlstm, "LIST")
        Dim res As String = Receive(datastm)
        Receive(ctrlstm)
        datastm.Close
        data.Close
        Return res
    End Function

    Public Function ShortDir() As String
        SetupData
        Command(ctrlstm, "NLST")
        Dim res As String = Receive(datastm)
        Receive(ctrlstm)
        datastm.Close
        data.Close
        Return res
    End Function

    Public Sub MkDir(ByVal dir As String)
        Command(ctrlstm, "MKD " + dir)
    End Sub

    Public Sub RmDir(ByVal dir As String)
        Command(ctrlstm, "RMD " + dir)
    End Sub

    Public Sub ChDir(ByVal dir As String)
        Command(ctrlstm, "CWD " + dir)
    End Sub

    Public Sub UpLoad(ByVal filename As String, ByVal binary As Boolean)
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "STOR " + filename)
        Receive(ctrlstm)
        Dim f As FileStream = New FileStream (filename, FileMode.Open)
        Dim b(100000 - 1) As Byte
        Dim ix As Integer = 0
        Dim n As Integer
        While ix < f.Length
            n = f.Read(b, 0, b.Length)
            datastm.Write(b, 0, n)
            Thread.Sleep(100)
            ix += n
        End While
        f.Close
        datastm.Close
        data.Close
    End Sub

    Public Sub DownLoad(ByVal filename As String, ByVal binary As Boolean)
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "RETR " + filename)
        Receive(ctrlstm)
        Dim f As FileStream = New FileStream (filename, FileMode.Create)
        Dim b(100000 - 1) As Byte
        Dim n As Integer
        While datastm.DataAvailable
            n = datastm.Read(b, 0, b.Length)
            f.Write(b, 0, n)
            Thread.Sleep(100)
        End While
        f.Close
        datastm.Close
        data.Close
    End Sub

    Public Function InitUpLoad(ByVal filename As String, ByVal binary As Boolean) As NetworkStream
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "STOR " + filename)
        Receive(ctrlstm)
        Return datastm
    End Function

    Public Sub EndUpload
        datastm.Close
        data.Close
    End Sub

    Public Function InitDownLoad(ByVal filename As String, ByVal binary As Boolean) As NetworkStream
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "RETR " + filename)
        Receive(ctrlstm)
        Return datastm
    End Function

    Public Sub EndDownload
        datastm.Close
        data.Close
    End Sub

    Public Sub Logout()
        Command(ctrlstm, "QUIT")
        ctrlstm.Close
        ctrl.Close
    End Sub
End Class

Public Class Fxp
    Public Shared Sub Transfer(fromhost As String, fromuser As String, frompass As String, frompath As String, _
                              filename As String, binary As Boolean, _
                              tohost As String, touser As String, topass As String, topath As String)
        Dim fromcli As FtpClient = New FtpClient(fromhost, fromuser, frompass)
        Dim tocli As FtpClient = New FtpClient(tohost, touser, topass)
        fromcli.ChDir(frompath)
        tocli.ChDir(topath)
        Dim istm As NetworkStream = fromcli.InitDownLoad(filename, binary)
        Dim ostm As NetworkStream = tocli.InitUpLoad(filename, binary)
        Dim b(100000 - 1) As Byte
        Dim n As Integer
        While istm.DataAvailable
            n = istm.Read(b, 0, b.Length)
            ostm.Write(b, 0, n)
            Thread.Sleep(100)
        End While
        fromcli.EndDownLoad
        tocli.EndUpLoad
        fromcli.Logout
        tocli.Logout
    End Sub
End Class

Class TestClass
    Public Shared Sub Main(ByVal args As String())
        Fxp.Transfer("arne", "anonymous", "arne@", "utilities", "utilities.zip", True, "arne2", "anonymous", "arne@", ".")
    End Sub
End Class

Næste trin TransferDirect metoden !

Hm.

Jeg ved hvordan jeg vil lave det.

Men jeg sidder lige nu fast i en error code 501 ...

Jeg glæder mig til at se løsningen! :)

Hm.

Det er som forhekset.

Gad vide om de FTP servere jeg tester på overhovedet understøtter det.

jeg er ubeskrivelig glad for at du gider at bruge tid på det!

Jeg kan ikke finde nogle servere som tillader dette.

Nu har jeg testet det med client program + 2 x IIS localhost.

Så må du prøve om det virker med 2 rigtige FTP servere.

Imports System
Imports System.IO
Imports System.Text
Imports System.Net.Sockets
Imports System.Threading

Public Class FtpClient
    Private ctrl As TcpClient
    Private ctrlstm As NetworkStream
    Private data As TcpClient
    Private datastm As NetworkStream

    Private Shared Sub Send(ByVal stm As NetworkStream, ByVal line As String)
        Dim b As Byte() = Encoding.Default.GetBytes(line)
        stm.Write(b, 0, b.Length)
    End Sub

    Private Shared Function Receive(ByVal stm As NetworkStream) As String
        Dim b(100000 - 1) As Byte
        Dim ix As Integer = 0
        Dim n As Integer
        While stm.DataAvailable
            n = stm.Read(b, ix, b.Length - ix)
            ix += n
        End While
        Return Encoding.Default.GetString(b, 0, ix)
    End Function

    Public Shared Function Command(ByVal stm As NetworkStream, ByVal cmd As String) As String
        Send(stm, cmd + Convert.ToChar(13) + Convert.ToChar(10))
        Thread.Sleep(200)
        Return Receive(stm)
    End Function

    Private Sub SetupData()
        Dim dataaddr As String = Command(ctrlstm, "PASV")
        Dim addrparts As String() = dataaddr.Split("()".ToCharArray)(1).Split(",".ToCharArray)
        Dim datahost As String = addrparts(0) + "." + addrparts(1) + "." + addrparts(2) + "." + addrparts(3)
        Dim dataport As Integer = Integer.Parse(addrparts(4)) * 256 + Integer.Parse(addrparts(5))
        data = New TcpClient (datahost, dataport)
        datastm = data.GetStream
    End Sub

    Private Function SetupData1() As String
        Dim dataaddr As String = Command(ctrlstm, "PASV")
        Dim addrparts As String = dataaddr.Split("()".ToCharArray)(1)
        SetupData1 = addrparts
    End Function

    Private Sub SetupData2(ByVal addr As String)
        Command(ctrlstm, "PORT " + addr)
    End Sub

    Public Sub New(ByVal host As String, ByVal username As String, ByVal password As String)
        ctrl = New TcpClient (host, 21)
        ctrlstm = ctrl.GetStream
        Command(ctrlstm, "USER " + username)
        Command(ctrlstm, "PASS " + password)
    End Sub

    Public Function Dir() As String
        SetupData
        Command(ctrlstm, "LIST")
        Dim res As String = Receive(datastm)
        Receive(ctrlstm)
        datastm.Close
        data.Close
        Return res
    End Function

    Public Function ShortDir() As String
        SetupData
        Command(ctrlstm, "NLST")
        Dim res As String = Receive(datastm)
        Receive(ctrlstm)
        datastm.Close
        data.Close
        Return res
    End Function

    Public Sub MkDir(ByVal dir As String)
        Command(ctrlstm, "MKD " + dir)
    End Sub

    Public Sub RmDir(ByVal dir As String)
        Command(ctrlstm, "RMD " + dir)
    End Sub

    Public Sub ChDir(ByVal dir As String)
        Command(ctrlstm, "CWD " + dir)
    End Sub

    Public Sub UpLoad(ByVal filename As String, ByVal binary As Boolean)
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "STOR " + filename)
        Receive(ctrlstm)
        Dim f As FileStream = New FileStream (filename, FileMode.Open)
        Dim b(100000 - 1) As Byte
        Dim ix As Integer = 0
        Dim n As Integer
        While ix < f.Length
            n = f.Read(b, 0, b.Length)
            datastm.Write(b, 0, n)
            Thread.Sleep(100)
            ix += n
        End While
        f.Close
        datastm.Close
        data.Close
    End Sub

    Public Sub DownLoad(ByVal filename As String, ByVal binary As Boolean)
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "RETR " + filename)
        Receive(ctrlstm)
        Dim f As FileStream = New FileStream (filename, FileMode.Create)
        Dim b(100000 - 1) As Byte
        Dim n As Integer
        While datastm.DataAvailable
            n = datastm.Read(b, 0, b.Length)
            f.Write(b, 0, n)
            Thread.Sleep(100)
        End While
        f.Close
        datastm.Close
        data.Close
    End Sub

    Public Function InitUpLoad(ByVal filename As String, ByVal binary As Boolean) As NetworkStream
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "STOR " + filename)
        Receive(ctrlstm)
        Return datastm
    End Function

    Public Sub EndUpload
        datastm.Close
        data.Close
    End Sub

    Public Function InitDownLoad(ByVal filename As String, ByVal binary As Boolean) As NetworkStream
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "RETR " + filename)
        Receive(ctrlstm)
        Return datastm
    End Function

    Public Sub EndDownload
        datastm.Close
        data.Close
    End Sub

    Public Function InitDirectUpLoad(ByVal binary As Boolean) As String
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        InitDirectUpload = SetupData1
    End Function
   
    Public Sub DirectUpLoad(ByVal filename As String)
        Command(ctrlstm, "STOR " + filename)
        Receive(ctrlstm)
    End Sub

    Public Sub InitDirectDownLoad(ByVal addr As String, ByVal binary As Boolean)
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData2(addr)
    End Sub
   
    Public Sub DirectDownLoad(ByVal filename As String)
        Command(ctrlstm, "RETR " + filename)
        Receive(ctrlstm)
    End Sub

    Public Sub Logout()
        Command(ctrlstm, "QUIT")
        ctrlstm.Close
        ctrl.Close
    End Sub
End Class

Public Class Fxp
    Public Shared Sub Transfer(fromhost As String, fromuser As String, frompass As String, frompath As String, _
                              filename As String, binary As Boolean, _
                              tohost As String, touser As String, topass As String, topath As String)
        Dim fromcli As FtpClient = New FtpClient(fromhost, fromuser, frompass)
        Dim tocli As FtpClient = New FtpClient(tohost, touser, topass)
        fromcli.ChDir(frompath)
        tocli.ChDir(topath)
        Dim istm As NetworkStream = fromcli.InitDownLoad(filename, binary)
        Dim ostm As NetworkStream = tocli.InitUpLoad(filename, binary)
        Dim b(100000 - 1) As Byte
        Dim n As Integer
        While istm.DataAvailable
            n = istm.Read(b, 0, b.Length)
            ostm.Write(b, 0, n)
            Thread.Sleep(100)
        End While
        fromcli.EndDownLoad
        tocli.EndUpLoad
        fromcli.Logout
        tocli.Logout
    End Sub
    Public Shared Sub TransferDirect(fromhost As String, fromuser As String, frompass As String, frompath As String, _
                                    filename As String, binary As Boolean, _
                                    tohost As String, touser As String, topass As String, topath As String)
        Dim fromcli As FtpClient = New FtpClient(fromhost, fromuser, frompass)
        Dim tocli As FtpClient = New FtpClient(tohost, touser, topass)
        fromcli.ChDir(frompath)
        tocli.ChDir(topath)
        fromcli.InitDirectDownload(tocli.InitDirectUpload(binary), binary)
        fromcli.DirectDownload(filename)
        tocli.DirectUpload(filename)
        fromcli.Logout
        tocli.Logout
    End Sub
End Class

Class TestClass
    Public Shared Sub Main(ByVal args As String())
        Fxp.TransferDirect("localhost", "anonymous", "arne@", "d1", "test.txt", False, "localhost", "anonymous", "arne@", "d2")
    End Sub
End Class

Imponerende...!
Sørger dette stykke kode for at filerne ikke kommer til at røre min PC?

Jeg har to ønsker til koden;
1) Det skal være muligt at kalde med en port værdi for hver server.
2) Support for flere filer

Venlig hilsen,
Martin.

Ja.

Men som sagt har jeg ikke kunnet testet den ordentligt.

re 1)

Det er ret nemt at tilføje.

re 2)

Er det ikke bare at kalde TransferDirect flere gange ?

Her er en med port:

Imports System
Imports System.IO
Imports System.Text
Imports System.Net.Sockets
Imports System.Threading

Public Class FtpClient
    Private ctrl As TcpClient
    Private ctrlstm As NetworkStream
    Private data As TcpClient
    Private datastm As NetworkStream

    Private Shared Sub Send(ByVal stm As NetworkStream, ByVal line As String)
        Dim b As Byte() = Encoding.Default.GetBytes(line)
        stm.Write(b, 0, b.Length)
    End Sub

    Private Shared Function Receive(ByVal stm As NetworkStream) As String
        Dim b(100000 - 1) As Byte
        Dim ix As Integer = 0
        Dim n As Integer
        While stm.DataAvailable
            n = stm.Read(b, ix, b.Length - ix)
            ix += n
        End While
        Return Encoding.Default.GetString(b, 0, ix)
    End Function

    Public Shared Function Command(ByVal stm As NetworkStream, ByVal cmd As String) As String
        Send(stm, cmd + Convert.ToChar(13) + Convert.ToChar(10))
        Thread.Sleep(200)
        Return Receive(stm)
    End Function

    Private Sub SetupData()
        Dim dataaddr As String = Command(ctrlstm, "PASV")
        Dim addrparts As String() = dataaddr.Split("()".ToCharArray)(1).Split(",".ToCharArray)
        Dim datahost As String = addrparts(0) + "." + addrparts(1) + "." + addrparts(2) + "." + addrparts(3)
        Dim dataport As Integer = Integer.Parse(addrparts(4)) * 256 + Integer.Parse(addrparts(5))
        data = New TcpClient (datahost, dataport)
        datastm = data.GetStream
    End Sub

    Private Function SetupData1() As String
        Dim dataaddr As String = Command(ctrlstm, "PASV")
        Dim addrparts As String = dataaddr.Split("()".ToCharArray)(1)
        SetupData1 = addrparts
    End Function

    Private Sub SetupData2(ByVal addr As String)
        Command(ctrlstm, "PORT " + addr)
    End Sub

    Public Sub New(ByVal host As String, ByVal username As String, ByVal password As String)
        ctrl = New TcpClient (host, 21)
        ctrlstm = ctrl.GetStream
        Command(ctrlstm, "USER " + username)
        Command(ctrlstm, "PASS " + password)
    End Sub

    Public Sub New(ByVal host As String, ByVal port As Integer, ByVal username As String, ByVal password As String)
        ctrl = New TcpClient (host, port)
        ctrlstm = ctrl.GetStream
        Command(ctrlstm, "USER " + username)
        Command(ctrlstm, "PASS " + password)
    End Sub

    Public Function Dir() As String
        SetupData
        Command(ctrlstm, "LIST")
        Dim res As String = Receive(datastm)
        Receive(ctrlstm)
        datastm.Close
        data.Close
        Return res
    End Function

    Public Function ShortDir() As String
        SetupData
        Command(ctrlstm, "NLST")
        Dim res As String = Receive(datastm)
        Receive(ctrlstm)
        datastm.Close
        data.Close
        Return res
    End Function

    Public Sub MkDir(ByVal dir As String)
        Command(ctrlstm, "MKD " + dir)
    End Sub

    Public Sub RmDir(ByVal dir As String)
        Command(ctrlstm, "RMD " + dir)
    End Sub

    Public Sub ChDir(ByVal dir As String)
        Command(ctrlstm, "CWD " + dir)
    End Sub

    Public Sub UpLoad(ByVal filename As String, ByVal binary As Boolean)
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "STOR " + filename)
        Receive(ctrlstm)
        Dim f As FileStream = New FileStream (filename, FileMode.Open)
        Dim b(100000 - 1) As Byte
        Dim ix As Integer = 0
        Dim n As Integer
        While ix < f.Length
            n = f.Read(b, 0, b.Length)
            datastm.Write(b, 0, n)
            Thread.Sleep(100)
            ix += n
        End While
        f.Close
        datastm.Close
        data.Close
    End Sub

    Public Sub DownLoad(ByVal filename As String, ByVal binary As Boolean)
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "RETR " + filename)
        Receive(ctrlstm)
        Dim f As FileStream = New FileStream (filename, FileMode.Create)
        Dim b(100000 - 1) As Byte
        Dim n As Integer
        While datastm.DataAvailable
            n = datastm.Read(b, 0, b.Length)
            f.Write(b, 0, n)
            Thread.Sleep(100)
        End While
        f.Close
        datastm.Close
        data.Close
    End Sub

    Public Function InitUpLoad(ByVal filename As String, ByVal binary As Boolean) As NetworkStream
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "STOR " + filename)
        Receive(ctrlstm)
        Return datastm
    End Function

    Public Sub EndUpload
        datastm.Close
        data.Close
    End Sub

    Public Function InitDownLoad(ByVal filename As String, ByVal binary As Boolean) As NetworkStream
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData
        Command(ctrlstm, "RETR " + filename)
        Receive(ctrlstm)
        Return datastm
    End Function

    Public Sub EndDownload
        datastm.Close
        data.Close
    End Sub

    Public Function InitDirectUpLoad(ByVal binary As Boolean) As String
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        InitDirectUpload = SetupData1
    End Function
   
    Public Sub DirectUpLoad(ByVal filename As String)
        Command(ctrlstm, "STOR " + filename)
        Receive(ctrlstm)
    End Sub

    Public Sub InitDirectDownLoad(ByVal addr As String, ByVal binary As Boolean)
        If binary Then
            Command(ctrlstm, "TYPE I")
        Else
            Command(ctrlstm, "TYPE A")
        End If
        SetupData2(addr)
    End Sub
   
    Public Sub DirectDownLoad(ByVal filename As String)
        Command(ctrlstm, "RETR " + filename)
        Receive(ctrlstm)
    End Sub

    Public Sub Logout()
        Command(ctrlstm, "QUIT")
        ctrlstm.Close
        ctrl.Close
    End Sub
End Class

Public Class Fxp
    Public Shared Sub Transfer(fromhost As String, fromuser As String, frompass As String, frompath As String, _
                              filename As String, binary As Boolean, _
                              tohost As String, touser As String, topass As String, topath As String)
        Dim fromcli As FtpClient = New FtpClient(fromhost, fromuser, frompass)
        Dim tocli As FtpClient = New FtpClient(tohost, touser, topass)
        fromcli.ChDir(frompath)
        tocli.ChDir(topath)
        Dim istm As NetworkStream = fromcli.InitDownLoad(filename, binary)
        Dim ostm As NetworkStream = tocli.InitUpLoad(filename, binary)
        Dim b(100000 - 1) As Byte
        Dim n As Integer
        While istm.DataAvailable
            n = istm.Read(b, 0, b.Length)
            ostm.Write(b, 0, n)
            Thread.Sleep(100)
        End While
        fromcli.EndDownLoad
        tocli.EndUpLoad
        fromcli.Logout
        tocli.Logout
    End Sub
    Public Shared Sub TransferDirect(fromhost As String, fromport As Integer, fromuser As String, frompass As String, frompath As String, _
                                    filename As String, binary As Boolean, _
                                    tohost As String, toport As Integer, touser As String, topass As String, topath As String)
        Dim fromcli As FtpClient = New FtpClient(fromhost, fromport, fromuser, frompass)
        Dim tocli As FtpClient = New FtpClient(tohost, toport, touser, topass)
        fromcli.ChDir(frompath)
        tocli.ChDir(topath)
        fromcli.InitDirectDownload(tocli.InitDirectUpload(binary), binary)
        fromcli.DirectDownload(filename)
        tocli.DirectUpload(filename)
        fromcli.Logout
        tocli.Logout
    End Sub
End Class

Class TestClass
    Public Shared Sub Main(ByVal args As String())
        Fxp.TransferDirect("localhost", 21, "anonymous", "arne@", "d1", "test.txt", False, "localhost", 21, "anonymous", "arne@", "d2")
    End Sub
End Class

Den kode du har lavet der er fantastisk.! og du fortjæner alle points og lidt til :)

Jeg har dog stadig nogle få ønsker; hvis jeg skal overføre flere filer, ved at kalde funktionen flere gange, så disconnecter den og forbinder igen, for hver fil. Er det muligt at gå ind og få fat i hvilke filer der ligger i 'frompath'? Det ville gøre det hele 100 gange så let. På den måde ville man vel kunne køre noget i stil med:

for each file in bla bla bla
  fromcli.DirectDownload(filename)
  tocli.DirectUpload(filename)
next file

Venlig hilsen,
Martin.

Public Shared Sub TransferDirect(fromhost As String, fromport As Integer, fromuser As String, frompass As String, frompath As String, _
                                    filename() As String, binary As Boolean, _
                                    tohost As String, toport As Integer, touser As String, topass As String, topath As String)
        Dim fromcli As FtpClient = New FtpClient(fromhost, fromport, fromuser, frompass)
        Dim tocli As FtpClient = New FtpClient(tohost, toport, touser, topass)
        fromcli.ChDir(frompath)
        tocli.ChDir(topath)
        Dim i As Integer
        For i = 0 To filename.Length
            fromcli.InitDirectDownload(tocli.InitDirectUpload(binary), binary)
            fromcli.DirectDownload(filename(i))
            tocli.DirectUpload(filename(i))
        Next
        fromcli.Logout
        tocli.Logout
    End Sub

tager et array som argument for filnavn (jeg er en lille smule skeptisk
overfor hvordan serverne vil håndtere det !).

Du kan bruge ShortDir funktionen til at få returneret de filer som er
i et directory (som en streng der kan parses).

og et svar

Kanon!
Nu skal du høre; jeg arbejder for tiden på en IRC client, hvilket inkluderer: Activex, GUI, Access Database og nogle andre ting. Jeg har desværre nogle få problemer med koden, hvad skal du have for at optimere koden og rette nogle store fejl? Er det noget du er interesseret i?

Venlig hilsen,
Martin

Jeg har efterhånden rodet lidt med den kode du gav mig, og er nu nået frem til løsningen...
Du er kommet til at bytte om på hvilken server der skal i port mode og hvilken server der skal i passive mode...
Løsningen:

'fromcli.InitDirectDownLoad(tocli.InitDirectUpLoad(binary), binary)
tocli.InitDirectDownLoad(fromcli.InitDirectUpLoad(binary), binary)

Venlig hilsen,
Martin

En sidste ting...:
Er det ikke muligt at vente på at Fra og Til serveren har sagt at de er færdige med at downloade/uploade? Dette skal ske efter:

fromcli.DirectDownload(filename(i))
tocli.DirectUpload(filename(i))

Det er nødvendigt for at overføre filer der tager længere tid end det gør for koden at komme så langt.

Fra serveren siger: 226 Transfer ok
Til serveren siger: 226 File received ok.

ActiveX kender jeg intet til. GUI kender jeg lidt til. Databaser kender jeg meget til.

Snakker du om point eller kroner ?

Jeg var ikke klar over at der var krav til om det var fra eller til server som
skulle i PASV mode.

Det gælder sådan set alle kommandoerne. De burde ændres til at vente indtil status
findes fremfor bare at vente 200 millisekunder og så tage det der er.

Det gælder sådan set alle kommandoerne. De burde ændres til at vente indtil status
findes fremfor bare at vente 200 millisekunder og så tage det der er.

<- har du en løsning på det? eller skal man lave noget 'rod' med en try, catch og prøve igen... det virker bare forkert at gøre det sådan...!

Snakker du om point eller kroner ?
lad os sige points i første omgang :)

Det skal ikke laves med try catch.

Men hver kommando der sendes skal vente på et svar.

Jeg kan godt lave det.

Men vi beynder at bevæge os fra klassisk Eksperten hjælp til selvhjælp over
i regulær software udvikling.

Hvis jeg kommer til at kede mig en dag kunne jeg godt finde på at lave det, men
jeg vil ikke garantere noget.

Hvis det haster så kan du selv lave det. Det er bare en masse nørklen for
at gøre koden mere robust, teste for status koder, udskrive fejlmeddelelser
og den slags.

Jeg kan godt lave det.
<- Kan du løse det med at koden skal vente på at serveren er klar?

Det med at du ville kigge på det andet program, hvis du engang keder dig, det lyder helt okay!

Vil du have min email, så jeg kan sende dig projectet?