1,451
社区成员
发帖
与我相关
我的任务
分享vb浏览文件夹问题
我用了一段代码能浏览文件夹,但是现在我想将弹出的窗口的标题"浏览文件夹"给改下,请问怎么改?
Public Function ShowFolderDialog() As String
Dim spShell, spFolder, spFolderItem, spPath As String
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Set spShell = CreateObject("Shell.Application")
Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "选择目录:", NO_OPTIONS, "C:\Scripts")
If spFolder Is Nothing Then
ShowFolderDialog = ""
Else
Set spFolderItem = spFolder.Self
spPath = spFolderItem.path
spPath = Replace(spPath, "\", "\")
ShowFolderDialog = spPath
End If
End Function
Public Function ShowFolderDialog() As String
Dim spShell, spFolder, spFolderItem, spPath As String
Const WINDOW_HANDLE = 0
Const NO_OPTIONS = 0
Set spShell = CreateObject("Shell.Application")
Set spFolder = spShell.BrowseForFolder(WINDOW_HANDLE, "选择目录:", NO_OPTIONS, "C:\Scripts")
If spFolder Is Nothing Then
ShowFolderDialog = ""
Else
Set spFolderItem = spFolder.Self
spPath = spFolderItem.path
spPath = Replace(spPath, "\", "\")
ShowFolderDialog = spPath
End If
End Function
...全文
请发表友善的回复…
发表回复
yhcxz 2012-05-22
- 打赏
- 举报
谢谢大家的回答
思考 2012-05-06
- 打赏
- 举报
这个不好弄
threenewbee 2012-05-06
- 打赏
- 举报
比较麻烦，需要Hook窗口过程。调用一坨API，还要写Callback
如果不是非常必要就不要修改了。
如果不是非常必要就不要修改了。
