Fichiers externes au site web

Bonjour,

Je souhaiterais lister le contenu d'un dossier situé sur un poste externe au site web.

Pour cette opération avec du dossier local, j'utilise le code :

Function intListeFileRep(pstrPath)

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

dir = Server.MapPath(pstrPath)

set foldPt = FSO.GetFolder(dir)
set fc = foldPt.Files

Response.Write("<table width=""100%"" border=""1"" borderColor=""#07209F"">")
Response.Write("<td width=""30%"" align=""center"" valign=""middle""> FICHIER</td>")
Response.Write("<td width=""10%"" align=""center"" valign=""middle""> TAILLE </td>")
Response.Write("<td width=""20%"" align=""center"" valign=""middle""> CREATION </td>")
Response.Write("<td width=""20%"" align=""center"" valign=""middle""> MODIFICATION </td>")
Response.Write("<td width=""20%"" align=""center"" valign=""middle""> ACCES </td>")

for each f in fc

Response.Write("<tr>")
Response.Write("<td width=""30%""><a href=""" & pstrPath & "/" & f.name & """>" & f.name & "</a></td>")
Response.Write("<td width=""10%"">" & f.size & " octets </td>")
Response.Write("<td width=""20%"">" & f.dateCreated & "</td>")
Response.Write("<td width=""20%"">" & f.dateLastModified & "</td>")
Response.Write("<td width=""20%"">" & f.dateLastAccessed & "</td>")
Response.Write("</tr>")

next
Response.Write("</table>")
intListeFileRep = fc.count
Set FSO = nothing

End Function

Cependant, si j'envoie en paramètre :
\\monserveurexterne\mondossierexterne
ou
//monserveurexterne/mondossierexterne
cela ne fonctionne pas !!

Comment faire pour l'adapter ?

Merci d'avance.

P. WENDLING

Moi je te propose de faire un mappage réseau sur le serveur Web pointant sur ton repertoire ou tu veux lister.. Ensuite tu mais les bons droits et je pense que le tour est joué..