ctricheur
Messages postés4Date d'inscriptionvendredi 1 août 2003StatutMembreDernière intervention19 mars 2007
-
18 mars 2004 à 15:07
jesusonline
Messages postés6814Date d'inscriptiondimanche 15 décembre 2002StatutMembreDernière intervention13 octobre 2010
-
18 mars 2004 à 19:47
Bonjour a tous...
Je cherche a faire les choses suivante :
1/ Rechercher dans un repertoire tous les fichiers qui commance par une valeur definie issue d'une base, cette valeur etant fixe de 6 caracteres suivi d'un _
2/ afficher uniquement les fichiers issue du resultat de cette recherche dans une liste...
Je sui parti sur lutilistaion de Server.CreateObject("Scripting.FileSystemObject").... je ne sias pas si c'est la meilleur methode....
Merci pour cette aide precieuse.... cela fais plussieurs heure que je planche evidement sans succes...
jesusonline
Messages postés6814Date d'inscriptiondimanche 15 décembre 2002StatutMembreDernière intervention13 octobre 201029 18 mars 2004 à 18:55
tu fais ca en .net ?
pour tronquer tes fichiers tu as la methode left(String,7) Ca te retournera une string des 7 premiers caracteres tu fais un test si ca correspond à ce que tu veux et puis pour le reste tout depend si tu travailles en .net ou pas
ctricheur
Messages postés4Date d'inscriptionvendredi 1 août 2003StatutMembreDernière intervention19 mars 2007 18 mars 2004 à 19:03
mais il ne tient pas compte du parametre de recherche... il me donne comme reponse tous le contenu du repertoire
<%
idclient = request.cookies("idclient")
SearchText = Right(( 100000000 + idclient), 6 )+"_"
%>
<HTML>
Resultat pour <%=SearchText%>
<%
Const fsoForReading = 1
Dim strSearchText
strSearchText = Request("SearchText")
'Now, we want to search all of the files
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("/ImgUp/"))
Dim objFile, objTextStream, strFileContents, bolFileFound
bolFileFound = False
For Each objFile in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
strFileContents = objTextStream.ReadAll
If InStr(1,strFileContents,strSearchText,1) then
%>
[<% = objFile.Name %> <% = objFile.Name %>]
<%
bolFileFound = True
End If
objTextStream.Close
End If
Next
if Not bolFileFound then Response.Write "Pas de fichier...."
Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</HTML>