使用文件选择器结合Mid/Left/Right//Len/inStrRev提取文件名/文件路径

时　间:2020-11-23 09:31:29
作　者:欧志华   ID：51519  城市：广州
摘　要:使用文件选择器结合Mid/Left/Right//Len/inStrRev提取文件名/文件路径。
正　文:

 '文件路径

    Me.txtFilePath = Left(Me.txtFileFullName, InStrRev(Me.txtFileFullName, "\"))
   
    '数据库名称
    Me.txtDataName = Me.txtDataName = Mid(Me.txtFileFullName, InStrRev(Me.txtFileFullName, "\") + 1, (InStrRev(Me.txtFileFullName, ".")) - (InStrRev(Me.txtFileFullName, "\") + 1))
   
    '数据库后缀名
    Me.txtDataSuffix = Right(Me.txtFileFullName, (Len(Me.txtFileFullName) - InStrRev(Me.txtFileFullName, ".")))

附   件:

点击下载此附件

图   示: