Question

VB中如何将FileListBox中选定文件的不带后缀的文件名赋给一个变量

在窗体上放了三个控件 DriveListBox DriListBox FileListBox 对应程序如下 Private Sub Drive1_Change() Form1.Dir1.Path = Form1.Drive1.Drive End Sub Private Sub Dir1_Change() Form1.File1.Path = Form1.Dir1.Path End Sub Private Sub File1_Click() DBPath = Form1.File1.Path End Sub 这样得到的只是文件的地址。 如何才能得到的选定文件的不带后缀的文件名？是把倒数第二句改掉，还是重新写几句别的代码。 我需要具体的代码，谢谢各位！

Answer 1

Private Sub File1_Click() n=InStrRev(File1.FileName, ".") - 1) DBPath = iif(n>0,Left(File1.FileName,n-1),File1.FileName) End Sub