如何从按钮单击获取文件路径并将其打印在文本框VB6上

Question

我有一个按钮和一个文本框，我想让按钮按默认路径打开文件夹。

我举个例子：

    'C:\Folder\...

    Dim path as string
    path = "C:\Folder\.."
    Dim fso
    set fso = createobject("Scripting FileSystemObjh)

我尝试了一些只打开文件夹但没有获取文件路径的方法，所以不是我想要做的。

当我 select 文件并单击确定时，文件路径将打印在文本框上。

提前致谢！

Answer 1

如果我了解您的需求，以下内容应该会为您指明正确的方向。首先，select 以下组件：

Microsoft Common Dialog Control 6.0 (SP6)

二、select以下参考：

Microsoft Scripting Runtime

第三步，将 CommonDialog 控件与 CommandButton 和 TextBox 一起放到窗体上。输入以下代码：

Option Explicit

Private Sub Command1_Click()
   Dim fso As FileSystemObject
   Dim path As String
   
   path = "c:\temp\"
   
   CommonDialog1.InitDir = path
   CommonDialog1.Filter = "Text Files (*.txt)|*.txt|All files (*.*)|*.*"
   CommonDialog1.DefaultExt = "txt"
   CommonDialog1.DialogTitle = "Select File"
   CommonDialog1.ShowOpen
   
   Text1.Text = CommonDialog1.FileName
   
   Set fso = New FileSystemObject
   'use fso to do whatever you need
End Sub

如何从按钮单击获取文件路径并将其打印在文本框VB6上

how to get the file path from button click and print it on textbox VB6

vb6