作者kinom (kinom)
看板Visual_Basic
標題Re: [VB6 ] 工作目錄不存在
時間Thu May 19 17:48:02 2011
※ 引述《Xavier (X.avi(er))》之銘言：
: 小弟從公司複製了一個專案回家研究
: 路徑是 D:/ balabala
: 然後我回家之後放在 C:/ balabala
: 執行時它說
: 工作目錄不存在 D:/ balabala
: ^^^^^^^^^^^^^ 在公司用的路徑
: 請問一下 這樣要怎麼解決啊?
: 新手上路 問的如果很蠢請多包涵... 囧>
'檢查資料夾是否存在
Dim file_dir As String
file_dir = "C:/balabala/" '資料夾路徑
If Dir$(file_dir, vbDirectory) = "" Then
MsgBox "資料夾不存在"
else
'要改哪種方式來讀取
'...略
'...
'ex:
file_dir = "D:/balabala/" '改資料夾路徑
End If
--------------------------------------
不過比較建議的方式還是讓他自己判斷程式所在的目錄
Dim file_dir As String
file_dir = app.path &"/balabala/" '資料夾路徑
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 120.107.166.124
1F：推 Xavier:謝謝你喔~ 已經解決了^^ 07/08 09:47
2F：→ Xavier:在方案中的屬性中更改就行哩@@" 07/08 09:48