作者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