關于getopenfilename的用法.

没牙兔兔

呵呵，写错了一点
上面取的是整个的路径
如果要取文件名的话，兔兔不知道可不可以直接用属性取，不过也可以用下面的方法实现
mefile= Right(Me.dlgCommon.FileName, Len(Me.dlgCommon.FileName) - InStrRev(Me.dlgCommon.FileName, "\"))

InStrRev返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起
right 就是从尾巴开始取符合要求的文件名

ADAM

多謝你費心了..
你這是應用控件實現的...
但是這樣移植性不好,萬一別人機子上沒這個控件,
豈不出錯了.如果自帶這個來引用..就比較好..

没牙兔兔

呵呵，方法三是有这个问题
正头疼也是这个问题
所以现在编写的数据库都只能打包发布啦
对着 引用 把一个一个的控件都加上，Access自己扫描的控件还经常会漏掉几个
而且 好像就是这个dlgCommon控件，安装的时候，如果机器已经有了，就会提示覆盖出错
只能选择 忽略

关注你的方法一ing....

ADAM

對了,打包時候發布
控件檔案在新安裝目錄下....
用currentproject.path,及referens可以新增
但對于api函數引用..
Declare Function GetComputerNameA Lib "kernel32" _
                                 (ByVal strBuffer As String, lngSize As Long) As Long
lib后面如果要用安裝目錄下的函數庫,該怎么引用
我試這,只能引用固定目錄下的...如:"d:\kernel32.DLL"等...