kopier data

Almindelige file streams er binære.

Jeg lavede engang følgende lilel konsole program:

Imports System
Imports System.IO

Module Main
    Sub Copy(fnm1 As String, fnm2 As String)
        Dim cr As String = Convert.ToChar(13)
        Dim size As Integer = (new FileInfo(fnm1)).Length
        Dim f1 As Stream = New FileStream(fnm1, FileMode.Open, FileAccess.Read)
        Dim f2 As Stream = new FileStream(fnm2, FileMode.Create, FileAccess.Write)
        Dim b(100000) As Byte
        Dim n As Long = 0
        Dim actual As Integer
        Dim more as boolean = True
        While (more)
            actual = f1.Read(b, 0, b.Length)
            If actual > 0 then
                f2.Write(b, 0, actual)
                n = n + actual
                Console.Write(cr & n & " af " & size)
            Else
                more = False
            End If
        End While
        f1.Close
        f2.Close
        Console.WriteLine(cr & n & " af " & size)
    End Sub
    Sub Main()
        Copy("C:\z1.dat", "C:\z2.dat")
    End Sub
End Module


Grundliggende skal du kun erstatte Console.Write(Line) med noget som
opdaterer din GUI.

Super... Den snupper jeg...


Iøvrigt. Har du en ide til nogle gode .net VB sites.... Jeg har stadigvæk problemer med noget ftp .. Og der er ingen her der kan/gidder hjælpe

Jeg har ikke lige nogen på lager.

Jeg har ikke glemt dit FTP spørgsmål. Men det kræver en del tid uden afbrydelser at
få det bragt til at virke. Så det er ikke fordi jeg ikke gider, men jeg har
også andet at lave.

OK at jeg ligger svar for dte her

Yes sir... Svar til dig..

Det ville ellers være lækkert med noget hjælp til det FTP.... Der driller, og jeg er IKKE kommer 1 skridt vidre...

Hvis du bor i KBH, vil jeg gerne smide nogle øl eller noget.



Men siden du jo er super haj til C# så gør det ikke noget at du laver det i C# da jeg jo godt kan bruge det i min code... :)


Og der er ikke så mange krav til det jeg skal bruge...