Scripting.FileSystemObject

Version imprimable

Bonjour.

Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
<%
 
 Dim strFilename
 
'Save the current chart to a GIF file with a temporary'
'filename using the FSO'
set fso = Server.CreateObject("Scripting.FileSystemObject")
strFileName = Server.MapPath(".") & "\" & fso.GetTempName()+".gif"
objCSpace.ExportPicture strFileName, "gif", 800, 400
 
'Use On Error Resume Next to make sure we eventually delete'
'the temporary GIF file even if something fails in the next'
'couple of functions'
on error resume next
 
'The GIF file has been created. Return the contents of the'
'GIF file as binary data using the BinaryFileStream COM object'
set objBinaryFile = Server.CreateObject("BinaryFileStream.Object")
Response.BinaryWrite objBinaryFile.GetFileBytes(CStr(strFileName))
 
'Delete the GIF file since it is no longer needed'
objBinaryFile.DeleteFile CStr(sFullFileName)
 
'clear variables'
set objBinaryFile = nothing
set FSO = nothing
set objCSpace = nothing
 
%>

Il me crée un fichier tmp avec un nom au hasard.J'ai rajouté

Code:

+".gif"

et il me le met en GIF.

Seulement je voudrais choisir le nom.

Est-ce possible? Je ne veux pas utiliser

Code:

fso.GetTempName()

Comme çà mon gif à toujours le même nom pour moi l'afficher dans ma page asp.

Je sais pas is je suis clair
8O

Merci d'avance :D

Salut,

Je ne vois pas l'utilité de fso dans ton script 8O . Le nom de ton fichier n'est qu'une chaîne de caractères (le str en début de nom de variable l'indique). Essaye ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<% 
 
 Dim strFilename 
 
'Save the current chart to a GIF file with a temporary' 
'filename using the FSO' 
strFileName = Server.MapPath(".") & "\monfichier.gif" 
objCSpace.ExportPicture strFileName, "gif", 800, 400 
 
'Use On Error Resume Next to make sure we eventually delete' 
'the temporary GIF file even if something fails in the next' 
'couple of functions' 
on error resume next 
 
'The GIF file has been created. Return the contents of the' 
'GIF file as binary data using the BinaryFileStream COM object' 
set objBinaryFile = Server.CreateObject("BinaryFileStream.Object") 
Response.BinaryWrite objBinaryFile.GetFileBytes(CStr(strFileName)) 
 
'Delete the GIF file since it is no longer needed' 
objBinaryFile.DeleteFile CStr(sFullFileName) 
 
'clear variables' 
set objBinaryFile = nothing 
set objCSpace = nothing 
 
%>

24/03/2005, 13h31
pmboutteau

En effet çà marche.
Merci.
:D