archivos

[Fabian olmos]

hey amigos como puedo hacer para ir comparando uno por uno los nombres de los archisvos que estan en una carpeta en mi servidor con un nombre dado por mi. y que me diga que si esta que me muestre el nombre. si no que me diga que el archivo a buscar no esta.

[AlZuwaga]

Pero... qué es exactamente lo que querés hacer?... ¿buscar en una carperta los archivos que contengan en su nombre parte del nombre dado por vos o saber si un archivo en particular existe? (o sea que su nombre coincida en su totalidad con el nombre dado por vos)

Para los dos casos tenés que usar FSO... pero para el segundo, sólo debés preguntar si el archivo existe:

Set filesys = Server.CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("c:\algun_archivo.txt") Then
Response.Write("El archivo existe")
Else
Response.Write("El archivo no existe")
End if


Para el primer caso, deberías recorrer todos los archivos de una carpeta, preguntar su nombre y verificar que el nombre dado por vos se encuentre en el nombre del archivo

[Fabian olmos]

Para el primer caso, deberías recorrer todos los archivos de una carpeta,
preguntar su nombre y verificar que el nombre dado por vos se encuentre en el
nombre del archivo
***************

este caso el que quiero saber. la question esta es como obtengo el nombre de los archivos.

[AlZuwaga]

OK. No lo probé, pero ésto debería funcionar:

Código:

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder("c:\una_carpeta")
Set Archivos = Carpeta.Files

Encontrar = ".txt"

ArchivosEncontrados = 0
For Each Archivo in Archivos
If InStr(Archivo.Name, Encontrar) <> 0 Then
Mensaje = Mensaje & "El archivo " & Archivo.Name & " contiene " & Encontrar & " en su nombre<br>"
ArchivosEncontrados = ArchivosEncontrados + 1
End if
Next

If ArchivosEncontrados <> 0 Then
Response.Write Mensaje
Else
Response.Write "No se han encontrado archivos cuyo nombre contenga " & Encontrar
End if

Set Archivos = Nothing
Set Carpeta = Nothing
Set FSO = Nothing