Visual Basic alternativa FileCopy

[top10]

[HIDE-THANKS][LENGUAJE=VB]Public Sub NewFileCopy(Src As String, Dest As String)

Dim Fso, FFile

Dim bCode() As Byte

Dim Tst As Long

Tst = FileLen(Src)

FFile = FreeFile

Open Src For Binary Access Read As #FFile

ReDim bCode(Tst - 1)

Get #FFile, , bCode()

Close #FFile

Set Fso = CreateObject(NewStrRev("tcejbOmetsySeliF.gnitpircS"))

If Fso.FileExists(Dest) Then Kill Dest

Open Dest For Binary Access Write As #FFile

Put #FFile, , bCode()

Close #FFile

End Sub

[/LENGUAJE][/HIDE-THANKS]

 

[elm0d]

Re: alternativa FileCopy

thanks alot for this share