Bonjour !!!

Voilà, je souhaiterai vérifier l'existence d'un fichier hébergé sur un répertoire partagé du réseau (qui n'est pas le inetpub d'IIS où sont hébergés les pages)...

<%'----------tester si un fichier existe------------
'---définition du chemin absolu au fichier
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
nom_fich = SESSION("num")&".pdf"
chemin_fichier = "\\serveur\commun\PN\"&nom_fich

'---test de son existence
If FSO.FileExists(chemin_fichier) Then
	message="<a href="""&chemin_fichier&""" target=""_blank"">PN "&SESSION("num")&"</a>"
Else
	message="Fichier non présent"
End If
Set FSO = Nothing

'---affichage de la réponse
Response.write(message)
%>