 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
hgj
註冊時間: 2004-03-06
文章: 13
第 1 樓
|
 發表於: 星期四 七月 01, 2004 12:22 pm 文章主題: [求助]判斷檔案是否存在的代碼怎樣寫? |
 |
|
在excelVBA里我用以下代碼判斷所在目錄是否存在其中的一個檔案
If Dir(pic_path & pic_name & ".bmp") <> "" Then
pic_path = pic_path & pic_name & ".bmp"
ElseIf Dir(pic_path & pic_name & ".jpg") <> "" Then
pic_path = pic_path & pic_name & ".jpg"
ElseIf Dir(pic_path & pic_name & ".gif") <> "" Then
pic_path = pic_path & pic_name & ".gif"
Else
pic_path = pic_path & "暫無圖片.bmp"
End If
現在的問題是我要在vfp裡面寫出同樣判斷的代碼,我是剛接觸寫vfp代碼的,寫了半天都不正確,想得到大俠們的幫助.thanks! |
|
| 回頂端 |
|
 |
朱育興
註冊時間: 2003-08-25
文章: 661
來自: 台中市大里區
第 2 樓
|
| 發表於: 星期四 七月 01, 2004 12:38 pm 文章主題: |
|
|
| 代碼: |
DO CASE
CASE FILE(pic_path+pic_name+".bmp")
pic_path = pic_path + pic_name + ".bmp"
CASE FILE(pic_path+pic_name+".jpg")
pic_path = pic_path + pic_name + ".jpg"
CASE FILE(pic_path+pic_name+".gif")
pic_path = pic_path + pic_name + ".gif"
OTHERWISE
pic_path = pic_path + "暫無圖片.bmp"
ENDCASE
|
_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 3 樓
|
| 發表於: 星期四 七月 01, 2004 1:09 pm 文章主題: |
|
|
看一下 FILE()
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
hgj
註冊時間: 2004-03-06
文章: 13
第 4 樓
|
| 發表於: 星期四 七月 01, 2004 5:23 pm 文章主題: |
|
|
| 謝謝兩位大俠的幫助,使我能很快完成這個代碼的寫法,從而解決了這一個問題 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
