關于getopenfilename的用法.

ADAM

花了一天時間調試一段語句...
結果居然是引用apd函數的getopenfilename的問題
(返回值多了一個空格,而錯誤提示又不是說文件名錯...,真是苦啊,,,)
真是....
一知半解真的要不得..
所以...
那位大俠把這個函數的詳細用法貼出來,參考一下啊,
我不勝感激...
(請不要只貼範例代碼...)
先謝了

ADAM

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

没牙兔兔

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

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

ADAM

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

没牙兔兔

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

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

没牙兔兔

嘻嘻，前天也看了这个帖子，不知道自己理解的对不对，不敢回答
这里把我关于文件存取的实现写下来，不知道是不是你需求的功能！
首先引用  Microsoft Windows Common Controls 6.0  即（Mscomctl.ocx）
然后就可以在窗体中加入ActiveX控件  CommonDialog ，命名为 【dlgCommon】
VBA实现：

Dim tmpFileName As String, DBfile As String, Xpath As String
    Dim Response
   ‘使用iif，主要是如果选定的文件在"d:\"的话，会多了一个“\“，所以要去掉，否则会出错
    Xpath = IIf(Len(Application.CurrentProject.Path) = 3, Left(Application.CurrentProject.Path, 2), Application.CurrentProject.Path)
     
    DBfile = Xpath & "\dbsourcedb.mdb"
    Me.dlgCommon.CancelError = False
    Me.dlgCommon.ShowOpen
   ’这个就是取到文件名，不知道是不是ADAM想要得
    tmpFileName = Me.dlgCommon.FileName
    If Len(tmpFileName) > 0 Then
        Response = MsgBox("还原指定的备份文件将不可逆操作!!" & vbCrLf & "确认选定的备份文件正确么?", vbYesNo, "数据库还原")
        If Response = vbYes Then
            Kill DBfile
            FileCopy tmpFileName, DBfile
            MsgBox "数据库已还原为指定的备份文件!"
        Else
            MsgBox "还原操作已撤销!"
         End If
    'tmpFileName = IIf(InStrRev(Me.dlgCommon.FileName, "\") > 0, Right(Me.dlgCommon.FileName, Len(Me.dlgCommon.FileName) - k), Me.dlgCommon.FileName)
    Else
        MsgBox "未选定备份文件,还原操作已撤销!"
    End If

ADAM

呵呵....
我就是問FindNorthwind怎么寫的...
還要麻煩你的....

大頭

Private Sub Command0_Click()

Dim strSearchPath As String
Dim strFileName As String
strSearchPath = "c:\"
   strFileName = FindNorthwind(strSearchPath)   '
MsgBox strFileName    路徑名+文件名

End Sub
我的意思是
作個按鍵button
執行上述指令
FindNorthwind 是公用模組(自製)

ADAM

FindNorthwind
这个是什么函数，自制的还是ACCESS有的。。。没见过啊 。。。

大頭

Dim strSearchPath As String
Dim strFileName As String
strSearchPath = "c:\"
   strFileName = FindNorthwind(strSearchPath)   '
MsgBox strFileName    路徑名+文件名  

[此贴子已经被作者于2003-11-1 13:14:55编辑过]