精华内容
下载资源
问答
  • System.Environment.CurrentDirectory; //例: c:/test/ Application.ExecutablePath;(包括名称) //例: c:/test/myapp.exe Application.StartupPath;(不包括名称) //例: c:/test/ 上面的几个试了下都不行 ...

    System.Environment.CurrentDirectory;

    //例: c:/test/

    Application.ExecutablePath;(包括名称)

    //例: c:/test/myapp.exe

    Application.StartupPath;(不包括名称)

    //例: c:/test/
    上面的几个试了下都不行
    下面的有效
    Dim app As String = Assembly.GetAssembly(GetType(Ents.class1)).Location
    Dim AssemPath As String = System.IO.Path.GetDirectoryName(app)

    展开全文
  • 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)语句,

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

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

    展开全文
  • 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 获取系统路径

    2010-06-08 08:49:20
    VB 获取系统路径 VB 获取系统路径 VB 获取系统路径 VB 获取系统路径
  • '*************************获得System目录*********************************** Length = GetSystemDirectory(sTmp, MAX_LEN) txtSystem.Text = Left(sTmp, Length) '*************************获得Temp目录*******...

    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

    展开全文
  • 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), ...
  • vb打开ftp服务器文件路径 内容精选换一换该任务指导用户使用Loader将数据从HDFS/OBS导出到SFTP服务器。创建或获取该任务中创建Loader作业的业务用户和密码。确保用户已授权访问作业执行时操作的HDFS/OBS目录和数据。...
  • VB:获取程序运行的当前路径

    千次阅读 2008-04-02 10:27:00
    自己在学习过程中,查资料所掌握的一些小知识,和大家分享,关于APP的内容
  • vb.net 获取程序运行中的路径问题

    千次阅读 2018-09-22 11:21:40
    // 获取模块的完整路径。 System.Diagnostics.Process.GetCurrentProcess().MainModule.FileName // 获取和设置当前目录(该进程从中启动的目录)的完全限定目录。 System.Environment.Curr...
  • 标题VB.NET获取程序的启动目录,以及返回启动目录上一级甚至上上一级方法 一、首先把自己写的窗体应用程序放出来,如下图1.按钮1和按钮2都是获取程序的启动路径,然后把路径显示出来。 图1 二、程序代码如下 ...
  • vb 取得桌面路径

    2014-02-20 11:24:00
    txtPath.Text = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop) 转载于:https://www.cnblogs.com/vinsonLu/p/3557256.html
  • VB实现选取文件夹路径

    万次阅读 2014-04-22 18:24:36
    VB中直接选取文件路径直接使用控件就可以实现 选取文件夹路径可以采用下述办法。   添加模块文件直接进行调用。模块内容代码 '---------------------------------------------------------------------------...
  • VB6.0 调用WindowsAPI函数,获取一个已打开窗口程序的完整路径。不同的操作系统,需要调用不同的函数,才能得到正确的结果。 本代码共140余行语句,分为四个函数,首先获取已经打开窗口的句柄,再判断操作系统的主...
  • C#(ASP.Net)获取当前路径的方法集合

    千次阅读 2015-10-05 11:43:27
    //获取当前进程的完整路径,包含文件名(进程名)。  string str = this.GetType().Assembly.Location;  result: X:\xxx\xxx\xxx.exe (.exe文件所在的目录+.exe文件名)  //获取新的 Process 组件并将其与当前...
  • VB.NET控制台程序获取程序运行路径

    千次阅读 2015-11-08 13:58:10
    找了几个获取路径的函数,发现都是获取的环境路径,而本程序需要获取的是程序路径,然后增加日志文件操作。 通常网上介绍的几个方法有:  Application.StartupPath Application.ExecutablePath
  • 获取位置  Dim path1 As String = Application.StartupPath  'C:\Users\TOGAI\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug  Dim path2 As String = System.IO.Directory
  • Private Declare Function GetDesktopWindow Lib " user32 ...上面分别是启动指定目录下的应用程序以及查找应用程序所在的当前路径~~~ 转载于:https://www.cnblogs.com/aleafo/p/3424156.html
  • 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
  • Android 开源项目及其学习 ...一共进行\(N\)次操作,第\(i\)次操作是将当前字符串复制一份接到后面,并将新的一份循环移位\(k_i\)(\(1 \le k_i \le ... C#通过XElement写入XML文件 首先我们先看一下最终结果,如下: < ...
  • VB如何从文件路径名中获得文件名?

    千次阅读 2006-09-03 11:48:00
    PathString(路径)可以从通用对话框的属性中得到,然后调用GetFileName就可以得到你想要的文件名了:Function GetFileName(PathString$) As StringDim a%, b%, c%, p%GetFileName = PathStringFor p% = Len(Path...
  • VB 窗体实现文件拖拽获取路径方法

    千次阅读 2012-07-28 18:16:41
    如何获取当前已经打开的 IE 对象 (VB6 代码 ) ☆ DXInput 中键码的转换 (VB6.0 代码 ) ☆ 如何在 VB6.0 里动态使用具有事件的对象 ☆ [vb] 格式输出 Format 函数 ☆ 读取和写入 Windows 的 INI 文件...
  • Private Sub Form_Load() Dim sB As String ... “” '跳过当前的目录及上层目录 If sF <> “.” And sF <> “…” Then If (GetAttr(sB + sF) And vbDirectory) = vbDirectory Then Com
  • ''' 获取当前.NET程序所在的目录 ''' </summary> ''' <returns>返回当前.NET程序所在的目录</returns> Function GetCurrentPath() As String Dim moudle = System.Reflection.Assembly....
  • VB.NET获取Windows 7操作系统信息,本程序获取的内容比较多,主要有:显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、...
  • VBA如何获取当前EXCEL文件的路径

    万次阅读 2015-10-13 11:29:51
    返回当前工作薄的路径  ThisWorkbook.Path  返回当前默认文件路径:  Application.DefaultFilePath  Application.ActiveWorkbook.Path 只返回路径  Application.ActiveWorkbook.FullName
  • Private Sub Command1_Click()Dim File As StringFile = Environ$(&...其实Environ()完全可以达到获取系统目录的效果 Environ 函数返回 String,它关连于一个操作系统环境变量。 在 Macintosh 中不可用 语法 Env...
  • .Net中获取当前路径的方法。2010-01-28 09:59//Web编程 HttpContext.Current.Server.MapPath("FileName") System.Web.HttpContext.Current.Request.Path //Windows编程 System.Environment.CurrentDirectory //...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 14,075
精华内容 5,630
关键字:

vb获取当前路径