Как использовать writeallbytes в sourcef ? или какие-либо другие методы копирования файла из файла ресурсов?

---

Public Sub DownloadDriver()
    Try
        Dim SourceF As New IO.FileStream("C:\Users\Desktop\FTP", IO.FileMode.OpenOrCreate)
        Dim DestinationF As New IO.FileStream("C:\Users\Desktop\FTP\Driver.zip", IO.FileMode.Create)
        Dim len As Long = SourceF.Length - 1
        Dim buffer(1024) As Byte
        Dim byteCFead As Integer
        While SourceF.Position < len
            byteCFead = (SourceF.Read(buffer, 0, 1024))
            DestinationF.Write(buffer, 0, byteCFead)
            DownldStatus = CInt(SourceF.Position / len * 100)
            Application.DoEvents()
        End While
        DestinationF.Flush()
        DestinationF.Close()
        SourceF.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

Что я уже пробовал:

я просто пытаюсь добавить Источник: чтобы сделать что-то вроде WriteAllBytes из моего ресурса.Водитель

---