remplazar una carpeta moviendola?

[soru13]

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

Código [Seleccionar] Expandir

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

[Gorky]

Código [Seleccionar] Expandir

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.

[soru13]

gracias, ya lo consegui