Path/File Acces Error , Error 75

[dkmarley]

Buenas Noches!!

Tengo el siguiente problema, tengo hecho un loader para cuando entre al WoW y el problema es, que al colocar el loader en la carpeta del WoW me sale dicho error, aunque si lo ejecuto desde fuera de la carpeta no sale ningun error.

Estube mirando posibles fallos con los permisos, pero lo ejecuto con un usuario.admin y no funciona aun teniendo los permisos correctos.

Codigo

'Declaramos la variable'
Dim Version As String
Private Sub Form_Load()
'Asignamos un valor a version por defecto'
Version = "esES"
'Establecemos carpeta como objeto'
Set carpeta = New FileSystemObject
'Comprobamos que existan las carpetas'
If carpeta.FolderExists("./Cache") Then
RmDir ("./Cache")
End If

If carpeta.FolderExists("./Errors") Then
RmDir ("./Errors")
End If
End Sub
Private Sub Command1_Click()
'Abrimos el fichero y lo modificamos agregando el realmlist y lo cerramos'
Open "./Data/" & Version & "/realmlist.wtf" For Output As #1
Print #1, "set realmlist aragor1.mine.nu"
Close #1
'Lanzamos el juego'
Shell "./WoW.exe"
End Sub
Private Sub Command2_Click()
Open "./Data/" & Version & "/realmlist.wtf" For Output As #1
Print #1, "set realmlist servergame.caballerosvengadores.com"
Close #1
Shell "./WoW.exe"
End Sub
Private Sub Command3_Click()
Open "./Data/" & Version & "/realmlist.wtf" For Output As #1
Print #1, "set realmlist 91.121.81.185"
Close #1
Shell "./WoW.exe"
End Sub
Private Sub Option1_Click()
'Agregamos un valor a la variable version'
Version = "esES"
End Sub

Private Sub Option2_Click()
Version = "usUS"
End Sub

Private Sub Option3_Click()
Version = "gbGB"
End Sub

Private Sub Option4_Click()
Version = "mxMX"
End Sub

Saludos y Paz