  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		Cedric
 
 
  註冊時間: 2003-08-02 文章: 19
 
  第 1 樓
  | 
		
			
				 發表於: 星期二 十月 17, 2017 10:45 am    文章主題: 請問使用 WINEXEC 刪除目錄回傳值 2. | 
				     | 
			 
			
				
  | 
			 
			
				使用 WIN7 + VFP8  執行下述指令:
 
 
DECLARE INTEGER WinExec IN win32api STRING command, INTEGER param
 
bb = WinExec("RD /S /Q D:\temp\0001", 2)
 
 
在 d:\temp\0001 目錄下還有其他子目錄及檔案, 想要一次刪除0001這個目錄.
 
執行後 bb 回傳值2, 經查詢 回傳值2表示查無目錄, 可是這個目錄是存在的.
 
或者是否有其他方式可以刪除目錄.
 
 
請教一下各位, 該如何解決此問題呢? 謝謝 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		syntech
 
 
  註冊時間: 2003-05-16 文章: 4252 來自: Taipei,Taiwan
  第 2 樓
  | 
		
			
				 發表於: 星期二 十月 17, 2017 11:10 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				你程式的 目前預設目錄 還在 d:\temp\0001  ?
 
 
以目前windows 設計來說,
 
可能會等到所有人都離開這個目錄才會完成刪除動作,
 
在這之前就是看的到但用不了的情況. _________________ 如果公司有下列困擾:
 
1. 找不到便宜,快速,簡易的 生產排程軟體
 
2. 不知道如何快速排定 採購計劃
 
3. 成本抓不準,自己算比軟體算有用
 
4. 想學習系統規劃,想找系統架構的顧問
 
 
請聯絡我們,也許我們幫得上忙 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		Cedric
 
 
  註冊時間: 2003-08-02 文章: 19
 
  第 3 樓
  | 
		
			
				 發表於: 星期二 十月 17, 2017 12:01 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				預設目錄不是在d:\temp\0001
 
程式在 d:\temp, 使用 mkdir 建立0001 及其子目錄, 還有檔案
 
離開系統時想將 0001 這個目錄刪除.
 
所以預設目錄應該還是在 d:\temp | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		ckp6250
 
 
  註冊時間: 2004-07-30 文章: 1645
 
  第 4 樓
  | 
		
			
				 發表於: 星期二 十月 17, 2017 3:10 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				試看看這個行否?
 
 	  | 代碼: | 	 		  
 
Function delAlltree
 
   Para deltree
 
   deltree = Addbs(deltree)
 
   If ! Directory(deltree)
 
      Return .F.
 
   Endif
 
   Close Databases All
 
   Release fs
 
   Try
 
      fs = Createobject("Scripting.FileSystemObject")
 
      fs.DeleteFolder(Justpath(deltree),.T.)
 
   Catch To oException
 
      Strtofile("錯誤發生於:"+Ttoc(Datetime())+" _deltree.prg->delAlltree" +Str(oException.ErrorNo,10)+ " delpath: "+deltree + Chr(13),Systempath+"\Vfp9rerr.log",.T.)
 
   Finally
 
 
   Endtry
 
   Return
 
 | 	  
 
 
delAlltree('D:\temp\0001') | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		Cedric
 
 
  註冊時間: 2003-08-02 文章: 19
 
  第 5 樓
  | 
		
			
				 發表於: 星期二 十月 17, 2017 5:22 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				非常謝謝 ckp6250 
 
測試執行可以刪除了. | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |