zoukankan      html  css  js  c++  java
  • 根据全路径的文件名 获取 文件名(不带后缀),文件名(带后缀),当前路径名,全路径文件下的路径

    刚好用到文件 目录这一块,查了很多资料,各种代码都有,也到处拷贝了很多代码测试,感觉很多太过于复杂,好多都用到API 函数,自己整理了一份,浅显易懂。

    留着以后备用

    '根据全路径的文件名  获取 文件名(不带后缀),文件名(带后缀),当前路径名,全路径文件下的路径
    
    Public Function GetPathFromFile(strname As String, ByRef nameStr As String, Optional ByVal typeNum As Integer = 1) As String
        Dim aa, dd, ss, xx As String
        Dim bb, cc As Integer
        Dim yy As String
        'strname =D:Data1#1.mdb
        
        bb = InStrRev(strname, "")
        cc = Len(strname)
        dd = Right(strname, cc - bb)  '01.mdb
        xx = dd
    
        yy = Left(dd, Len(dd) - 4)  '01
    
        ss = Left(strname, bb - 1)   '去掉文件名  D:Data1#
        
        fullPath = ss
        
        bb = InStrRev(ss, "")
        cc = Len(ss)
        dd = Right(ss, cc - bb)     '1#
    
        GetPathFromFile = dd
        
        Select Case typeNum:
        ' 获取全路径文件下的文件名  (带后缀)
        Case 1:
            nameStr = xx         '01.mdb
            
        ' 获取全路径文件下的文件名  (不带后缀)
        Case 2:
            nameStr = yy           '01
            
            
        ' 获取全路径文件下的路径   (去掉文件名)
        Case 3:
            nameStr = ss             ' D:Data1#
            
        ' 获取全路径文件下的当前路径名
        Case 4:
            nameStr = dd             '1#
            '
        
        End Select
    

      

  • 相关阅读:
    项目管理--项目干系人与组织
    项目管理--项目生命周期概述
    项目管理--简介
    算法学习之冒泡排序,6174问题
    算法学习之基础题
    PHP5.3.8连接Sql Server SQLSRV30
    解决:安装SQl 2008为SQL Server代理服务提供的凭据无效
    Sublime Text2不自动打开最近的项目
    unix网络编程之简介
    算法学习之函数
  • 原文地址:https://www.cnblogs.com/rosesmall/p/14116020.html
Copyright © 2011-2022 走看看