home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2002 July / VPR0207A.ISO / OLS / IRVINE0_4_1A / irvine0_4_1a.lzh / scripts / treesettingsavefolders.dms < prev   
Text File  |  2002-03-12  |  1KB  |  45 lines
  1. /*
  2. スクリプト初期化データ
  3. guid={F743C508-8411-4876-B216-A7D3C0276712}
  4. caption=保存フォルダを設定する
  5. version=1
  6. hint=カレント以下の保存フォルダをまとめて設定する
  7. event=OnTreeMenuClick
  8. match=
  9. author=名無しさん
  10. */
  11.  
  12. function includeBackSlash(s){
  13.   if(s.charAt(s.length - 1) == '\')
  14.     return s;
  15.   else
  16.     return s + '\';
  17. }
  18.  
  19. function renameSaveFolder(folder,savefolder,ignoreindex){ 
  20. //保存フォルダを変更
  21.   s = folder.path;
  22.   s = s.slice(ignoreindex,s.length - 1);
  23.   reg = new RegExp;
  24.   reg.source = '/';
  25.  
  26.   folder.Data['queue','folder'] = savefolder + reg.replace(s,'\'); 
  27.   for(i = 0; i < folder.FolderCount;i++)
  28.    renameSaveFolder(folder.Folders[i],savefolder,ignoreindex); 
  29. }
  30.  
  31. function OnTreeMenuClick(irvine,action){
  32. //メインメニューのクリックイベント
  33.   folder = irvine.Current;
  34.   savefolder = prompt('保存フォルダを入力してください',folder.Data['queue','folder']);
  35.   if (savefolder == null) 
  36.     return;
  37.     
  38.   renameSaveFolder(folder,includeBackSlash(savefolder),folder.path.length + 1);
  39. }
  40.  
  41. function OnMenuUpdate(irvine,action){
  42. //メニューの更新イベント
  43.  
  44. }
  45.