精华内容
下载资源
问答
  • '====================获取路径名各部分: 如: c:\dir1001\aaa.txt '============获取路径路径 c:\dir1001\ '============获取路径路径 c:\dir1001\Public Function GetFileName(FilePathFileName As String) As ...

    '====================获取路径名各部分:  如: 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查找替代字符串的函数

    VB换行气泡提示类

    VB/VBA通用路径选择对话框

    ASCII码表0-255完整版 附详细注释

    VBKeyAscii

    VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

    VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

    VB如何实现Undo(撤消)功能

    VB计算文本文件的行数

    VB获取快捷方式原文件路径

    微软 Small Basic 简体中文版 已经发布了

    VB操作Excel 非常详细 [网摘]

    VB如何判断文件正被占用/已被打开

    VB添加listbox 的水平卷动轴

    VB打开资源管理器并指定文件

    VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用

    VB中的指针技术

    Visual Basic编程常见问题及解答(1

    Visual Basic编程常见问题及解答(2

    Visual Basic编程常见问题及解答(3

    VisualBasic变量、常数和数据类型及过程概述

    VB6的后期绑定和前期绑定

    VB用户控件制作讲解与实例

    VB制作OCX控件的步骤

    VBFSO的调用的两种方法

    VB操作EXCEL

    VB判断文件及目录的存在性

    VB网站(最新、经典源代码、技术文章、基础知识)

    VB得到指定文件夹下的文件列表

    VB产生随机任意大小文件挤满硬盘

    VB文件的读写操作

    VB创建超链接 打开指定网站的几种方法

    VB 源码 删除重复行程序 函数

    VB 计算自己程序段所用时间

    VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编

    几行VB代码拿下注册表

    VB 在浏览器中打开指定网址

    VB窗口置顶

    vb ListBox 之中点击右键弹出菜单

    展开全文
  • VB 获取系统路径

    2010-06-08 08:49:20
    VB 获取系统路径 VB 获取系统路径 VB 获取系统路径 VB 获取系统路径
  • VB DirBrowse获取路径

    2012-12-19 16:56:40
    VB DirBrowse获取路径值,可实现目录初始化定位
  • VB获取桌面路径并删除指定的ICO,亲测可用
  • VB获取System和Windows路径
  • VB 获取win7下收藏夹路径的方法 VB 获取win7下收藏夹路径的方法
  • VB获取QQ2011安装路径

    2012-01-19 15:24:37
    VB获取QQ2011安装路径 2011年05月23日  VB获取QQ2011安装路径说白了就是获取注册表。。。  Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd...
    VB获取QQ2011安装路径 
    2011年05月23日
      VB获取QQ2011安装路径说白了就是获取注册表。。。
      Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
      Private Sub Command1_Click()
      On Error Resume Next
      Shell (Text1.Text & "\QQ.exe")'运行QQ程序
      End Sub
      Private Sub Command2_Click()
      Dim 路径 As String
      路径 = Text1.Text
      ShellExecute Me.hwnd, vbNullString, 路径, vbNullString, vbNullString, 1 'API函数打开文件夹
      ' Shell "cmd.exe /c start " & Text1.Text, vbMaximizedFocus 'cmd打开文件夹
      End Sub
      Private Sub Command3_Click()
      On Error Resume Next
      Text1.Text = CreateObject("Wscript.Shell").regread("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009\Install") + "\bin\"
      End Sub
      Private Sub Form_Load()
      On Error Resume Next
      Text1.Text = CreateObject("Wscript.Shell").regread("HKEY_LOCAL_MACHINE\SOFTWARE\TENCENT\QQ2009\Install") + "\bin\"
      End Sub
    展开全文
  • VB编程:VB获取快捷方式对应的目标路径。 比如,我们想获取桌面上腾讯QQ快捷方式对应的路径,也就是想知道QQ运行程序的安装位置。 我们先做一个函数,专门用于取得一个程序的快捷方式对应的路径名。函数代码如下: ...

    VB编程:VB获取快捷方式对应的目标路径。

    比如,我们想获取桌面上腾讯QQ快捷方式对应的路径,也就是想知道QQ运行程序的安装位置。

    我们先做一个函数,专门用于取得一个程序的快捷方式对应的路径名。函数代码如下:

    Function GetTargetPath(ByVal LinkName As String) '得到快捷方式的程序的路径
    On Local Error Resume Next
    Dim Obj As Object
    Set Obj = CreateObject(“Wscript.Shell”)
    Dim ShortCut As Object
    Set ShortCut = Obj.CreateShortcut(LinkName)
    GetTargetPath = ShortCut.TargetPath
    ShortCut.Save
    End Function
    下面我们在窗体的load事件中取得QQ的安装路径:

    Private Sub Form_Load()
    MsgBox GetTargetPath(“C:\Users\Administrator\Desktop\qq.lnk”) '这个是快捷方式所在的路径
    End Sub

    展开全文
  • 本篇文章帮大家学习VB.Net文件处理,包含了VB.Net文件处理使用方法、操作技巧、实例演示和注意事项,有一定的学习价值,大家可以用来参考。文件是存储在具有特定名称和目录路径的磁盘中的数据的集合。当一个文件被...

    本篇文章帮大家学习VB.Net文件处理,包含了VB.Net文件处理使用方法、操作技巧、实例演示和注意事项,有一定的学习价值,大家可以用来参考。

    文件是存储在具有特定名称和目录路径的磁盘中的数据的集合。当一个文件被打开进行读或写时,它就成为一个流。

    流基本上是通过通信路径的字节序列。 有两个主流:输入流和输出流。 输入流用于从文件读取数据(读取操作),输出流用于写入文件(写入操作)。

    VB.Net I/O类

    System.IO名称空间具有各种类,用于执行文件的各种操作,如创建和删除文件,读取或写入文件,关闭文件等。

    下表显示了System.IO名称空间中的一些常用的非抽象类:

    编号

    I/O类

    描述

    1

    BinaryReader

    从二进制流读取原始数据。

    2

    BinaryWriter

    以二进制格式写入原始数据。

    3

    BufferedStream

    临时存储一个字节流。

    4

    Directory

    帮助操作目录结构。

    5

    DirectoryInfo

    用于在目录上执行操作。

    6

    DriveInfo

    提供驱动器的信息。

    7

    File

    用于操纵文件。

    8

    FileInfo

    用于对文件执行操作。

    9

    FileStream

    用于读取和写入文件中的任何位置。

    10

    MemoryStream

    用于随机访问存储在内存中的流式数据。

    11

    Path

    对路径信息进行操作。

    12

    StreamReader

    用于从字节流中读取字符。

    13

    StreamWriter

    用于将字符写入流中。

    14

    StringReader

    用于从字符串缓冲区读取。

    15

    StringWriter

    用于写入字符串缓冲区。

    FileStream类

    System.IO命名空间中的FileStream类有助于读取,写入和关闭文件。这个类派生自抽象类Stream。

    需要创建一个FileStream对象来创建一个新文件或打开一个现有的文件。创建FileStream对象的语法如下所示:

    Dim As FileStream = New FileStream(, , , )

    例如,为了创建一个FileStream对象F来读取名为sample.txt的文件:

    Dim f1 As FileStream = New FileStream("sample.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)

    以下是参数和描述 -

    FileMode - FileMode 枚举器定义了打开文件的各种方法。FileMode枚举器的成员是:

    Append:它打开一个现有的文件,并将光标放在文件的末尾,或创建文件,如果文件不存在。

    Create:它创建一个新的文件。

    CreateNew:它指定操作系统应该创建一个新文件。

    Open:它打开一个现有的文件。

    OpenOrCreate: 它指定操作系统应该打开一个文件,否则它应该创建一个新的文件。

    Truncate:它打开一个现有的文件,并截断其大小为零字节。

    FileAccess - FileAccess枚举员具有成员:Read,ReadWrite和Write。

    Inheritable - 它允许文件句柄将继承传递给子进程。

    None - 它拒绝共享当前文件。

    Read - 它允许打开文件进行读读。

    ReadWrite: 它允许打开文件进行读写。

    Write - 它允许打开文件进行写入。

    示例

    以下程序演示了FileStream类的使用:

    Imports System.IO

    Module fileProg

    Sub Main()

    Dim f1 As FileStream = New FileStream("sample.txt",FileMode.OpenOrCreate, FileAccess.ReadWrite)

    Dim i As Integer

    For i = 0 To 20

    f1.WriteByte(CByte(i))

    Next i

    f1.Position = 0

    For i = 0 To 20

    Console.Write("{0} ", f1.ReadByte())

    Next i

    f1.Close()

    Console.ReadKey()

    End Sub

    End Module

    当上面的代码被编译并执行时,会产生以下结果:

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 -1

    VB.Net高级文件操作

    前面的例子提供了VB.Net中的简单文件操作。但是,要利用System.IO类的强大功能,需要了解这些类的常用属性和方法。

    我们将在下面的章节中讨论这些类和它们所执行的操作。请点击提供的链接以访问各个部分:

    编号

    方法

    描述

    1

    它涉及到读取和写入文本文件。StreamReader和StreamWriter类有助于实现它。

    2

    它涉及到读取和写入二进制文件。BinaryReader和BinaryWriter类有助于实现这一点。

    3

    它使VB.Net程序员能够浏览和查找Windows文件和目录。

    展开全文
  • } } VB获取GUID的方法:Option Explicit Private Type GUID Data1 As Long Data2 As Long Data3 As Long Data4(8) As Byte End Type Private Declare Function CoCreateGuid Lib "ole32.dll" ...
  • 获取应用程序路径,c# vb.net 源程序
  • VB.NET 获取程式路径

    千次阅读 2011-08-18 18:40:55
    VB.NET 获取程式路径 VB6程式大家都知道是用:app.path 获取程式的启动路径,在编程阶段是.VBP的路径,当然如果是用.exe 运行的话,是.exe所在路径。 但是VB.NET就有很多不同 程式启动路径:也就是.EXE所在路径,...
  • 还有很多朋友关注完之后,不知道在哪里回复代码获取软件;还有很多朋友知道怎么获取软件了,但是总是安装不成功。所以大家只需按照下方的步骤一步步操作,就可以获取软件并且安装成功了第一步在公众号对话...
  • VB得到或获取路径,枚举出VB源代码所在的路径,枚举Vb6.exe可执行文件的路径。
  • vb6根据路径获取文件名

    千次阅读 2019-05-10 16:35:35
    '获取路径,截取文件名' MsgBox Mid ( txtFilePath . Text , Len ( txtFilePath . Text ) - ( InStr ( 1 , StrReverse ( txtFilePath . Text ) , "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), ...
  • 我们前面的课程学习过ShowOpen方法,可以很方便的在对话框内,选择一个或者多个文件,并获取文件的路径。但是,如果需要获取一个文件夹路径,那么使用ShowOpen方法是无法办到的,那么该如何实现呢?步骤一:建立一个...
  • VB中GetCurrentDirectory()获取路径异常

    千次阅读 2014-07-01 20:28:12
    环境 VS2010 , Vb.net , 框架3.5.
  • '此方法不需要引用IShellLink. Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private ...GetLinkPath = StrConv(bytBuffer, vbUnicode) End Function  
  • 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编 ★ 几行 VB 代码拿下注册表 ★ VB 在浏览器中打开指定网址 ★ VB 窗口置顶 ★ vb 在 ListBox 之中点击右键弹出菜单 ...
  • 攻击活动分析2019年8月,Proofpoint研究人员发现了一系列的传播含有WhiteShadow下载器VB宏的word和Excel附件的恶意邮件活动。图1: AWhiteShadow攻击活动中的恶意邮件WhiteShadow是一种恶意软件交付服务,其中包含...
  • vb.net调用EA上开发一个项目,需要得到.eap文件的绝对路径,请问可以如何获得? (不是Enterprise Architect安装路径vb开发项目路径
  • VB6 获取APPDATA路径

    千次阅读 2014-07-18 07:00:13
    Dim oShell Dim strHomeFolder As String 'Get folder Set oShell = CreateObject("WScript.Shell") strHomeFolder = oShell.ExpandEnvironmentStrings("%APPDATA%")
  • VB获取某个进程的路径代码。

    千次阅读 2009-01-20 15:39:00
    Private Sub Command1_Click() Dim ps, s s = InputBox("请输入进程名称:", "提示", "notepad.exe") ...MsgBox "该进程的完整路径是:" & ps.executablepath Exit Sub End If Next MsgBox "该进程不存在!" End Sub

空空如也

空空如也

1 2 3 4 5 ... 13
收藏数 245
精华内容 98
关键字:

vb获取路径