www.ymjm.net > VB打开CommonDiAlog1后.怎么获取文件名.

VB打开CommonDiAlog1后.怎么获取文件名.

文件名是 commondialog1.filetitle commondialog1.filename 包括路径的

with commondialog1.filename = "".initdir = app.path.cancelerror = true.filter = "文件(1*.*)|1*.*" '这里输入 1*.* 的意思就是,1开头的文件.showopenend with

hwnd代表一个窗口的句柄,在这儿表示调用浏览文件夹的窗体的句柄.如果在VB的窗体中使用,可以将窗体的句柄传给它.而在模块、类模块或者VBA中可以用0来代替.

With CommonDialog1 .ShowOpen 当前的路径 = Left(.FileName, InStrRev(.FileName, "\") - 1) End With

可以借助FileListBox控件来实现.举个例子:Private Sub Form_Load() File1.Path = "D:\" File1.Pattern = "*.*" '显示所有类型的文件(如果想显示TXT文档就改为"*.txt" End Sub

CommonDialog1.ShowOpenText1.Text = CommonDialog1.FileName

CommonDialog1.Filter = "*.txt|*.txt" '过滤文档,只选择文本类型 CommonDialog1.FilterIndex = 1 CommonDialog1.InitD

filesystem.folder(path).count

CommonDialog1.Filter = "文本文件(*.txt,*.dat)" '保存结果CommonDialog1.ShowSaveIf Len(CommonDialog1.FileName) = 0 Then Exit SubIf Dir(CommonDialog1.FileName) "" Then a = MsgBox("文件已存在,是否覆盖?", vbOK,

Private Sub Command1_Click() CommonDialog1.ShowOpen Text1 = CommonDialog1.FileName End Sub

友情链接:beabigtree.com | lzth.net | zxqt.net | ncry.net | 369-e.net | 网站地图

All rights reserved Powered by www.ymjm.net

copyright ©right 2010-2021。
www.ymjm.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com