如何提取文本文件名称

Question

请教各位大虾,我利用话框选择了指定目录D:\的一个TXT文件,点击选择后我想在SSPANEL上显示这个文本文件的名称,如何操作

Answer 1

    
    Dim fileN As String
    CommonDialog1.ShowOpen
    fileN = CommonDialog1.FileName
    Print fileN

Answer 2

对不起,我不想显示路径啊,想用SSPanel1.Caption表示,怎么弄啊

Answer 3

fileN = CommonDialog1.FileName
我也试过了,但是显示路径，我只想显示文件名,后缀都不要

Answer 4

    Dim m, n As Integer
    Dim j, i As String
    j = CommonDialog1.FileName 
    i = "\" 
    For n = 1 To Len(j) 
       m = InStrRev(j, i, -1, 1) 
    Next n
    j = Right(j, Len(j) - m)
取出来，然后截取吧。不知道还有没有更好地方法

Answer 5

Private Sub Command1_Click()
    Dim fileN As String
    CommonDialog1.ShowOpen
    fileN = CommonDialog1.FileName
    Dim l As Integer
    l = InStrRev(fileN, "\")
    Print Mid(fileN, l + 1, Len(fileN) - l)
End Sub

Answer 6

j_string= CommonDialog1.FileName  '为该文本文件的绝对路径 如：C:\WINDOWS\SYSTEM32\AAA.TXT
  
j_lastwz = InStrRev(Trim(j_string), "\", -1, vbBinaryCompare)  '从后向前数，第一个"\"出现的位置,数字型，为 "\"原字符串中从左到右的位置,本例中为20
 
j_ml = Left$(Trim(j_string), j_lastwz)  '从左边起到最后一个"\"为要判断的目录:C:\WINDOWS\SYSTEM32\j_filename=right$(Trim(j_string),Len(Trim(j_string))-j_lastwz)   '取得完整文件名 AAA.TXTJ_NAME=Left$(Trim(j_filename),Len(Trim(j_filename))-4)      '取得整个名字长度减去4位后左边的字符串，为AAA              

Answer 7

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    '取前面路径:
    Text1.Text = Left(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\"))
    '取整文件名:
   Text2.Text = Right(CommonDialog1.FileName, Len(CommonDialog1.FileName) - InStrRev(CommonDialog1.FileName, "\"))
   '只取文件名
   Text3.Text = Mid(Text2.Text, 1, InStrRev(Text2.Text, ".") - 1)
End Sub