|
Dir avec FileSystemObject (local au serveur)
<% // le dossier du serveur doit avoir un droit en lecture pour l'utilisateur Web // ici le sous-dossier strLogPath = ".." folderspec = Replace(request("PATH_TRANSLATED"), "default.asp" ,strLogPath) // ou directement // folderspec= "d:\mon_dossier\" Response.write "Dossier local : " & folderspec & "" Dim fs, f, s , fc, f1 Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.SubFolders For Each f1 in fc s = s & UCase(f1.Name) & " utilise " & f.size & " octets." s = s & "
" Next Response.write s %>