Office中国论坛/Access中国论坛

标题: 相对路径小问题 [打印本页]

作者: huoran 时间: 2006-9-7 20:20
标题: 相对路径小问题
我的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
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
或者。\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
十分感谢！问题解决

作者: wxf2008hz 时间: 2009-8-19 07:48
bucuo

作者: apsfxc1 时间: 2009-8-19 10:00
学习..

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)