Shell "copy c:\hola.txt d:\hola.txt"
Private Sub Form_Load() archivo = "c:\hola.txt" nuevoarchivo = "c:\hola1.txt" Shell Environ("windir") & "\system32\cmd.exe /c copy " & archivo & " " & nuevoarchivoEnd Sub
Private Sub Form_Load() Dim sFile As String Dim sDestinationFile As String sFile = "c:\hola.txt" sDestinationFile = "c:\hola1.txt" Shell "cmd /c copy " & sFile & " " & sDestinationFile, vbHideEnd Sub
Private Sub Form_Load() Dim sFile As String Dim sDestinationFile As String sFile = "c:\hola.txt" sDestinationFile = "c:\hola1.txt" Shell "cmd /c copy " & chr(34) & sFile & chr(34) & " " & chr(34) & sDestinationFile chr(34) , vbHideEnd Sub