關于getopenfilename的用法.

ADAM

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

竹笛

想实现什么功能？是API函数吧？你写的是apd函數。

ADAM

是api,打錯了..呵呵
想實現的功能,只能簡單的打開"開啟檔案"對話框,選擇一個檔案名,
然后按這個檔案名交回給程序處理...
原來一直不想用這個,后來不用還不行...
據我所知:有三種辦法可以讀取路徑名+文件名
1.用api函數
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As openfilename) As Long

2.用excel的getopenfilename
自創的,但調用簡單,但較慢...

3.用那個dia...的什么控件..
這個不知引用那一個,且用法也不清楚..

對比這三種方法...
不知那一種較好...
原來用第二種,但較慢,放棄了,現用第一種,但也不是很清楚

所以...

誰來做個這題目....

大頭

http://www.erpbus.net/access/topic.asp?topic_id=9648&forum_id=84&CurPage=2
這個是
ACCESS交流中心
沉入海底的東西

去打撈吧

[此贴子已经被作者于2003-11-1 10:41:49编辑过]

ADAM

好像是關于鏈接表的例子啊...

大頭

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

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

ADAM

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

大頭

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怎么寫的...
還要麻煩你的....

没牙兔兔

嘻嘻，前天也看了这个帖子，不知道自己理解的对不对，不敢回答
这里把我关于文件存取的实现写下来，不知道是不是你需求的功能！
首先引用  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