Threaded Mode | Linear Mode

FreckleS · 12-20-2009, 11:23 AM

Well...It still uses the File. methods of vb.net but its just a bit different..bit of fun. Was playing around with bytes a bit and thought this would be a bit of fun lol...

Give credits if you use please, its not flash but still are due
Here it is:

Code:

Imports System.IO

Module CopyFileClass

    Sub Main()

        Console.Title = "Custom CopyFile Class"

        Dim strSrcFile, strDestFile As String

        Console.WriteLine("Please Enter Source File: ")

        strSrcFile = Console.ReadLine()

        Console.WriteLine("Please Enter Destination File: ")

        strDestFile = Console.ReadLine()

        CopyFile(strSrcFile, strDestFile)

    End Sub

    Sub CopyFile(ByVal SrcFile As String, ByVal DestFile As String)

        Try

            File.WriteAllBytes(DestFile, File.ReadAllBytes(SrcFile))

        Catch ex As Exception

            Console.WriteLine(ex.Message)

            Console.ReadLine()

            Exit Sub

        End Try

        Console.WriteLine(vbCrLf & "Successfully Copied {0} To {1}", SrcFile, DestFile)

        Console.ReadLine()

    End Sub

End Module

Enjoy

***drdebcol*** · 12-20-2009, 11:20 PM

This is similar as using streams in Delphi.
Very good !

codecaine · 12-20-2009, 11:24 PM

I would just use the built in static method from the System.IO module
File.Copy(source,destination);

FreckleS · 12-21-2009, 07:35 AM

Yeah ofc, I would too but I made this as an example for a mate who wanted to know how to read the bytes from a file and then place them in another.

***spiro_dt*** · 12-30-2009, 12:15 AM

it good to know how this functions work , so one challenge is to make unstoppable file copier
Simple program that will copy files from cd , but if the cd is litle damaged or dirty it says data redundancy check so it will be useful to have program that will let you to eject the cd clean it and then return it back and continue , to just to put file coping on hold to do something else with your cd drive