22/05/2003, 12:37
| ||||
| ||||
| Como se si existe un archivo Como lo dice el titulo quiero hacer una condicion si existe el archivo 1233.awd despues que lo mueva, bueno de eso me encargo yop pero como se si existe?
__________________ 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, 12:45
| ||||
| ||||
| Aquí te pongo un ejemplo que he usado para saber si existía una imagen en una carpeta. Adáptalo a tus necesidades: Código PHP:
__________________ ¡¡NO A LA GUERRA!! Si ponemos a nuestros mensajes títulos adecuados, la gente se animará más a abrirlos y resultarán más útiles en las busquedas. ¡No a los ayuuudaaa, urgenteee y similares! |
|
22/05/2003, 12:46
| ||||
| ||||
| Usando FSO. <% Set filesys = CreateObject("Scripting.FileSystemObject") If filesys.FileExists(server.mappath("fichero.txt")) Then 'codigo para ejecutar en caso afirmativo else 'codigo para ejecutar en caso negativo end if %> |
|
22/05/2003, 15:24
| ||||
| ||||
| los voy a probar y les aviso gracias... Que tengo maL sale este error Error de compilación de Microsoft VBScript (0x800A040E) 'Loop' sin 'Do' do while not rs.eof File=trim(rs("id_kiwi")) Archivo= File & ".dxf" IF NOT FS.FileExists(Archivo) THEN rs.MoveNext Loop Else origen="Z:\solocad\"& archivo destino="Z:\CADRetenido\" objfso.MoveFile origen, destino rs.MoveNext Loop 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:33
| ||||
| ||||
| <% do while not rs.eof File=trim(rs("id_kiwi")) Archivo= File & ".dxf" IF NOT FS.FileExists(Archivo) THEN response.write("No existe el archivo") 'te faltaba esto rs.MoveNext 'te sobra esto Loop 'te sobra esto Else origen="Z:\solocad\"& archivo destino="Z:\CADRetenido\" objfso.MoveFile origen, destino end if 'te faltaba esto rs.MoveNext Loop rs.Close Set rs = Nothing oConn.Close Set oConn = Nothing %> |
|
22/05/2003, 16:40
| ||||
| ||||
| Gracias maestro ya que estamos en esto la ultima del Dia por fa ,,,para hilar un poco mas fino , si la variable Achivo imprime el nombre del archivo como quedaria asi 011124.dxf No existe 011258.dxf No existe Termino del Proceso... 
__________________ 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:46
| ||||
| ||||
| response.write(archivo &" No existe") |
|
22/05/2003, 16:53
| ||||
| ||||
| Gracias maestro no los molesto mas me han solucionado todas mis dudas Gracias Funciono OK
__________________ 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. |
