Bonjour j'ai pris ce script la:
<%
Dim FS,F,SF,File
Set FS = CreateObject("Scripting.FileSystemObject")
// changer dossier1 pour le nom de votre dossier...
Set F = FS.GetFolder(Server.MapPath(\\nom_de_mon_serveur\nom_du_dossier)) L14 erreur
Set SF = F.SubFolders
%>
<div align=center>
<table width="85%" border="3" cellspacing="10" cellpadding="10" bgcolor="#CCCCCC" bordercolor="black">
<TR>
<TD><H4><B>Nom</B></TD>
<TD><H4><B>Taille</B></TD>
</TR>
<% dim totalMo %>
//liste les dossier un par un a la racine du server
<% For Each F In SF
set file = F.Files
%>
<% = "<TR>" %>
<% = "<TD>" %>
<font size="2"><B><% = F.Name %></B></font><BR>
//liste les fichier un par un dans les sous dossiers
<% For Each Files In File %>
<font size="2">
// changer dossier1 pour le nom de votre dossier...
- <a href="\\nom_de_mon_serveur\nom_du_dossier<%= F.name %>/<% = files.name %>" ><% = files.name %></a> <font size="1">- <% = FormatNumber((files.size/1040/1000), 2) %> Mo</font>
</font>
<BR>
<% Next %>
<% = "</TD>" %>
<% = "<TD>" %>
~ <% if (f.size/1040/1000/1000) >= 1 then %>
<font size="2">
<% = FormatNumber((F.Size /1040 / 1000 / 1000), 2) %> <B>Go</B>
<%else%>
<font size="2">
<% = FormatNumber((F.Size /1040 / 1000), 2) %> <B>Mo</B>
</font>
<%end if
totalMo = totalMo + F.size%>
<% = "</TD>" %>
<% = "</TR>" %>
<% Next %>
//faire afficher la taille total avec totalMo
Voila mon erreur:
Server.MapPath() error 'ASP 0173 : 80004005'
Caractère non valide pour le chemin
/nom_de_mon_dossier/taille_des_fichier.asp
, line 14
Un caractère non valide a été spécifié dans le paramètre Path pour la méthode MapPath.
Voila donc je ne sait pas quoi faire merci d'avance pour votre aide.