Discussion :

[pagez]

Bonjour,

Je veux attendre qu'un fichier soit fini d'etre créer avant de l'envoyer par mail en piece jointe.

J'arrive a tester la présence d'un fichier avec FileSystemObject
comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
nom_fich = "fichier.txt"
chemin_fichier = Server.MapPath(nom_fich)
 
'---test de son existence
If FSO.FileExists(chemin_fichier) Then
message="le fichier existe bien sur le serveur"
Else
message="ce fichier n'existe pas!"
End If
Set FSO = Nothing

mais je n'arrive pas a faire de boucle du style tant que le fichier n'existe pas retester.

Merci d'avance pour votre aide je n'ai rien trouvé sur le web.

[philippe123]

Bonjour,

Je veux attendre qu'un fichier soit fini d'etre créer avant de l'envoyer par mail en piece jointe.

J'arrive a tester la présence d'un fichier avec FileSystemObject
comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
nom_fich = "fichier.txt"
chemin_fichier = Server.MapPath(nom_fich)
 
'---test de son existence
If FSO.FileExists(chemin_fichier) Then
message="le fichier existe bien sur le serveur"
Else
message="ce fichier n'existe pas!"
End If
Set FSO = Nothing

mais je n'arrive pas a faire de boucle du style tant que le fichier n'existe pas retester.

Merci d'avance pour votre aide je n'ai rien trouvé sur le web.

ca peut marcher comme ca mais ca sent la boucle sans fin si le fichier n'a pas été créé...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
nom_fich = "fichier.txt"
chemin_fichier = Server.MapPath(nom_fich)
 
BoolExist = 0 
 
'---test de son existence
do while BoolExist = 0 
   If FSO.FileExists(chemin_fichier) Then
      BoolExist = 1
   End If
loop

[pagez]

non ca boucle toujours memem qd le fichier est creer

[nos80]

J'ai essayé ça et ça marche chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
nom_fich = "fichier.txt" 
chemin_fichier = Server.MapPath(nom_fich) 
 
BoolExist = 0 
i=0
'---test de son existence 
do while FSO.FileExists(chemin_fichier) = 0 
	response.write(i&" - not exist<br>")
	i=i+1
loop
 
response.write("exist")

[Immobilis]

Y'a qd mm qqch qui m'intrigue.
Comment peut-on faire un "server.mappath" sur un fichier qui n'existe pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
nom_fich = "fichier.txt" 
chemin_fichier = Server.MapPath(nom_fich)

De plus tu ne reprends pas "Boolexist".

eventuellement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
	i=0
	DO WHILE cint(i) < 32767 AND NOT FSO.FileExists("D:\Myweb\cfm\mycontract\web\test\monfichier.txt")
		response.Write("Boucle " & i & " : Pas de fichier<br>")
		i=i+1
	LOOP
	IF FSO.FileExists("D:\Myweb\cfm\mycontract\web\test\monfichier.txt") THEN
		response.write("...Traitement...")
	ELSE
		response.write("Toujours pas de fichier")
	END IF
Set FSO = nothing

En tous les cas une boucle sans echappement est dangereux.

A+