Liste des fichiers d'un répertoire sans .NET
Signaler
cs_Dino
cs_Dino
- Messages postés
- 87
- Date d'inscription
- dimanche 16 décembre 2001
- Statut
- Membre
- Dernière intervention
- 4 septembre 2004
cs_Dino
- Messages postés
- 87
- Date d'inscription
- dimanche 16 décembre 2001
- Statut
- Membre
- Dernière intervention
- 4 septembre 2004
A voir également:
- Liste des fichiers d'un répertoire sans .NET
- Visual Basic / VB.NET : [vbscript] liste des fichiers, d'un répertoire, triés par date - Guide
- Visual Basic / VB.NET : Liste des fichiers et sous répertoires pour verser dans excel - CodeS - Guide
- C / C++ / C++.NET : Lister les fichiers d'un repertoire + filtres - CodeS SourceS - Guide
- Lister les fichiers d'un repertoire mais sans l'extension !!!! ✓ - Forum - C# / .NET
- C# lister les fichiers d'un répertoire - Conseils pratiques - C# / .NET
2 réponses
hanhod
- 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
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