lecture du contenu d'un dossier [Résolu]

[Damish]

Bonjour
Voilà j'aurai voulu savoir si il était possible de faire une vérification pour savoir si un fichier(pdf ici en l'occurrence) était bien présent dans un dossier.
Dans mon cas le client va publier des doc pdf et les stocker dans le répertoire lié a mon site et ensuite les rendre disponible pour la visualisation(en cliquant sur un lien href) et je voudrai m'assurer que le doc existe est ce possible et si oui comment ?
Merci

[Damish]

j'ai trouvé ca :

Code :

1
2
3
folderspec = server.mappath("DocPdf/"&"<%=RS("reference")%><%)
            Set fso = CreateObject("Scripting.FileSystemObject")
            Set Folder = fso.GetFolder(folderspec)

je crois que je suis sur la bonne piste mais je ne sais pas m'en servir et comment ca marche pour mon probleme pouvez vous m'aider svp

[Damish]

Ca avance mais c'est toujour pas ca maintenant j'ai fait :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
case "Rendre les documents disponible"
	toto = RS("reference")
	titi ="prout"
	folderspec = server.mappath("DocPdf/"&RS("reference"))
	response.write folderspec
            Set fso = CreateObject("Scripting.FileSystemObject")
            Set Folder = fso.GetFolder(folderspec)
	For each fileitem in folderitem.Files
	if fileitem.name = true then
	for each tutu in Request.form("chec")
	sql="Update table_document SET dispo='O' WHERE dispo='N' AND reference='"&tutu&"'"
	Set RS1 = Server.CreateObject("ADODB.RecordSet")
    RS1.Open sql, BaseLink
	next
   response.redirect "DocIndispo.asp"
   else
   response.write titi
   end if
   next
   end select

mais ca me dit pas si il existe ou pas ,le chemin d'accés est bon mais il me renvoit une erreur comme quoi le chemin d'accés est introuvable mais justement c'est parce qu'il n'existe pas et MON message d'erreur ne s'affiche pas...au secour

[budkiller]

Pour vérifier qu'un fichier existe, tu peux utiliser

Code :

if(FSO.FileExists(chemin_complet du fichier)) then

en esperant que ça t'aideras

[Gwenn]

Envoyé par budkiller

Pour vérifier qu'un fichier existe, tu peux utiliser

Code :

if(FSO.FileExists(chemin_complet du fichier)) then

en esperant que ça t'aideras

Je confirme, c'est ce que je ferais à ta place: si le fichier existe tu crées le lien href sinon bah tu le crées po

[Damish]

ca ne marche tjour pas il me met que le chemin d'acces est introuvable je comprend pas ou je me sert mal des méthodes je sais pas aidez moi svp

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
case "Rendre les documents disponible"
 
 
	toto = RS("reference")
	titi ="pasbon"
	folderspec = "ftp://S10P10BVBUB/GestionREX/"
	response.write folderspec
            Set fso = CreateObject("Scripting.FileSystemObject")
            Set Folder = fso.GetFolder(folderspec)
    if(fso.FileExists(folderspec)) then	
	for each tutu in Request.form("chec")
	sql="Update table_document SET dispo='O' WHERE dispo='N' AND reference='"&tutu&"'"
	Set RS1 = Server.CreateObject("ADODB.RecordSet")
    RS1.Open sql, BaseLink
	next
   response.redirect "DocIndispo.asp"
   else
   rech = 1
   end if
   end select

[budkiller]

FileExists prends en paramètres le chemin du fichier en entier dossier/fichier.ext et non pas juste le dossier.

[Gwenn]

J'ai jamais testé avec un chemin ftp et je serais pas surpris que ca fonctionne pas. Ensuite, il faut s'affranchir des autorisations d'acces.

Pour isoler le probleme, fais le test sur le chemin descendant de la racine de ton site, sur un de tes fichiers asp par exemple, en indiquant le chemin complet "c:\...." ou en utilisant server.mappath

[Damish]

j'en suis toujour au meme point je ne suis plus en ftp mais en http pour le serveur...
maintenant il n'y a plus d'erreur mais meme si le doc est existant ca ne marche pas ca affiche pas bon alors que si je fait un copier/coller du response.write j'accede au doc c'est donc qu'il existe et ca marche avec c: ... jcomprend plus rien
Si quelqu'un peut m'aider ca serai super sympa , merci deja a gwen et au autre qui mon deja bien fait avancé

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
case "Rendre les documents disponible"
 
	tutu=request.form("chec")
	titi ="pasbon"
	folderspec ="http://s10p10bvbub/Gestionrex/DocPdf/"&tutu
		'response.write folderspec
            Set fso = CreateObject("Scripting.FileSystemObject")
 
    if(fso.FileExists(folderspec)) then	
	for each tutu in Request.form("chec")
	sql="Update table_document SET dispo='O' WHERE dispo='N' AND reference='"&tutu&"'"
	Set RS1 = Server.CreateObject("ADODB.RecordSet")
    RS1.Open sql, BaseLink
	next
  response.redirect "DocIndispo.asp"
  else
  rech = 1
   end if
   end select

[budkiller]

essaye peut etre ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
case "Rendre les documents disponible"
 
	tutu=request.form("chec")
	titi ="pasbon"
	folderspec = Server.MapPath("/s10p10bvbub/Gestionrex/DocPdf/")
             fichier = folderspec&"\"&tutu
             'response.write fichier
             Set fso = CreateObject("Scripting.FileSystemObject")
             if(fso.FileExists(fichier)) then	
	     sql="Update table_document SET dispo='O' WHERE dispo='N' AND reference='"&tutu&"'"
	    Set RS1 = Server.CreateObject("ADODB.RecordSet")
                 RS1.Open sql, BaseLink
	    response.redirect "DocIndispo.asp"
            else
                 rech = 1
            end if
   end select

[Damish]

non ca marche tjrs pas le response.write me met

Code :

D:\WEB-2005\s10p10bvbub\Gestionrex\DocPdf\Exemple de rapport.pdf

[budkiller]

tu as essayé avec un fichier sans espace ??

c'est le bien bon chemin ???

[Immobilis]

Salut,

Vous avez testé la FAQ aussi?
http://asp.developpez.com/faq/?page=...rcours_complet

A+