| Pregunta: | 60537 - SI EXISTE ARCHIVO CON EXTENSION, ME DEVUELVA UN TEXTO? |
| Autor: | Miguel Granados |
| Buenas. Tengo una pagina hecha en ASP, y necesitaria que si en una determinada carpeta existe un archivo con una extension determinada, me devuelva un texto. So como hacer para que si sé el nombre concreto del archivo, me lo devuelva, pero el problema es que estos archivos se iran modicando dia a dia. El problema es que File Exists no acepta comodines del tipo "*.doc", sabriais como hacerlo? Os agradezco mucho vuestra atencion, y os dejo el codigo que trato de usar: <% Set objFS = Server.CreateObject("Scripting.FileSystemObject") If objFS.FileExists("\192.168.1.14docs*.doc") Then response.write("<font color='#00FF00' size='4' face='Arial, Helvetica, sans-serif'>Lo tiene </font>") else response.write("<font color='#FF0000' size='4' face='Arial, Helvetica, sans-serif'>No lo tiene </font>") end if %> | |
| Respuesta: | Jose Antonio Cabañero Damas |
| function instrFileInFolder(folder, fileMask) Set objFS = Server.CreateObject("Scripting.FileSystemObject") set miCarpeta = objFs.getFolder(folder) encontrado=false nArchivo=0 do while nArchivo<miCarpeta.files.count and encontrado=false set archivo = miCarpeta.files(nArchivo) if instr(archivo.filename, filemask)>0 then encontrado=true end if loop instrFileInFolder=encontrado end function If instrFileInFolder("\192.168.1.14docs", ".doc") Then response.write("<font color='#00FF00' size='4' face='Arial, Helvetica, sans-serif'>Lo tiene </font>") else response.write("<font color='#FF0000' size='4' face='Arial, Helvetica, sans-serif'>No lo tiene </font>") end if /*******************************************************************************/ Espero que te sirva, lo he hecho de cabeza por lo que no he podido probarlo si tienes cualquier duda no dudes en contactar conmigo. http://www.deseoqueteguste.com | |