  | 
				VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.   
				 | 
			 
		 
		 
	
		| 上一篇主題 :: 下一篇主題   | 
	 
	
	
		| 發表人 | 
		內容 | 
	 
	
		Patrick Wu
 
 
  註冊時間: 2007-01-03 文章: 228 來自: 台北市
  第 1 樓
  | 
		
			
				 發表於: 星期三 一月 10, 2007 9:35 am    文章主題: 自動建立 資料夾 | 
				     | 
			 
			
				
  | 
			 
			
				請問各位 如何於程式內 自動建立資料夾 需求為:
 
COPY FILE C:\VFP6\DBF\PAX_CALL.DBF TO D:\VFP6-BAK\DBF\PAX_CALL.DBF 此時 D:\VFP6-BAK\DBF 之資料夾 尚未件立 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		BIN
 
  
  註冊時間: 2004-07-22 文章: 94 來自: Tainan, Taiwan
  第 2 樓
  | 
		
			
				 發表於: 星期三 一月 10, 2007 9:51 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				 	  | 代碼: | 	 		  IF !DIRECTORY("D:\VFP6-BAK\DBF")
 
     MD D:\VFP6-BAK\DBF
 
ENDIF
 
 | 	 
 
   BIN 在 星期三 一月 10, 2007 9:51 am 作了第 1 次修改 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		小賴
 
 
  註冊時間: 2004-12-27 文章: 477
 
  第 3 樓
  | 
		
			
				 發表於: 星期三 一月 10, 2007 9:51 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				IF Directory("D:\VFP6-BAK\DBF ")
 
   COPY ....
 
ELSE
 
   MD D:\VFP6-BAK\DBF 
 
   COPY ....
 
ENDIF | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		saint
 
 
  註冊時間: 2003-07-14 文章: 211
 
  第 4 樓
  | 
		
			
				 發表於: 星期三 一月 10, 2007 9:57 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				| mkdir | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		syntech
 
 
  註冊時間: 2003-05-16 文章: 4252 來自: Taipei,Taiwan
  第 5 樓
  | 
		
			
				 發表於: 星期四 一月 11, 2007 6:11 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				就邏輯上而言,一切都是"手動",沒有"自動". _________________ 如果公司有下列困擾:
 
1. 找不到便宜,快速,簡易的 生產排程軟體
 
2. 不知道如何快速排定 採購計劃
 
3. 成本抓不準,自己算比軟體算有用
 
4. 想學習系統規劃,想找系統架構的顧問
 
 
請聯絡我們,也許我們幫得上忙 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		sunghsia
 
 
  註冊時間: 2003-06-13 文章: 52 來自: 台北
  第 6 樓
  | 
		
			
				 發表於: 星期五 二月 16, 2007 10:27 am    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				DECLARE INTEGER ShellExecute IN shell32 ;
 
 INTEGER, STRING,;
 
 STRING, STRING, ;
 
 STRING, INTEGER
 
 
=ShellExecute(0, "Open", "Xcopy.EXE", "C:\VFP6\DBF\PAX_CALL.DBF D:\VFP6-BAK\DBF\PAX_CALL.DBF /i", "", 0)
 
 
* /i  自動建立目錄 | 
			 
		  | 
	 
	
		| 回頂端 | 
		 | 
	 
	
		  | 
	 
	
		 | 
	 
 
  
  	 
	    
  	   | 
 	
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
  | 
   
  
		 |