Código: Seleccionar todo
'------------------------------------------------------
'Coded By The Swash at 24/12/2009
'CopyAndCut Function [Not Apis]
'[email protected]
'www.Indetectables.Net
'------------------------------------------------------
Option Explicit
Public Function CopyAndCut(File As String, NewPath As String, OptionSelected As String)
On Error Resume Next
Dim Data As String
Dim Name As String
If OptionSelected = "Copy" Then
If Dir$(File) Then
Name = Dir$(File)
Open File For Binary As #1
Data = Space(LOF(1))
Get #1, , Data
Close #1
If GetAttr(NewPath) Then
Open NewPath & "\" & Name For Binary As #1
Put #1, , Data
Close #1
If OptionSelected = "Cut" Then Kill (File)
MsgBox NewPath & "\" & Name
End If
End If
End If
End FunctionUse:
Call CopyAndCut(File,NewPath, Command)
Command: Copy and Cut
Call CopyAndCut("C:\xd.txt","C:", Cut) : This Cut File
Call CopyAndCut("C:\xd.txt","C:", Copy) : This Copy File(Not delete original file)
