Bonjour,
je voudrais parcourir un dossier sur le serveur du bureau.
mais il ne le vois jamais ???
peut importe le lien que je lui donne, sauf en local
il me dit toujours "Pas capable d'entrer dans le dossier."
voici mon code :
Dim Root
Const SpaceIndent = " "
'A changer pour votre cas à vous
'Root = Server.MapPath("/")
'Root = "\\serveur2\daze1218\2784_chertsey\M_T_Q"
Root = "M:\2784_chertsey\M_T_Q"
Response.Write "<br><br><br><br>Root = " & Root & "<br>"
' Fonction recursive pour l'affichage d'une arborescence
Function DrawTree(sRoot, I)
Dim FSO, Folder, SubFolder, File
' Instanciation
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If (FSO.FolderExists(sRoot)) Then
Response.Write "<br>sRoot = " & sRoot & "<br>"
Response.write "Bravo, nous y voila."
else
Response.Write "<br>sRoot = " & sRoot & "<br>"
Response.write "Pas capable d'entrer dans le dossier."
exit function
end if
' Instanciation
set Folder = FSO.getFolder(sRoot)
' Incrementation de l'arborescence - dossiers
I = I + 1
' On n'affiche pas les _vti, _derived, _notes (dossiers réservés à IIS),
' mais on affiche tout les autres
' Trouver la position du dernier '\' et vérifier si le caractère suivant est un _
If Mid(sRoot, (Len(sRoot) - Instr(StrReverse(sRoot), "\")+2), 1) <> "_" Then
' Identatation
PrintSpaces(I)
' Afficher dossier
Response.Write Mid(sRoot, (Len(sRoot) - Instr(StrReverse(sRoot), "\")+2)) & " <br>"
' Incrementation de l'arborescence - fichiers
I = I + 1
Set Folder = FSO.getFolder(sRoot)
' Afficher tout les fichers contenu dans le répertoire courant
For Each File in Folder.Files
' Indentation à l'affichage
PrintSpaces(I)
' Affichage du fichier
Response.Write File.Name & " <br>"
Next
' Décrémentation de l'arborescence - fichiers
I = I - 1
End If
' Parcourir tout les sous-dossiers du dossier courant
for each SubFolder in Folder.SubFolders
' Verifier si le dernier caractère du chemin vers le dossier
' courant est un '\'
If Right(sRoot,1) <> "\" Then
sRoot = sRoot & "\"
End If
' Afficher le dossier courant dans l'arbre
Call DrawTree(sRoot & delem & SubFolder.Name, I)
' Décrémentation de l'arborescence
I = I - 1
' Prochain
Next
'Destruction des instances
Set Folder = Nothing
Set FSO = Nothing
End Function
'Fonction qui affiche l' indentation
Function PrintSpaces(Number)
Response.Write Number & " - "
For I = 0 to Number
Response.Write SpaceIndent
next
End Function
' Appel de la fonction d'affichage de structure
Call DrawTree(Root,-1)
P.S. C'est un code que j'ai prit sur le net
merci de m'éclairer
nirega