Jose
29 de Noviembre del 2003

Necesito cortar un archivo y pegarlo en otra carpeta , mas especificamente cortar el archivo System.ocx y pegarlo en c:windowssystem .
Como puedo hacer??? alguna pagina con info???

sdemingo
29 de Noviembre del 2003

Hola,

Para lo que quieres hacer puedes usar el FileSystemObject

Pero lo vas a hacer en cualquier máquina, tienes que asegurarte primero q el archivo exista, que la carpeta de sistema del SO sea windowssystem y esté en c, etc....

Yo haría esto:

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Command1_Click()

Dim fs As Object
Dim DirectorioSistema As String
Dim Ret As Long

Set fs = CreateObject("Scripting.FileSystemObject")
DirectorioSistema = Space(255)
Ret = GetSystemDirectory(DirectorioSistema, 255)
DirectorioSistema = Left$(DirectorioSistema, Ret)

If fs.FileExists(DirectorioSistema & "System.ocx") Then
MsgBox "El archivo System.ocx ya existe en el sistema"
Exit Sub
Else
fs.CutFile "ruta del archivo System.ocx que quieres cortar", DirectorioSistema & ""
End If

Set fs = Nothing

End Sub


Saludos
sdemingo