hola, muevo una carpeta y como ya existe no me deja sobrescribirla, y yo quiero sobrescribirlo
ok, tengo este codigo, pero me falta eso para remplazarlo
Private Sub Command1_Click()
Set variable = CreateObject("Scripting.FileSystemObject")
variable.MoveFolder ".\Speed Island files", "C:\Archivos de programa\Rockstar Games\GTA San Andreas\Speed Island files"
variable.MoveFolder ".\models", "C:\Archivos de programa\Rockstar Games\GTA San Andreas\models"
variable.MoveFolder ".\data", "C:\Archivos de programa\Rockstar Games\GTA San Andreas\data"
Form4.Show
Form2.Hide
End Sub
gracias
Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
Private Sub Mover()
Dim ruta(3) As String
Dim error As Long
ruta(0) = "\Speed Island files"
ruta(1) = "\models"
ruta(2) = "\data"
For i = 0 To 2
RemoveDirectory ("C:\Archivos de programa\Rockstar Games\GTA San Andreas" & ruta(i))
error = MoveFile(App.Path & ruta(i), "C:\Archivos de programa\Rockstar Games\GTA San Andreas" & ruta(i))
Next i
End Sub
Ahi te he dejado el codigo ya hecho. No lo he testeado pero no tiene porque fallar. Tu solo tienes que copiarlo y pegarlo todo en un modulo. Si ves que te falla y no sabes como solucionarlo vuelves a postear. Espero que te sirva.
gracias, ya lo consegui