Discussion :

[thunderblade]

Bonjour,
Je suis nouveau en asp et je n'arrive pas à récupérer la valeur de retour d'une fonction VBscript.

Voici ce que je fais:

ma fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<script language="VBScript">
 
function filemodifdate(FILE)
{
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set rs = fs.GetFile(Server.MapPath(FILE))
modified = rs.DateLastModified
return modified
}
 
Response.Write(filemodifdate("D:\Docs\Logs\04-2005\ACTION\HELLO.txt"))
 
 </SCRIPT>

voila je voudrais soit pouvoir afficher cette variable soit pouvoir l'utiliser comme variable.

Merci de vos réponses,

[bachilbouzouk]

[Gwenn]

Salut,

il y a un mélange de javascript et vbscript la dedans

Ca devrait plutot ressembler a ca

Code :

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

1
2
3
4
5
6
7
 
function filemodifdate(FILE)
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set rs = fs.GetFile(Server.MapPath(FILE))
modified = rs.DateLastModified
filemodifdate = modified
End function

Et l'appelle

Code :

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

 response.write filemodifdate(argument)

Nb : n'oublies pas de fermer puis de détruire tes objets apres utilisation

[thunderblade]

Merci Gwenn mais il ne m'affiche rien et je n'ai aucune erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
<script language="VBScript">
function filemodifdate(FILE) 
Set fs = Server.CreateObject("Scripting.FileSystemObject") 
Set rs = fs.GetFile(Server.MapPath(FILE)) 
modified = rs.DateLastModified 
filemodifdate = modified 
End function 
 
 
response.writefilemodifdate ("D:\Docs\Logs\04-2005\ACTION\HELLO.txt")
</script>

Dreamweaver à pourtant l'air de reconnaitre les fonctions... et mon fichier existe bien j'ai fais un copier coller du path. De plus pour l'instant tout est dans le même fichier.asp et je ne fais pas encore de fs = nothing. Est ce que je dois faire un fichier.inc? Je ne trouve pas la soluce à mon problème sur internet.

[thunderblade]

Voila j'ai trouvé merci Gwenn de m'avoir aiguillier en faite j'avais mis sur le dessus de mon code

Code :

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

1
2
3
 
<%@ language="jscript" %>
<%Response.Buffer=true%>

et apparement si après ca je mets les balises script

Code :

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

<script language="VBScript"></script>

enfin voila j'aurais apris un truc sur ce nouveau langage pour moi ;-)

merci bonne journée