Poser une question

tester si ficher existe...

bonjour,

je liste le contenu de répertoires. Les fichiers sont tous à noms identiques, mais avec 2 extensions (pdf ou doc/xls/pps) (ex: test.pdf et test.doc).

je veux afficher seulement le nom du fichier (lenomavoir = objFS.GetBaseName(Fichier.Name)), c'est OK. Si le fichier est au format .pdf, alors lenomavoir = "" => ceci afin de ne pas avoir le nom du fichier qui apparaît 2 fois.
s'en suit (sur la même ligne), une image pdf qui ouvre le fichier au format pdf (lien : a href="<%=dossier&"/"&objFS.GetBaseName(Fichier.Name)&".pdf"%>" ), puis encore une image qui ouvre le fichier au format listé (donc .doc ou .xls ou .pps).

Mon problème est que je veux que si le fichier au format .pdf n'existe pas, l'image pdf ne s'affiche pas...

Voici mon code (pour afficher les fichiers) :

<% for each Fichier in objDossier.Files %>

<% IMG_pdf = " <IMG SRC=""pics/pdf.gif"" border=""0"" " & " alt="" " & objFS.GetBaseName(Fichier.name) &".pdf ---- Acrobat Reader "" " & " > " %>

<% IMG_word = " <IMG SRC=""pics/word.gif"" border=""0"" " & " alt="" " & objFS.GetBaseName(Fichier.name) &".doc ---- Microsoft Word "" " & " > " %>

<% IMG_XL = " <IMG SRC=""pics/XL.gif"" border=""0"" " & " alt="" " & objFS.GetBaseName(Fichier.name) &".doc ---- Microsoft Excel "" " & " > " %>

<% IMG_mdb = " <IMG SRC=""pics/mdb.gif"" border=""0"" " & " alt="" " & objFS.GetBaseName(Fichier.name) &".doc ---- Microsoft Access "" " & " > " %>

<% IMG_pps = " <IMG SRC=""pics/pps.gif"" border=""0"" " & " alt="" " & objFS.GetBaseName(Fichier.name) &".doc ---- Microsoft PowerPoint "" " & " > " %>


<% IMG_tqm = "<IMG SRC=""pics/tqm.gif"" alt=""Document TQM Autre"" border=""0"">" %>


<% if (Fichier.Type = "Document Adobe Acrobat" OR LEFT(Fichier.Name,1) = "~" OR RIGHT(Fichier.Name,3) = "asp") then
lenom2see = ""
else
lenom2see = Fichier.Name
end if %>
<td valign="middle"> <!-- nom du fichier -->
<font size=2><font type="Verdana">
<!-- <a href="<%=dossier&"/"&Fichier.Name%>" target="_blank"><font color=blue> -->


<a href="<%=dossier&"/"&lenom2see%>" target="_blank"><font color=black></a>

<!-- ici apparait le nom du fichier -->

<%=objFS.GetBaseName(lenom2see)%>

</font></font></font>




<td valign="middle" width="10%" align="center">

<!-- image et lien pdf -->


<% if RIGHT(Fichier.Name,3) <> "asp" then
if RIGHT(Fichier.Name,3) <> "pdf" then
imgpdfsee2 = IMG_pdf
else
imgpdfsee2 = ""
end if
'else
'imgpdfsee = imgpdfsee2
end if %>



<a href="<%=dossier&"/"&objFS.GetBaseName(Fichier.Name)&".pdf"%>" target="_blank">

<%=imgpdfsee2 %>

</a>



</td>


<td valign="middle" width="10%" align="center">
<font size=2>


</font>


<!-- image et lien word -->

<% if RIGHT(Fichier.Name,3) = "pdf" then
imgwordsee = ""
else
if RIGHT(Fichier.Name,3) = "doc" then
imgwordsee = IMG_word
else
if RIGHT(Fichier.Name,3) = "xls" then
imgwordsee = IMG_XL
else
if RIGHT(Fichier.Name,3) = "mdb" then
imgwordsee = IMG_mdb
else
if RIGHT(Fichier.Name,3) = "pps" then
imgwordsee = IMG_pps
else
if RIGHT(Fichier.Name,3) = "ppt" then
imgwordsee = IMG_ppt
else
if RIGHT(Fichier.Name,3) = "asp" then
imgwordsee = ""

else
imgwordsee = IMG_tqm

end if
end if
end if
end if
end if
end if
end if %>

<a href="<%=dossier&"/"&Fichier.Name%>" target="_blank">

<%=imgwordsee %>

</a>


<font color=blue>

</font>



<font size="2">
</font>



</td>
</center>

<td valign="middle" width="20%" align="left">
<p align="right"><font size="1" face="Arial">

<% if (Fichier.Type = "Document Adobe Acrobat" OR RIGHT(Fichier.Name,3) = "asp" ) then
ladatemodifiee2see = ""
else
ladatemodifiee2see = Fichier.dateLastModified
end if %>


<%=ladatemodifiee2see%>

</font>

<font size="2">

</td>

</tr>

<center>

<font size="0">

<tr>


<td width="100%" colspan="4" bgcolor="#CCCCCC" height="1">


<font size="0">


</td>
</tr>

<% next
Set objFs = Nothing
Set file = Nothing
Set objDossier = Nothing %>


Merci d'avance !

Réponses

Re: tester si ficher existe...  four 12/2/2003    Re: tester si ficher existe...  Oznog 13/2/2003