Imprimir Página - remplazar una carpeta moviendola?

Título: remplazar una carpeta moviendola?
Publicado por: soru13 en 21 Junio 2006, 13:13 pm

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:

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

Título: Re: remplazar una carpeta moviendola?
Publicado por: Gorky en 21 Junio 2006, 17:06 pm

Código:

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.

Título: Re: remplazar una carpeta moviendola?
Publicado por: soru13 en 21 Junio 2006, 17:28 pm

gracias, ya lo consegui

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: soru13 en 21 Junio 2006, 13:13 pm