Amigos tengo el código siguiente:
<% Response.ContentType = "text/javascript"%>
<% Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = Server.Mappath("/images/")
folder = replace(objStartFolder, "\", "/")
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
response.write "var " & "tinyMCEImageList" & " = " & "new " & " Array" & "(" & vbCrLf
apertura= ("[" & """")
medio= ("""" & "," & """")
cierre=("""" & "]" )
For Each objFile in colFiles
response.write apertura & objFile.Name & medio &(mid(folder,50)) & "/" & objFile.Name & cierre & "," & vbCrLf
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder (Subfolder.Path)
pathsubfolder = replace(Subfolder.Path, "\", "/")
Set colFiles = objFolder.Files
For Each objFile in colFiles
response.write apertura & objFile.Name & medio & mid(pathsubfolder,50) & "/" & objFile.Name & cierre & "," & vbCrLf
Next
ShowSubFolders Subfolder
Next
End Sub
response.write ")"&";"
%>
Me da como resultado:
var tinyMCEImageList = new Array(
["aec.jpg","/images/aec.jpg"],
["bmm.jpg","/images/bmm.jpg"],
["cascada_model.jpg","/images/cascada_model.jpg"],
["cevasco.jpg","/images/cevasco.jpg"],
["cfcc.jpg","/images/cfcc.jpg"],
["cfcc2.jpg","/images/cfcc2.jpg"],
["elice.jpg","/images/elice.jpg"],
["fmr.jpg","/images/fmr.jpg"],
["graf_par_parla.gif","/images/graf_par_parla.gif"],
["ico_video.asp","/images/ico_video.asp"],
["ico_video.png","/images/ico_video.png"],
["img_autor.jpg","/images/img_autor.jpg"],
["jvg.jpg","/images/jvg.jpg"],
["lira.jpg","/images/lira.jpg"],
["logotipo.asp","/images/logotipo.asp"],
["logotipo2010.jpg","/images/logotipo2010.jpg"],
["maquiavelo.jpg","/images/maquiavelo.jpg"],
["mtorres.jpg","/images/mtorres.jpg"],
["m_agua.asp","/images/m_agua.asp"],
["m_agua.gif","/images/m_agua.gif"],
["rating.asp","/images/rating.asp"],
["rating.gif","/images/rating.gif"],
["wculver.jpg","/images/wculver.jpg"],
);
Lo que deseo es quitar esa última coma(,) marcada en rojo.
Les agradezco de antemano su ayuda.
