ya funciono hice lo siguiente
Código [CODE]:
Ver original'Creamos el objeto FileSystemObject
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' elegimos la carpeta 2009 desde la raiz del servidor web
' sustituir "/2009/" por la que lo que se necesite
Set folder = fso.GetFolder(Server.MapPath("/2009/documentos"))
Set files = folder.Files '
' construimos el Link ----------------------------------------
For Each file in files
'Declaramos variables
fil=file.Name
Idarchivo = left(file.Name,2) 'Extraemos el ID de los archivos PDF
Idsesion = mid(file.Name,3,2) 'Extraemos el ID de sesion de los archivos PDF
Idfecha = mid(file.Name,5,6) 'Extraemos la fecha de los archivos PDF
y con esto ya realize la consulta y me funciono correctamente.