** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Visual Basic Clásico (VB3...VB6)
  Mensajes nuevos Mensajes nuevos RSS - error windows 7
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoerror windows 7

 Responder Responder
Autor
Mensaje
ahayyhy Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 25/Octubre/2007
Localización: España
Estado: Sin conexión
Puntos: 207
Enlace directo a este mensaje Tema: error windows 7
    Enviado: 12/Febrero/2010 a las 17:14
Hola, Buenas tardes;
Me había creado una arcaica aplicación para hacer la copia de seguridad diaria de mi pc a un HD externo, pero, ahora he cambiado de equipo y me da error.
El código es el siguiente:

Private Sub Form_Load()
Dim fso
Dim origen As String, destino As String
Dim origen1 As String
Dim origen2 As String
    origen = "C:\copia\" 'ruta de orígen
    origen1 = "C:\Users\user\Desktop\" 'ruta de orígen
    origen2 = "C:\Users\user\Documents\" 'ruta de orígen
destino = "F:\Copia Seguridad " & Format$(Date, "ddmmyyyy") 'ruta de destino
Set fso = CreateObject("Scripting.FileSystemObject")
MkDir "F:\Copia Seguridad " & Format$(Date, "ddmmyyyy") 'creo la carpeta
fso.CopyFolder (origen & "*.*"), destino
fso.CopyFile (origen & "*.*"), destino
fso.CopyFile (origen1 & "*.*"), destino
fso.CopyFolder (origen2 & "*.*"), destino
fso.CopyFile (origen2 & "*.*"), destino
Shell """C:\Program Files\WinRAR\WinRAR.exe"" m -dh -ep1 -ow -r -t -agDD-MMM-YY ""F:\Copia.rar"" ""F:\Copia Seguridad " & Format$(Date, "ddmmyyyy") & """"
End Sub

Donde los orígines son las carpetas que quiero copiar cada día y el origen es una carpeta que creo en la unidad del disco duro externo.

Pues bien, en xp me iba bien, sin fallo alguno.
En el 7, me da error al copiar las carpetas de la carpeta "documents", me da error 70, permiso denedago.
He estado probando y he observado que el error me lo da cuando me "crea en la copia" la carpeta "Mi Música", carpeta que NO ESTÁ en mi carpeta Documents (al menos yo no la veo).

Se os ocurre alguna solución?
Gracias
Arriba
Emilio Ver desplegable
Administrador
Administrador

Santander

Unido: 08/Agosto/2004
Localización: España
Estado: Sin conexión
Puntos: 18823
Enlace directo a este mensaje Enviado: 12/Febrero/2010 a las 17:22
Hola!
 
¿Has verificado que esa ruta realmente existe en Windows7?. la estructura de carpetas es diferente en XP y W7
Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/
Arriba
ahayyhy Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 25/Octubre/2007
Localización: España
Estado: Sin conexión
Puntos: 207
Enlace directo a este mensaje Enviado: 12/Febrero/2010 a las 17:37
si, el código los he modificado con los datos de windows 7.
Es decir, he sustituido los orígenes por los "nuevos" en windows7.
de hecho me funciona bien todo el código salvo el
fso.CopyFolder (origen2 & "*.*"), destino
que cuando lleva la mitad de "mis documentos" copiado, aparece esa carpeta "mi música" y da el error de permiso denegado.

Gracias
Arriba
Emilio Ver desplegable
Administrador
Administrador

Santander

Unido: 08/Agosto/2004
Localización: España
Estado: Sin conexión
Puntos: 18823
Enlace directo a este mensaje Enviado: 12/Febrero/2010 a las 19:08
¿Y el error en cual de las dos rutas está? ¿puedes verificarlo mediante un dir en la ventana inmediato?
Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/
Arriba
ahayyhy Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 25/Octubre/2007
Localización: España
Estado: Sin conexión
Puntos: 207
Enlace directo a este mensaje Enviado: 12/Febrero/2010 a las 19:29
No entiendo mucho de esto, pero creo que me preguntas si el error está en el "origen" o en el "destino". La verdad no lo sé (ni sé como averiguarlo). Pero siempre he partido de que el error está en el origen, puesto que el resto de carpetar me las copia bien.
Arriba
Emilio Ver desplegable
Administrador
Administrador

Santander

Unido: 08/Agosto/2004
Localización: España
Estado: Sin conexión
Puntos: 18823
Enlace directo a este mensaje Enviado: 12/Febrero/2010 a las 21:07
Me refiero a que si has verificado que las dos rutas son correctas, ejecuta el proceso paso a paso, detenlo para verificar el contenido de las variables y hacer un dir de ambas para ver cual es el resultado.
Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/
Arriba
ahayyhy Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 25/Octubre/2007
Localización: España
Estado: Sin conexión
Puntos: 207
Enlace directo a este mensaje Enviado: 15/Febrero/2010 a las 09:34
Buenos días;
Sí, yo el código lo voy ejecutando con f8, y va todo bien hasta ese punto, ahí está un rato copiando (las carpetas que hay en mis documentos), y en un determinado momento, crea esa carpeta "mi musica" y ahí da el error.

PD. He visto, que si "miro" mis documentos con otros programas aparecen carpetas que "en teoría" no están cuando miras con el explorador.
Como por ejemplo esa "mi musica", "mis imágenes" descargas ...
Arriba
Coco Ver desplegable
Colaborador
Colaborador


Unido: 02/Febrero/2005
Localización: España
Estado: Sin conexión
Puntos: 2718
Enlace directo a este mensaje Enviado: 15/Febrero/2010 a las 10:28
Hola!
 
los exploradores, por defecto, vienen configurados para no mostrar determinadas carpetas, por eso puedes no verlas desde el explorador y si desde otros programas.
Saludos
Arriba
ahayyhy Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 25/Octubre/2007
Localización: España
Estado: Sin conexión
Puntos: 207
Enlace directo a este mensaje Enviado: 15/Febrero/2010 a las 10:33
Aha, ok, gracias tendré que seguir mirando y en último caso buscar otra solución más casera mediante un formulario para "indicarle" que carpetas ha de copiar, pero eso va a ser un coñazo, puesto que cada vez que haya una carpeta nueva, se quedará en el limbo hasta que "edite" la copia.
Arriba
ahayyhy Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 25/Octubre/2007
Localización: España
Estado: Sin conexión
Puntos: 207
Enlace directo a este mensaje Enviado: 16/Febrero/2010 a las 11:07
he hecho una prueba, y si pongo la comilla simple delante de la orden:
fso.CopyFolder (origen2 & "*.*"), destino
entonces la copia se ejecuta perfectamente, obviamente sin copiarme las carpetas del directorio "Mis Documentos". Pero sigo sin entender el porqué de ese error.
hay alguna manera de que me salga un "reporte" con el error exacto? es decir, que me salga en el mensaje en vez de Error 70 permiso denied, me diga error intentando copiar la carpeta x o el archivo y??

Gracias
Arriba
ahayyhy Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 25/Octubre/2007
Localización: España
Estado: Sin conexión
Puntos: 207
Enlace directo a este mensaje Enviado: 16/Febrero/2010 a las 17:37
bueno, os voy a contar como lo he solucionado, no tiene mucho que ver con la programación, pero por si a alguien más le sucede algo parecido:

Como os dije, en la vista normal de la carpeta "mis documentos" había una serie de carpetas que no aparecían y que luego al darle a copiar "estaban", pues bien, con le cuteftp (con el que actualizo la web) se veían esas carpetas fantasma (mi musica y mis imagenes), así que las "suprimí". Dio un error de imposible acceder, pero desaparecieron, y ahora ya va bien la copia.

Gracias a todos por vuestro tiempo y ayuda
Se puede cerrar.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable