Lister le contenu d'un dossier

**DDante** · 04/06/2008, 15h06

Bonjour à tous,

Je m'y connait très peu en VBSCRIPT et on me demande de lister le contenu d'un répertoire dans une page HTML. J'ai essayé plusieurs manière mais tout à été peu concluant: rien ne s'affiche. J'ai repris le code de microsoft (http://support.microsoft.com/kb/q218606) mais rien ne s'affiche pour autant Est ce que quelqu'un aurait une idée?
Je vous montre le code on sait jamais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
<%@LANGUAGE="VBSCRIPT"%>
<%
	Option Explicit	
 
	Dim strDocsPath, strDocsPhysicalPath
	Dim objFSO, objFolder, objFiles, objFile
	Dim strName, strFile, strType, lngSize
 
	' NOTE: set the following line to the folder to display
	strDocsPath = "C:\"
 
	' map the folder to a physical path
	strDocsPhysicalPath = Server.MapPath(strDocsPath)
 
	' create a system file object
 	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
 
	' create an object for the folder
	Set objFolder = objFSO.GetFolder(strDocsPhysicalPath)
 
%>
<html>
<head>
<title>Table Of Contents</title>
</head>
 
<body>
 
<h1 align="center">Table Of Contents</h1>
 
<h4>Please choose the Document to view.</h4>
 
<ul>
<%
	' create a files collection
	Set objFiles = objFolder.Files
 
	' step through the files collection
	For Each objFile in objFiles
 
		' get a file's name
		strName = objFile.Name
 
		' make it lowercase for the URL
		strFile = Lcase(strName)
 
		' get the file's type
		strType = objFile.Type
 
		' make the name a title for display
		strName = MakeTitle(strName)
 
		' get the file size in KB
		lngSize = objFile.Size\1024
 
		' output the filename and URL
		Response.Write "<li><a href=""" & strDocsPath & "/" & strFile & """>" & strName & "</a><br>"
 
		' output the file's size and type
		Response.Write "<em>(" & lngSize & "KB " & strType & ")</em></li>" & vbCrLf
	Next
 
	' this function drops the extension from a file
	Function MakeTitle(strTemp)
		If InStrRev(strTemp,".") Then
			strTemp = Left(strTemp,InStrRev(strTemp,".")-1)
		End If
		MakeTitle = strTemp
	End Function
%>
</ul>
</body>
</html>

Merci d'avance.

**ced600** · 05/06/2008, 09h49

Write est une méthode d'un objet Reponse fournie par IE pour que tu puisse écrire sur la page web ? Ou bien c un bout de code trouver au hasard ?

Essaye en remplaçant Reponse.Write par Wscript.echo ou msgbox .

Lister le contenu d'un dossier

VBScript

Discussions similaires

Partager

Partager