请问大虾谁知道如何实现打开文件功能(在线等)

Question

如题,类似发邮件时选择要发送的附件的功能.

Answer 1

commondialog.showopen 得是这个？

Answer 2

添加microsoft common dialog 控件
然后用Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    
    MsgBox CommonDialog1.FileName
End Sub

Answer 3

在窗体上放CommonDialog控件，然后Private Sub Command1_Click()On Error GoTo Nofile
  
  CommonDialog1.Filter = "Text (*.txt)|*.txt|Pictures (*.bmp;*.ico)|*.bmp;*.ico"
  
  CommonDialog1.FilterIndex = 2
  
  CommonDialog1.DialogTitle = "打开文件"
  
  CommonDialog1.FileName = ""
  
  CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNHideReadOnly
    
  CommonDialog1.ShowOpen
  
  PathFile = CommonDialog1.FileName
  
  MsgBox PathFile
  
  Exit Sub
  
Nofile:
       
    If Err.Number <> 32755 Then
    
       MsgBox "打开文件出现未知错误！"
       
    End If
  
End Sub当然，你也可以在CommonDialog的属性里面进行相应设置。这是我今天第二次回答Commondialog的Open问题了，建议多用用搜索。

Answer 4

Private Sub CmdSelect_Click()
    With CommonDialog1
        .CancelError = False
        .InitDir = StrAppPath
        .DialogTitle = "请选择数据库"
        .Filter = "LogManage.mdb|LogManage.MDB"
        .ShowOpen
    End With
End Sub

Answer 5

'Dim sa As String * 65400
Dim sa As Long
Dim tm As String
'Command1.Enabled = True
On Error Resume Next
Cdltest.CancelError = True
'属性DialogTitle是要弹出的对话框的标题
Cdltest.DialogTitle = "打开文件"
'缺省的文件名为空
Cdltest.FileName = ""
'属性Filter是文件滤器，返回或设置在对话框的类型列表框中所显示的过滤器。
'语法object.Filter [= 文件类型描述1 |filter1 |文件类型描述2 |filter2...]
Cdltest.Filter = "文本文件(.txt)|*.txt"
'Flags属性的用法依据不同的对话框而变，详细使用需要查找联机帮助手册
tm = Cdltest.Filter
Cdltest.Flags = cdlOFNCreatePrompt + cdlOFNHideReadOnly
Cdltest.ShowOpen
Text2.LoadFile Cdltest.FileName, rtfRTF
'lblTexto.LoadFile Cdltest.FileName, rtfRTF
'lblTexto.TextRTF = Text2.TextRTF
'Text2.Text = sa  '显示打开的文件
'Close #1 '关闭文件
End Sub

Answer 6

CommonDialog.FileName = ""
 CommonDialog.Filter = "(*.amd)|*.amd|(*.amt)|*.amt|(*.*)|*.*"
 CommonDialog.FilterIndex = 2
 CommonDialog.DialogTitle = "选择文件"
 CommonDialog.ShowOpen
 Text1.Text = CommonDialog.FileName