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