MACROMEDIA ColdFusion Server 5, Руководство пользователя, Страница: 247 / 328

Application Object 229
Sample toolbar script 2
//*************************************************************//
// This script creates a toolbar which is capable of executing
// all of the scripts contained in the Document Cache
//*************************************************************//
function Main () {
var sToolBarName;
var Result;
var count;
var fname;
var fnamepath;
with (Application) {fnamepath
sToolBarName = InputBox (VersionText, "Enter the Toolbar name.",
"MyToolbar");
while (ToolbarExists(sToolBarName) != 0){
sToolBarName = InputBox (VersionText, "Please chose another
name.", "MyToolbar");
}
CreateToolbar (sToolBarName);
ShowToolBar(sToolBarName);
count = 0;
while (count <= (DocumentCount-1)){
fnamepath = DocumentCache(count).FileName
fname = ExtractFileName(fnamepath);
AddScriptToolbutton (sToolBarName, fnamepath, fname, count,
"");
count ++;
}
}
}