Locked 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