22/05/2003, 16:21
| ||||
| ||||
| Porque Loop Sin DO Tengo este Error Error de compilación de Microsoft VBScript (0x800A040E) 'Loop' sin 'Do' /pruebas/prueba_mover.asp, line 25 do while not rs.eof File=trim(rs("id_kiwi")) Archivo= File & ".dxf" CAD = Server.MapPath("Z:\solocad\" & Archivo & ".dxf") if objfso.FileExists(CAD) THEN origen="Z:\solocad\"& Archivo destino="Z:\CADRetenido\" objfso.MoveFile origen, destino ELSE rs.MoveNext Loop********************linea 25 rs.Close Set rs = Nothing oConn.Close Set oConn = Nothing 
__________________ Usa títulos específicos y con sentido En las listas de correo o en los grupos de noticias, la cabecera del mensaje es tu oportunidad de oro para atraer la atención de expertos cualificados en aproximadamente 50 caracteres o menos. No los desperdicies en balbuceos como "Por favor ayúdame" (de "POR FAVOR AYÚDAME!!!" ya ni hablamos). No intentes impresionarnos con lo profundo de tu angustia; mejor usa ese preciado espacio para una descripción lo más concisa posible del problema. |
|
22/05/2003, 16:24
| ||||
| ||||
| Te falta cerrar el If, si encuentra el archivo, lo copias...si no lo encuentra, haces algo? si no haces nada si no lo encuentra entonces solo cierra el If do while not rs.eof File=trim(rs("id_kiwi")) Archivo= File & ".dxf" CAD = Server.MapPath("Z:\solocad\" & Archivo & ".dxf") if objfso.FileExists(CAD) THEN origen="Z:\solocad\"& Archivo destino="Z:\CADRetenido\" objfso.MoveFile origen, destino End If rs.MoveNext Loop********************linea 25 Bueno, creo que yo si me entendí...  Salu2,
__________________ "El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera." -- Ernest Hemingway |
|
22/05/2003, 16:36
| ||||
| ||||
| u_goldman Grande maestro con esto me ahorre N pega tenia que mover como 2000 archivos a manopla y ya lo habia hecho antes jejeje....... pero ahora automatizare este codigo que funciona de Pelos... Gracias Maestros... 
__________________ Usa títulos específicos y con sentido En las listas de correo o en los grupos de noticias, la cabecera del mensaje es tu oportunidad de oro para atraer la atención de expertos cualificados en aproximadamente 50 caracteres o menos. No los desperdicies en balbuceos como "Por favor ayúdame" (de "POR FAVOR AYÚDAME!!!" ya ni hablamos). No intentes impresionarnos con lo profundo de tu angustia; mejor usa ese preciado espacio para una descripción lo más concisa posible del problema. |
|
22/05/2003, 17:58
| ||||
| ||||
| Cuanto trabajo estas aprendiendo a automatizar en estos ultimos dias, eh dobled? Animo |
