VB 获取路径名各部分（获取文件路径，获取文件名，获取文件扩展名）自编

'====================获取路径名各部分: 如： c:\dir1001\aaa.txt

'============获取路径路径 c:\dir1001\

'============获取路径路径 c:\dir1001\
Public Function GetFileName(FilePathFileName As String) As String   '获取文件名 aaa.txt
    On Error Resume Next
    Dim i As Integer, J As Integer
    i = Len(FilePathFileName)
    J = InStrRev(FilePathFileName, "\")
    GetFileName = Mid$(FilePathFileName, J + 1, i)
End Function

''===========获取路径路径 c:\dir1001\

''===========获取路径路径 c:\dir1001\
Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径 c:\dir1001\
On Error Resume Next
Dim J As Integer
J = InStrRev(FilePathFileName, "\")
GetFilePath = Mid(FilePathFileName, 1, J)
End Function

'===========获取文件名但不包括扩展名 aaa

'===========获取文件名但不包括扩展名 aaa
Public Function GetFileNameNoExt(FilePathFileName As String) As String '获取文件名但不包括扩展名 aaa
    On Error Resume Next
    Dim i As Integer, J As Integer, k As Integer
    i = Len(FilePathFileName)
    J = InStrRev(FilePathFileName, "\")
    k = InStrRev(FilePathFileName, ".")
    If k = 0 Then
        GetFileNameNoExt = Mid$(FilePathFileName, J + 1, i - J)
    Else
        GetFileNameNoExt = Mid$(FilePathFileName, J + 1, k - J - 1)
    End If

End Function

'＝＝＝＝==＝ '获取扩展名 .txt

'＝＝＝＝==＝ '获取扩展名 .txt
Public Function GetFileExtName(FilePathFileName As String) As String   '获取扩展名 .txt
    On Error Resume Next
    Dim i As Integer, J As Integer
    i = Len(FilePathFileName)
    J = InStrRev(FilePathFileName, ".")
    If J = 0 Then
        GetFileExtName = ".txt"
    Else
        GetFileExtName = Mid$(FilePathFileName, J, i)
    End If
End Function

摘自：网络整理

VB 获取路径名各部分（获取文件路径，获取文件名，获取文件扩展名）自编相关推荐

php获取上传文件路径 fakepath,JavaScript_js获取上传文件的绝对路径实现方法，在html中input type=file - phpStudy...
js获取上传文件的绝对路径实现方法在html中 function upload() { var filename = document.getElementById("importFile ...
Asp.Net 获取FileUpload控件的文件路径、文件名、扩展名
FileUpload获取文件路径.文件名等方法教程 //获取文件所在地分区 string PathRoot = Path.GetPathRoot(FileUploadImg.PostedFile.Fi ...
python合并路径和文件名,python关于文件路径和文件名的操作
os.path.abspath(path) #返回绝对路径(包含文件名的全路径) os.path.basename(path) -- 去掉目录路径获取文件名 os.path.dirname(path) ...
fopen文件路径怎么写_PHP文件上传
文件系统处理的作用: 1. 所有的项目离不开文件处理 2. 可以用文件长时间保存数据 3. 建立缓存, 服务器中文件操作文件处理 1. 文件类型以Linux为模型的, 在Windows只能获取fi ...
python进阶14文件路径(找不到文件)
原创链接:python进阶14文件路径(找不到文件) 开发时遇到问题,文件路径不正确,找不到文件等等,都是这一类问题. curdir,argv,file 举例: 文件1代码: 1 2 3 4 5 6 ...
【GameMaker】分离文件路径、文件名、后缀
对于Windows和MacOS的构建目标,YoYoGames官方提供了一系列用于获取文件路径的函数. get_open_filename get_open_filename_ext get_save_ ...
java执行CMD命令，文件路径或文件名带空格处理
在java中执行CMD命令,文件路径或文件名带空格处理,按照其他人的在全路径添加双引号,执行会进入C盘,后尝试将双引号添加至对应有空格的文件路径或文件名上,进行反斜杠转义,执行OK,代码如下: pac ...
java 通过文件路径获得MulipartFile类型文件 - File转MulipartFile
java 通过文件路径获得MulipartFile类型文件 - File转MulipartFile 方式一:使用MockMultipartFile函数方式二:数据流实现思路:路径创建出File文件 ...
服务器文件被篡改evopro后缀,SQLServer数据库服务器mdf文件中了勒索病毒，扩展名被篡改为.fuk25933...
SQLServer数据库服务器mdf文件中了勒索病毒,扩展名被篡改为.fuk25933 常见的扩展名如下: ReadInstructions Devos fuk25933 eking 从以下几点着手, ...
tp5上传文件并获取文件路径_TP5上传文件
TP5上传文件与上传图片雷同!!!!!其实都差不多的!!!!用到了js插件 1.首先引用 2.form表单内最重要的就是这个属性 enctype="multipart/for ...

VB 获取路径名各部分（获取文件路径，获取文件名，获取文件扩展名）自编

VB 获取路径名各部分（获取文件路径，获取文件名，获取文件扩展名）自编相关推荐

最新文章

热门文章

VB 获取路径名各部分 （获取文件路径，获取文件名，获取文件扩展名）自编

VB 获取路径名各部分 （获取文件路径，获取文件名，获取文件扩展名）自编相关推荐

最新文章

热门文章

VB 获取路径名各部分（获取文件路径，获取文件名，获取文件扩展名）自编

VB 获取路径名各部分（获取文件路径，获取文件名，获取文件扩展名）自编相关推荐