Serveur de fichiers

[Poussy-Puce]

Bonjour, j'ai un serveur de fichiers X, et j'ai mon serveur Web Y, j'aimerais être capable de lister les fichiers contenus dans un répertoire sur le serveur de fichiers X. J'imagine qu'il n'y a pas de moyen de faire cela, mais si quelqu'un connaît une solution....


Merci d'avance

[Pymm]

si tu as moyen avec fso

voici le code que j'ai utilisé mais les fichiers étaient sur le même serveur mais si tu fais un mappage ça devrait pas poser problème.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set fso = Server.CreateObject("Scripting.FileSystemObject")
      fold="chemin_repertoire"
      pth_fold=Server.MapPath(fold)      
      If fso.FolderExists(pth_fold) Then
         set foldPt = fso.GetFolder(pth_fold) 
         set fc = foldPt.Files
         Response.Write "      <TR>" & chr(10)
            Response.Write "         <TD>" & chr(10)            
            Response.Write "             Fichiers du repertoire :" & chr(10)  
            Response.Write "         </TD>" & chr(10)
            Response.Write "      </TR>" & chr(10)
				 For Each f in fc			
 
            Response.Write "      <TR>" & chr(10)              
            Response.Write "         <TD align=""center"">" & chr(10)              
            Response.Write "             <A target=""_blank"" HREF=" & fold & "/" & f.name & ">" &  f.name & "</A>" & chr(10)             
            Response.Write "         </TD>" & chr(10)
            Response.Write "      </TR>" & chr(10)
         Next
      End If

après tu fermes tout et tu libères la memoire.

[Poussy-Puce]

Ouin, c'est le mapage que j'aimerais savoir comment faire!

[Immobilis]

Salut,

Je crois que c'est plus compliqué que ça. Il faut faire une recherche sur la delegation. En d'autre terme appliquer la bonne méthode pour que X autorise Y/IUSR_Y à accéder à ses fichiers.

A+

[Poussy-Puce]

Il me semblait aussi... Merci Immobilis, j'crois que je vais prendre une autre voix!

[Pymm]

j'ai déjà fait un mappage pour accéder a une base sur un autre serveur. Le souci c'est que ça nécessite un compte utilisateur et d'indiquer clairement le mot de passe .

voici le code :

Code :

1
2
3
4
Set WshNetwork = Server.CreateObject("Wscript.Network")   
   WshNetwork.MapNetworkDrive "Z:", "\\serveur\repertoire",, "domaine\utilisateur", "motdepasse"
...
WshNetwork.RemoveNetworkDrive "Z:"