High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Forum
ASP / ASP.NET
Sujet Précédent
Sujet Suivant
Liste des fichiers d'un répertoire sans .NET
cs_Dino
Messages postés
87
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 septembre 2004
- 29 sept. 2002 à 19:58
cs_Dino
Messages postés
87
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 septembre 2004
-
30 sept. 2002 à 20:46
Bonjour !!
Je souhaiterais afficher la liste des fichiers d'un repertoire, mais
sans utiliser .NET
Merci de vos reponses.
Afficher la suite
A voir également:
Liste des asp
Liste deroulante php
✓
-
Forum PHP
Parcourir une liste java
✓
-
Forum Java
Afficher ma liste de courses
-
Forum Java
Liste c#
✓
-
Forum C# / .NET
Parcourir les élément d'un jcombobox
✓
-
Forum Java
2 réponses
Réponse 1 / 2
hanhod
Messages postés
27
Date d'inscription
jeudi 19 septembre 2002
Statut
Membre
Dernière intervention
23 février 2004
30 sept. 2002 à 20:29
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
Réponse 2 / 2
cs_Dino
Messages postés
87
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 septembre 2004
30 sept. 2002 à 20:46
Merci, je vais essayer ...
Votre réponse
Discussions similaires
Liste des couleurs
$hawn
-
22 juin 2000 à 17:36
squilici
-
12 avril 2005 à 12:36
parcourir une liste en java
imenmannou
-
3 mai 2008 à 15:15
DARKSIDIOUS
-
3 mai 2008 à 16:52
Listing des marques et modéle de voiture
tibine974
-
27 oct. 2006 à 07:58
Nidalbae
-
9 janv. 2023 à 11:41
Correction examen c++ aide
Majestick
-
26 févr. 2015 à 12:11
Majestick
-
26 févr. 2015 à 18:04
parcourir une liste
aboubakr664
-
12 sept. 2017 à 15:14
aboubakr664
-
14 sept. 2017 à 18:55
Rejoignez-nous