请教用VBA写文件保存路径代码问题

rtmx01

昨日在论坛发现用vba写的文件保存路径代码,试了试没成功,请教


该函数调用为: 文本 = BrowseForFolder(Hwnd, "Select target folder...")


请教hwnd应为什么,调用时值输多少? 能举个例吗?





附代码:


名称:选择保存文件路径


建模块：


Option Compare Database


Option Explicit


' 调用方式:: string = BrowseForFolders(Hwnd,TitleOfDialog)


' 例如:String1 = BrowseForFolders(Hwnd, "请选择位置……")


Public Type BrowseInfo


     hwndOwner As Long


     pIDLRoot As Long


     pszDisplayName As Long


     lpszTitle As Long


     ulFlags As Long


     lpfnCallback As Long


     lParam As Long


     iImage As Long


End Type


Public Const BIF_RETURNONLYFSDIRS = 1


Public Const MAX_PATH = 260


Public Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)


Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long


Public Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long


Public Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long


Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String


     Dim iNull As Integer


     Dim lpIDList As Long


     Dim lResult As Long


     Dim sPath As String


     Dim udtBI As BrowseInfo


    '初始化变量


     With udtBI


        .hwndOwner = hwndOwner


        .lpszTitle = lstrcat(sPrompt, "")


        .ulFlags = BIF_RETURNONLYFSDIRS


     End With


    '调用 API


     lpIDList = SHBrowseForFolder(udtBI)


     If lpIDList Then


        sPath = String$(MAX_PATH, 0)


        lResult = SHGetPathFromIDList(lpIDList, sPath)


        Call CoTaskMemFree(lpIDList)


        iNull = InStr(sPath, vbNullChar)


        If iNull Then sPath = Left$(sPath, iNull - 1)


     End If


    '如果选择取消, sPath = ""


     BrowseForFolder = sPath


End Function

fan0217

Me.Text1 = BrowseForFolder(Hwnd, "Select target folder...")：可以完成通过打开文件目录对话框，然后返回路径并对Text1赋值。

一点通

将例子简化后传上来看一下

rtmx01

哦，我知道这样调用,但是调用过程中老提示我hwnd要赋值．

请问该怎样做？

fan0217

Me.Text1 = BrowseForFolder(Hwnd, "Select target folder...")