Question

VB调用资源管理器选择文件赋值给变量

要求：单击按钮Command1
调用资源管理器来选择一个文件，（文件名为a.txt或者b.txt）
然后把路径给变量a

Answer 1

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

End Sub

点击菜单栏 工程--->部件…… 找到 Microsoft Common Dialog Control  在前面打勾，确定。

追问

那个只能选择指定文件名的文件的怎么做
还有其他没有安装VB的电脑能打开这个程序吗

追答

Private Sub Command1_Click()

CommonDialog1.Filter = "文本文件（*.txt）|*.txt"

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

End Sub

 所有WIN系统电脑都可以使用这个程序。

追问

加了20分了
我这里还有一个小问题
能解决最好，不能的话就算了
设置了一个按钮，搜索java路径 并填入Text1.Text
（java的安装路径是C:\Program Files\Java\版本号bin\java.exe）
现在的问题是Java的版本号我们不知道，而且一台电脑可能不止安装了一个版本的Java

追答

Dim FSO
Private Sub Command1_Click()
'CommonDialog1.InitDir = "C:/"
CommonDialog1.Filter = "文本文件（*.txt）|*.txt"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
On Error Resume Next
javaP = "C:\Program Files\Java\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set ThisFolder = FSO.GetFolder(javaP)
folders ThisFolder
End Sub

Sub folders(fd)
Dim ThisFolder1
Set ThisFolders = fd.SubFolders
For Each ThisFolder1 In ThisFolders
names ThisFolder1
folders ThisFolder1
Next
End Sub

Sub names(ThisFolder)
Set ThisFolder = FSO.GetFolder(ThisFolder)
Set ThisFiles = ThisFolder.Files
For Each thisfile In ThisFiles
If thisfile.Name = "java.exe" Then Text1.Text = thisfile.Path
Next
End Sub

我不需要百度积分，

If (你有诚意 AND 你觉得值得) then 请在我的支付宝66725087@163.com里打入40分

追问

抱歉
看不懂
能不能把你的做好的范例的源码发过来

追答

以上就是完整的源码

Answer 2

添加控件： Microsoft Common Dialog Control 6.0 (SP6)
使用它的：
CommonDialog1.ShowOpen
来获得路径。

追问

具体怎么操作

Answer 3

去群148317126里找人帮你