相对路径小问题

huoran · 发表于 2006-9-7 20:20:00

我的access应用程序中，access和pic文件夹在同一个文件夹，程序中的vb代码如下：

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("\pic\" + Me.学号.Value + ".jpg") Then
Me.照片.Picture = "\pic\" + Me.学号.Value + ".jpg"
Else
Me.照片.Picture = "\pic\cat.jpg"
End If

无论我将pic前面的"\"去掉与否，都找不到这个相对路径，如果我用绝对路径就能找到，请各位大虾指出错误，偶是新手阿，谢谢！

lanchong · 发表于 2006-9-7 20:50:00

dim strpath as string

strpath=CurrentProject.path

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strpath+"\"+ Me.学号.Value + ".jpg") Then
Me.照片.Picture = strpath +"\"+ Me.学号.Value + ".jpg"
Else
Me.照片.Picture =strpath &"\cat.jpg"
End If

lanchong · 发表于 2006-9-7 20:54:00

或者。\pic\

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(".\pic\" + Me.学号.Value + ".jpg") Then
Me.照片.Picture = ".\pic\" + Me.学号.Value + ".jpg"
Else
Me.照片.Picture = ".\pic\cat.jpg"
End If

huoran · 发表于 2006-9-7 21:19:00

十分感谢！问题解决

wxf2008hz · 发表于 2009-8-19 07:48:22

bucuo

apsfxc1 · 发表于 2009-8-19 10:00:59

学习..

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 相对路径小问题

群介绍
主题无相 (随机显示版	同地区群块其他地区)