欢迎来到路由器窝!

读取文件路径的文件夹名字

浏览次数:

作者: 路由器窝

信息来源:

更新日期: 2016-12-08 13:38

文章简介

Public Function GetFileName(ByVal FilePathFileName As String) As String 获取文件名 aaa.txt On Error Resume Next Dim i As Integer, J

  • 正文开始
  • 相关文章
  Public Function GetFileName(ByVal FilePathFileName As String) As String   '获取文件名  aaa.txt   
        On Error Resume Next
        Dim i As Integer, J As Integer
        i = Len(FilePathFileName)
        J = InStrRev(FilePathFileName, "/")
        MsgBox(J)
        GetFileName = Mid(FilePathFileName, J + 1, i)
    End Function
    '获取两个字符串中间的字符串
    Private Shared Function SearchMidString(ByVal s As String, ByVal s1 As String, ByVal s2 As String) As String
        '获取搜索到的数目  
        Dim n1 As Integer, n2 As Integer
        n1 = s.IndexOf(s1, 0) + s1.Length
        '开始位置  
        n2 = s.IndexOf(s2, n1)
        '结束位置  
        Return s.Substring(n1, n2 - n1)
        '取搜索的条数,用结束的位置-开始的位置,并返回  
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'MsgBox(GetFileName("/dir1001/aaa.txt"))获取文件名字
        Dim cc As String '定义字符串
        Dim ee As String '定义路径文件夹数组
        Dim ff As Integer '定义有多个个目录名字
        Dim ii As Integer '循环查找目录名字
        Dim jj As Integer '循环建立目录
        cc = "/dir1001/sdfsdf/aaa.txt"
        ff = 0

        For ii = 0 To Len(cc)
            If Len(cc) <= 0 Then

            Else

                If (cc.Split("/").Length - 1) >= 2 Then
                    MsgBox(SearchMidString(cc, "/", "/")) '截取两个字符之间的字符串
                Else
                    Exit For
                End If
                'MsgBox(InStr(1, cc, "/")) '查找字符中第一个/出现的位置
                'MsgBox(Mid(cc, (InStr(1, cc, "/")) + 1)) '截取第二个字符到最后的字符
                ff = ff + 1
                cc = (Mid(cc, (InStr(1, cc, "/")) + 1))
            End If
        Next ii

    End Sub

转载请注明:vs2010» 读取文件路径的文件夹名字

标签:
  • VB.NET2010判断网络状态执行相关内容
    102阅读
    Imports System.Net.NetworkInformation 引用顶部Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butto...
  • 计算一个字符串出现的次数
    163阅读
    RichTextBox1.Text = href=4564564href=654654654dsdfhref= MsgBox(RichTextBox1.Text.Split(href=).Length - 1)
  • vb.net下载文件源码
    136阅读
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim documentURL Dim dlFileName documentURL = http://...
  • Advanced 程序升级官方配置文档(翻译)
    172阅读
    以下文章使用从专业版和项目类型开始可用的选项。 本教程将逐步指导您创建和维护使用高级更新程序的安装包。 我们将为story.txt文件创建一个安装包,我们在简单安装教程中使用它。 如果你有一个EXE文件,你可以轻松地更改版本,你可以使用它而不是story.txt文
  • VB.NET固定选项卡TabControl的标题宽度
    158阅读
    在TabControl的属性窗口,在SizeMode里选择Fixed;然后在ItemSize里边填入你要固定的大小即可。
  • 字符串替换函数
    91阅读
    replace (字符串,被替换的字符,替换后的字符)
  • Visual Studio发布应用未能创建默认证书的问题解决方法
    216阅读
    我用Visual Studio自带的生成-发布,提示未能创建默认证书.正在中止发布。这个问题当时出现后,特意在网上找了一下,发现不少人也遇到同样的问题。解决方法:点击你创建的项目 右键》 属性》签名》从存储区选择》选择证书 当我这么做的时候,显示无可用证书 q
  • vb.net打开网址方法
    118阅读
    System.Diagnostics.Process.Start(www.163.com)或者用 WebBrowser控件,代码 WebBrowser1.Url = New System.Uri(http://www.163.com)
  • VB.NET调整tabcontrol的tabpage标签的宽度
    195阅读
    调整tabcontrol的tabpage标签的宽度
  • VB.net基础:如何获得并显示网上图片
    150阅读
    在VB.net中,显示图片很简单: PictureBox1.Image=Image.FromFile(FileName) 但是这种办法不能用于显示Internet上的图片,因为Image.FromFile不支持URI格式。那么怎么办呢? 其实 .net为我们准备了一套很方便的方法。在.net中,网上的资源(图片,动画,...
上一页:截取两个字符中间的字符串
下一页:软件安装包制作(Advanced Installer)11.6.0 最新破解版
最近更新作品
VB.net基础:如何获得并显示网上图片
更新时间:2020-07-02

150人已经看过了!

获取网站代码
更新时间:2019-09-21

147人已经看过了!

vb.net 正则表达式 取 html代码中的A标签的 href 链接
更新时间:2019-09-21

278人已经看过了!

VB.NET用正则表达提取数字
更新时间:2019-09-21

241人已经看过了!

判断指定路径下是否存在指定文件
更新时间:2018-12-08

117人已经看过了!

vb.net控件隐藏
更新时间:2017-11-20

165人已经看过了!

vb.net2010邮件发送带附件,带设置测试可用
更新时间:2017-08-24

129人已经看过了!

vb.net2010发送邮件
更新时间:2017-08-24

146人已经看过了!

VB.NET固定选项卡TabControl的标题宽度
更新时间:2017-06-13

158人已经看过了!