ok, estoy haciendo un instalador personalizado, y necesito que me deje elejir la ruta donde se moveran unos archivos que ya tengo predeterminados o los borre. ok, mi codigo es el siguiente, solo me hace falta eso

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.DeleteFile "C:\Archivos de programa\Rockstar Games\GTA San Andreas\models\txd\LOADSCS.txd"
variable.MoveFile ".\models\txd\LOADSCS.txd", "C:\Archivos de programa\Rockstar Games\GTA San Andreas\models\txd\LOADSCS.txd"
variable.DeleteFile "C:\Archivos de programa\Rockstar Games\GTA San Andreas\models\fronten2.txd"
variable.MoveFile ".\models\fronten2.txd", "C:\Archivos de programa\Rockstar Games\GTA San Andreas\models\fronten2.txd"
variable.DeleteFolder "C:\Archivos de programa\Rockstar Games\GTA San Andreas\data"
variable.MoveFolder ".\data", "C:\Archivos de programa\Rockstar Games\GTA San Andreas\data"
Form4.Show
Form2.Hide
End Sub

PSPs yo creo que no deberias utilizar "c:....", si quieres poder elejir el folder para eso pues utiliza un drlistbox y con su propiedad path te da el regreso ok?


ademas de que igual y te falta hacer unos cuantos if para que puedas checar si elimina o no el file bueno eso digo yo ojala y te sirva!!!

cual es la propiedad path???

lo del If no se usarlo, pero se para que es, If fileexist algo asi creo, podrias ponerme un ejemplo??

gracias

solucionado, pero tengo un problema

ya consegi eso, pero ahora tengo otro

Código:

Private Sub Command1_Click()
Set variable = CreateObject("Scripting.FileSystemObject")
variable.MoveFolder ".\Speed Island files", Text1.Text & ".\"
mcpbar1.Value = 10
variable.DeleteFile "(Text1.Text)models\txd\LOADSCS.txd"
mcpbar1.Value = 25
variable.MoveFile ".\models\txd\LOADSCS.txd", Text1.Text & ".\models\txd\"
mcpbar1.Value = 35
variable.DeleteFile "models\fronten2.txd"
mcpbar1.Value = 50
variable.MoveFile ".\models\fronten2.txd", Text1.Text & ".\"
mcpbar1.Value = 65
variable.DeleteFolder ".\data"
mcpbar1.Value = 85
variable.MoveFolder ".\data", Text1.Text & ".\"
mcpbar1.Value = 99
End Sub

Private Sub Dir1_Change()
Text1.Text = Dir1.Path
End Sub

esto

Código:

variable.DeleteFile "(Text1.Text)models\txd\LOADSCS.txd"

se que esta mal, pero no se como hacer que me borre el models\txd\LOADSCS.txd pero necesito que me lo borre de la ruta que se selecciono, por ej, si se selecciono, C:/pepito

que me borre C:/pepito/models\txd\LOADSCS.txd

o C:/otromodo//models\txd\LOADSCS.txd

gracias