精华内容
下载资源
问答
  • 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获取Windows常用文件夹的路径信息,比如获取桌面文件夹、程序文件夹、我的文档、收藏夹、开始菜单等的默认路径,并显示在对应的文本框中。
  • 内容索引:VB源码,系统相关,缓存目录,路径 VB获取IE Cache,也就是大家常说的IE缓存文件的目录路径,程序较简单,除了获取缓存目录的功能外,没有其它功能,帮助VB初学者了解VB与Windows各目录的获取方法,这是其中...
  • VB得到或获取路径

    2021-05-07 12:51:09
    内容索引:VB源码,系统相关,路径,枚举 VB得到或获取路径,枚举出VB源代码所在的路径,枚举Vb6.exe可执行文件的路径。
  • VB获取System和Windows路径
  • VB得到或获取路径,枚举出VB源代码所在的路径,枚举Vb6.exe可执行文件的路径。
  • visual basic(vb.net)中获取桌面路径的应用场景今天华仔研究了一天的按键精灵,其实华仔以前也用过,之前做的是简单的推广,现在想来,还是可以深入学习的,尤其这次,踏出了操控谷歌浏览器的一步,愈是发现,按键...

    visual basic(vb.net)中获取桌面路径的应用场景

    今天华仔研究了一天的按键精灵,

    其实华仔以前也用过,之前做的是简单的推广,

    现在想来,还是可以深入学习的,

    尤其这次,踏出了操控谷歌浏览器的一步,

    愈是发现,按键精灵和visual basic(vb.net)何其相似,

    后面查找,好像是VBScript,不过这也不在意了,

    反正有部分语句通用,

    今天就是遇到一个问题,

    就是不同人的电脑,桌面路径有所不同,

    这就给读写桌面文件增加了一点难度,

    因此我便寻求一个能够通用的语句,

    在任何电脑上都可以获取到桌面路径。

    果不其然,visual basic(vb.net)和按键精灵通用!

    visual basic(vb.net)中获取桌面路径的解决方法Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    MsgBox(CreateObject("WScript.Shell").SpecialFolders("Desktop"))

    End Sub

    通过以上代码,我们可以得到路径例如:"C:\Users\Administrator\Desktop"

    visual basic(vb.net)中获取桌面路径的结论

    通过这条visual basic(vb.net)语句,

    我们可以在任何电脑上获得桌面路径,

    这样就便于我们读写桌面文件、文件夹了!

    展开全文
  • Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As LongPrivate Declare Function SHGetPathFromIDList Lib "Shell32" A...

    Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long

    Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long

    Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

    Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

    Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

    Const MAX_LEN = 200 '字符串最大长度

    Const DESKTOP = &H0& '桌面

    Const PROGRAMS = &H2& '程序集

    Const MYDOCUMENTS = &H5& '我的文档

    Const MYFAVORITES = &H6& '收藏夹

    Const STARTUP = &H7& '启动

    Const RECENT = &H8& '最近打开的文件

    Const SENDTO = &H9& '发送

    Const STARTMENU = &HB& '开始菜单

    Const NETHOOD = &H13& '网上邻居

    Const FONTS = &H14& '字体

    Const SHELLNEW = &H15& 'ShellNew

    Const APPDATA = &H1A& 'Application Data

    Const PRINTHOOD = &H1B& 'PrintHood

    Const PAGETMP = &H20& '网页临时文件

    Const COOKIES = &H21& 'Cookies目录

    Const HISTORY = &H22& '历史

    Private Sub Form_Load()

    Dim sTmp As String * MAX_LEN  '存放结果的固定长度的字符串

    Dim nLength As Long  '字符串的实际长度

    Dim pidl As Long  '某特殊目录在特殊目录列表中的位置

    '*************************获得Windows目录**********************************

    Length = GetWindowsDirectory(sTmp, MAX_LEN)

    txtWin.Text = Left(sTmp, Length)

    '*************************获得System目录***********************************

    Length = GetSystemDirectory(sTmp, MAX_LEN)

    txtSystem.Text = Left(sTmp, Length)

    '*************************获得Temp目录***********************************

    Length = GetTempPath(MAX_LEN, sTmp)

    txtTemp.Text = Left(sTmp, Length)

    '*************************获得DeskTop目录**********************************

    SHGetSpecialFolderLocation 0, DESKTOP, pidl

    SHGetPathFromIDList pidl, sTmp

    txtDesktop.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得发送到目录**********************************

    SHGetSpecialFolderLocation 0, SENDTO, pidl

    SHGetPathFromIDList pidl, sTmp

    txtSendTo.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得我的文档目录*********************************

    SHGetSpecialFolderLocation 0, MYDOCUMENTS, pidl

    SHGetPathFromIDList pidl, sTmp

    txtDocument.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得程序集目录***********************************

    SHGetSpecialFolderLocation 0, PROGRAMS, pidl

    SHGetPathFromIDList pidl, sTmp

    txtProgram.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得启动目录*************************************

    SHGetSpecialFolderLocation 0, STARTUP, pidl

    SHGetPathFromIDList pidl, sTmp

    txtStart.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得开始菜单目录*********************************

    SHGetSpecialFolderLocation 0, STARTMENU, pidl

    SHGetPathFromIDList pidl, sTmp

    txtStartMenu.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得收藏夹目录***********************************

    SHGetSpecialFolderLocation 0, MYFAVORITES, pidl

    SHGetPathFromIDList pidl, sTmp

    txtFavorites.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '**********************获得最后打开的文件目录*******************************

    SHGetSpecialFolderLocation 0, RECENT, pidl

    SHGetPathFromIDList pidl, sTmp

    txtRecent.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得网上邻居目录*********************************

    SHGetSpecialFolderLocation 0, NETHOOD, pidl

    SHGetPathFromIDList pidl, sTmp

    txtNetHood.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得字体目录**********************************

    SHGetSpecialFolderLocation 0, FONTS, pidl

    SHGetPathFromIDList pidl, sTmp

    txtFonts.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得Cookies目录**********************************

    SHGetSpecialFolderLocation 0, COOKIES, pidl

    SHGetPathFromIDList pidl, sTmp

    txtCookies.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得历史目录**********************************

    SHGetSpecialFolderLocation 0, HISTORY, pidl

    SHGetPathFromIDList pidl, sTmp

    txtHistory.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '***********************获得网页临时文件目录*******************************

    SHGetSpecialFolderLocation 0, PAGETMP, pidl

    SHGetPathFromIDList pidl, sTmp

    txtPageTmp.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得ShellNew目录*********************************

    SHGetSpecialFolderLocation 0, SHELLNEW, pidl

    SHGetPathFromIDList pidl, sTmp

    txtShellNew.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '***********************获得Application Data目录*****************************

    SHGetSpecialFolderLocation 0, APPDATA, pidl

    SHGetPathFromIDList pidl, sTmp

    txtAppData.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    '*************************获得PrintHood目录*********************************

    SHGetSpecialFolderLocation 0, PRINTHOOD, pidl

    SHGetPathFromIDList pidl, sTmp

    txtPrintHood.Text = Left(sTmp, InStr(sTmp, Chr(0)) - 1)

    End Sub

    展开全文
  • 内容索引:VB源码,系统相关,文件夹,路径 VB获取Windows常用文件夹的路径信息,比如获取桌面文件夹、程序文件夹、我的文档、收藏夹、开始菜单等的默认路径,并显示在对应的文本框中。
  • VB获取桌面路径并删除指定的ICO,亲测可用
  • VB 获取系统路径

    2010-06-08 08:49:54
    VB 获取系统路径 VB 获取系统路径 VB 获取系统路径
  • 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), ...
    '# txtFilePath : 控件名'
    '过程'
    Len(txtFilePath.Text)                         '取字符串总长度'
    StrReverse txtFilePath.Text                   '反转字符串'
    InStr 1, "ABCDE", "A"                         '从规定位置开始,从前往后查找,查找第一个出现在的位置'
    InStr 1, StrReverse(txtFilePath.Text), "\"    '反转字符串后查找第一个 \ 出现的位置'
    
    MsgBox "总长度:" & Len(txtFilePath.Text) & vbCrLf & _
        "翻转查找\位置:" & InStr(1, StrReverse(txtFilePath.Text), "\") & vbCrLf & _
        "反取字符串::" & Mid(txtFilePath.Text, Len(txtFilePath.Text), (InStr(1, StrReverse(txtFilePath.Text), "\"))) & vbCrLf & _
        "计算开始位置:" & Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2) & vbCrLf & _
        "计算长度:" & (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1 & vbCrLf & _
        "正取字符串:" & Mid(txtFilePath.Text, Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1)
        
    '开始位置,数额越加越低,大值 - 小值'
    MsgBox Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2) 
    
     '长度'
    MsgBox (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1
    
    '获取路径,截取文件名'
    MsgBox Mid(txtFilePath.Text, Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1) 
    
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '结果'
    Mid( & _
        txtFilePath.Text, & _
        Len(txtFilePath.Text) - (InStr(1, StrReverse(txtFilePath.Text), "\") - 2), & _
        (InStr(1, StrReverse(txtFilePath.Text), "\")) - 1 & _
    ) 
    '需要截取的字符串'
    '字符串开始的位置'
    '需要截取的长度'
    
    
    展开全文
  • System.Environment.CurrentDirectory; //例: c:/test/ Application.ExecutablePath;(包括名称) //例: c:/test/myapp.exe Application.StartupPath;(不包括名称) //例: c:/test/ 上面的几个试了下都不行 ...
  • VB DirBrowse获取路径

    2012-12-19 16:56:40
    VB DirBrowse获取路径值,可实现目录初始化定位
  • vb打开ftp服务器文件路径 内容精选换一换该任务指导用户使用Loader将数据从HDFS/OBS导出到SFTP服务器。创建或获取该任务中创建Loader作业的业务用户和密码。确保用户已授权访问作业执行时操作的HDFS/OBS目录和数据。...
  • vb.net 获取程序运行中的路径问题

    千次阅读 2018-09-22 11:21:40
    // 获取模块的完整路径。 System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName // 获取和设置当前目录(该进程从中启动的目录)的完全限定目录。 System.Environment.Curr...
  • VB根据PID得到进程路径,改了一段代码,可以获取进程的PID和路径:  在窗体设计器里放一个listbox,命名为process;  再放2个txtbox,一个名为ProcessID,用来显示PID;  另一个名为Path,用来显示进程路径; ...
  • VB 获取win7下收藏夹路径的方法 VB 获取win7下收藏夹路径的方法
  • 摘要:VB源码,系统相关,磁盘空间 检测并获取磁盘空间信息,基于VisualBasic代码实现,程序可获取显示全部磁盘容量、磁盘剩余空间、磁盘利用情况、磁盘已用空间、所选磁盘信息。可将此模块用于程序安装目录所在磁盘...
  • VB网络映射实例,通过用户名映射磁盘驱动器路径,还有源代码,一个简单易懂的网络驱动器映射的小例子,如上图所示,经过一些简单的设置后,就可以使用了。
  • VB如何获取所文件选路径

    千次阅读 2007-09-13 09:13:00
    VB如何获取所选路径?首先在部件里勾上Microsoft Common Dialog Control6.0(sp3) 然后在窗体上添加CommonDialog1控件````` priavte sub command1_click() CommonDialog1.showopen text1.text=CommonDialog1.filenam
  • 选择文件夹提取文件名 VB程序,可以获取无后缀文件名 也可以获取带后缀文件名 ,两种选择,供您选择——大吉利祝您工作愉快~~
  • VB获取IE Cache,也就是大家常说的IE缓存文件的目录路径,程序较简单,除了获取缓存目录的功能外,没有其它功能,帮助VB初学者了解VB与Windows各目录的获取方法,这是其中之一。
  • VB.net 想点击button获取选择文件夹的路径,并把路径存入文本框1中。网上搜的都是添加commondialog控件,可是我只看到有button,新手求解,谢谢!
  • 内容索引:VB源码,系统相关,目录监视 VB获取并监视指定程序的安装目录,这里是获取传奇游戏的EXE文件安装目录,并监视其Data目录,对想做传奇木马的朋友可能有帮助。
  • 前几日,有个哥们说有很多电影,问我要不要?我就让他一个一个的写过来,让哥们累个不轻。所以就想简单写个程序,获取...vb版本目录获取器 1.0(龙卷风出品) 说明: 1.选好目录后,可以直接得到目录下的文件夹和文件
  • vb 取得桌面路径

    2021-06-24 04:32:10
    获取 Frame 的方 ... SaltStack Syndic配置 参考URL: http://www.ttlsa.com/saltstack/saltstack-syndic-example/ 虽然中心master看不到 minion的key 但是还是可以直接指导m ... SSM整合案例(Spring+Struts+...
  • VB 窗体实现文件拖拽获取路径方法

    千次阅读 2012-07-28 18:16:41
    窗体实现文件拖拽获取路径方法 ☆ VB :注册表的读写 ☆ vb 中空操作(等待)的指令、延时方法 ☆ VB 让控件可以当标题栏拖动 ☆ FSO 对象新建、打开、保存文件 ☆ 获取网关 IP 和 MAC 的 VB ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 17,130
精华内容 6,852
关键字:

vb获取路径