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

Question

为什么我打开一个文件,在TXT里面获取到的是整个文件路径..怎么样只显示文件名?

Answer 1

ShowColor、 ShowFont、 ShowHelp、 ShowOpen、 ShowPrinter、ShowSave 各方法示例
本例使用 CommonDialog 控件和 ShowColor，ShowFont，ShowHelp，ShowOpen，ShowPrinter，和 ShowSav 等方法，显示公共对话框。要试用此例子，将代码粘贴到窗体的声明部分，该窗体带有 CommandButton，OptionButton（设置该选项按钮的 Index 属性为 0）、以及 CommonDialog 控件。按 F5 键，为所要的公共对话框选择选项按钮，再选取命令按钮。

Private Sub Form_Paint ()
Static FlagFormPainted As Integer
' 当第一次画窗体时，
If FlagFormPainted <> True Then
For i = 1 To 5
Load Option1(i) ' 给数组添加 5 个选项按钮。
Option1(i).Top = Option1(i - 1).Top + 350
Option1(i).Visible = True
Next i
Option1(0).Caption = "Open" ' 在每个选项按钮上放置标题。
Option1(1).Caption = "Save"
Option1(2).Caption = "Color"
Option1(3).Caption = "Font"
Option1(4).Caption = "Printer"
Option1(5).Caption = "Help"
Command1.Caption = "Show Dlg" ' 标签命令按钮。
FlagFormPainted = True ' 窗体已画完。
End If
End Sub

Private Sub Command1_Click ()
If Option1(0).Value Then ' 如果选择打开选箱，
CommonDialog1.ShowOpen ' 显示打开公共对话框。
ElseIf Option1(1).Value Then ' 否则，
CommonDialog1.ShowSave ' 显示 Save 公共对话框。
ElseIf Option1(2).Value Then ' 否则，
CommonDialog1.ShowColor ' 显示 Color 公共对话框。
ElseIf Option1(3).Value Then ' 否则，
CommonDialog1.Flags = cdlCFBoth ' 在使用ShowFont 方法之前，
'必须给 cdlCFBoth， ' cdlCFPrinterFonts,
'或 cdlCFScreenFonts
' 置标识属性。
CommonDialog1.ShowFont ' 显示字体公共对话框。
ElseIf Option1(4).Value Then ' 或，
CommonDialog1.ShowPrinter ' 显示打印机公共对话框。
ElseIf Option1(5).Value Then ' 或
CommonDialog1.HelpFile = "VB5.hlp"
CommonDialog1.HelpCommand = cdlHelpContents
CommonDialog1.ShowHelp' 显示 Visual Basic 帮助目录主题。
End If
End Sub

Answer 2

Dim FullName As String,ShortName As String
CommonDialog1.ShowOpen
FullName=CommonDialog1.FileName
ShortName=Right(FullName,Len(FullName)-InstrRev(FullName,"\"))
MsgBox "文件名是：" & ShortName

Answer 3

文件名是 commondialog1.filetitle
commondialog1.filename 包括路径的本回答被提问者采纳

Answer 4

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileTitle
End Sub