Liste des fichiers d'un répertoire sans .NET

Signaler
Messages postés
87
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 septembre 2004
-
Messages postés
87
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 septembre 2004
-
Bonjour !!

Je souhaiterais afficher la liste des fichiers d'un repertoire, mais sans utiliser .NET

Merci de vos reponses.

2 réponses

Messages postés
27
Date d'inscription
jeudi 19 septembre 2002
Statut
Membre
Dernière intervention
23 février 2004

Salam,
Ce code sert pour chercher un mot ds un de fichiers situés ds un repertoire. Vous pouvez en servir pour vos besoins.

<HTML>
Search Results for <%=Request("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("/"))

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
Response.Write "<LI>[ " & objFile.Name & "]
"

bolFileFound = True
End If

objTextStream.Close
End If
Next

if Not bolFileFound then Response.Write "No matches found..."

Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</HTML>

Bonne chance
Hanane
Messages postés
87
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 septembre 2004

Merci, je vais essayer ...