posts - 104, 
comments - 34, 
trackbacks - 0


          
	

          

          
	
					


          
	
	
            
    
          1. /**  
            2. 
    
          2.  * browseFolder.js  
            3. 
    
          3.  * 該文件定義了BrowseFolder()函數(shù)，它將提供一個(gè)文件夾選擇對(duì)話框  
            4. 
    
          4.  * 以供用戶實(shí)現(xiàn)對(duì)系統(tǒng)文件夾選擇的功能  
            5. 
    
          5.  * 文件夾選擇對(duì)話框起始目錄由  
            6. 
    
          6.  * Shell.BrowseForFolder(WINDOW_HANDLE, Message, OPTIONS, strPath)函數(shù)  
            7. 
    
          7.  * 的strPath參數(shù)設(shè)置  
            8. 
    
          8.  * 例如：0x11--我的電腦  
            9. 
    
          9.  *   0 --桌面  
            10. 
    
          10.  *  "c:\\"--系統(tǒng)C盤  
            11. 
    
          11.  *   
            12. 
    
          12.  * 用如下代碼把該函數(shù)應(yīng)用到一個(gè)HTML文件中：  
            13. 
    
          13.  *  <script src="browseFolder.js"></script>  
            14. 
    
          14.  * 或把下面代碼直接COPY到<script language="javascript">...</script>標(biāo)簽中；  
            15. 
    
          15.  *  
            16. 
    
          16.  * 用一般的觸發(fā)函數(shù)均可在HTML文件中使用該函數(shù)  
            17. 
    
          17.  * 例如：<input type="button" onclick="BrowseFolder()" />  
            18. 
    
          18.  * 注意：請(qǐng)定義NAME為savePath的輸入框接收或顯示返回的值，例如：  
            19. 
    
          19.  *    <input type="text" name="savePath" />   
            20. 
    
          20.  *  
            21. 
    
          21.  * 特別注意的是,由于安全方面的問(wèn)題,你還需要如下設(shè)置才能使本JS代碼正確運(yùn)行,  
            22. 
    
          22.  * 否者會(huì)出現(xiàn)"沒(méi)有權(quán)限"的問(wèn)題.  
            23. 
    
          23.  *  
            24. 
    
          24.  * 1、設(shè)置可信任站點(diǎn)（例如本地的可以為：http://localhost）   
            25. 
    
          25.  * 2、其次：可信任站點(diǎn)安全級(jí)別自定義設(shè)置中：設(shè)置下面的選項(xiàng)   
            26. 
    
          26.  * "對(duì)沒(méi)有標(biāo)記為安全的ActiveX控件進(jìn)行初始化和腳本運(yùn)行"----"啟用"    
            27. 
    
          27.  */    
            28. 
    
          28. function BrowseFolder(){   
            29. 
    
          29.  try{   
            30. 
    
          30.   var Message = "請(qǐng)選擇文件夾";  //選擇框提示信息   
            31. 
    
          31.   var Shell = new ActiveXObject( "Shell.Application" );   
            32. 
    
          32.   var Folder = Shell.BrowseForFolder(0,Message,0x0040,0x11);//起始目錄為：我的電腦   
            33. 
    
          33.   //var Folder = Shell.BrowseForFolder(0,Message,0); //起始目錄為：桌面   
            34. 
    
          34.   if(Folder != null){   
            35. 
    
          35.     Folder = Folder.items();  // 返回 FolderItems 對(duì)象   
            36. 
    
          36.     Folder = Folder.item();  // 返回 Folderitem 對(duì)象   
            37. 
    
          37.     Folder = Folder.Path;   // 返回路徑   
            38. 
    
          38.     if(Folder.charAt(Folder.length-1) != "\\"){   
            39. 
    
          39.       Folder = Folder + "\\";   
            40. 
    
          40.     }   
            41. 
    
          41.     document.all.savePath.value=Folder;   
            42. 
    
          42.     return Folder;   
            43. 
    
          43.   }   
            44. 
    
          44.  }catch(e){    
            45. 
    
          45.   alert(e.message);   
            46. 
    
          46.  }   
            47. 
    
          47. }  
            48. 

          

	
          posted on 2010-08-06 17:50 末日風(fēng)情 閱讀(1611) 評(píng)論(0)  編輯  收藏  所屬分類: javascript 
          

          







          
	    
    




          








          

				
	



          


          
	
		
          
			
          
	
          
		
          <2010年8月>
          
	
          日一二三四五六
          25262728293031
          1234567
          891011121314
          15161718192021
          22232425262728
          2930311234
          

          

          
			
			

          常用鏈接
          


          留言簿(4)
          




		
          隨筆分類
          
		
				
			
	
		
          隨筆檔案
          
		
				
			
	




          搜索
          

            
	
          • 
		
          •  
	
            • 

          


          最新評(píng)論
	
          

          
	
			
		

          


          閱讀排行榜
          



          評(píng)論排行榜
          


          
	

          


          


          

    







          
        
	




主站蜘蛛池模板：
宁武县|
潢川县|
河北区|
沧源|
岚皋县|
山阳县|
广平县|
济南市|
赣榆县|
宿松县|
鄂托克旗|
青冈县|
桃园市|
永德县|
尤溪县|
寿阳县|
临桂县|
石台县|
香格里拉县|
竹北市|
罗源县|
噶尔县|
二手房|
渝中区|
滨海县|
双流县|
遵义县|
巨鹿县|
淳安县|
吴川市|
米脂县|
红桥区|
精河县|
奇台县|
从江县|
腾冲县|
孝昌县|
永定县|
浦江县|
会宁县|
田阳县|