A. VB获取文件路径与名称
在VB中可以用Command函数获得传递过来的命令行参数，比如：Private Sub Form_Load() MsgBox CommandEnd Sub
B. VB中如何获取当前程序的绝对路径
System.Environment.CurrentDirectory;
//例:c:/test/
Application.ExecutablePath;(包括名称）
//例:c:/test/myapp.exe
Application.StartupPath;（不包括名称）
//例:c:/test/
绝对路径是直接到达目标位置，通常是从盘符开始的路径。完整的描述文件位置的路径就是绝对路径，以web站点根目录为参考基础的目录路径。
绝对路径名的指定是从树型目录结构顶部的根目录开始到某个目录或文件的路径，由一系列连续的目录组成，中间用斜线分隔，直到要指定的目录或文件，路径中的最后一个名称即为要指向的目录或文件。之所以称为绝对，意指当所有网页引用同一个文件时，所使用的路径都是一样的。
(2)vb获取文件路径扩展阅读
几种编程语言获取程序所在路径的方法：
1、在golang程序里面获取程序所在路径：
package main
import (
"path/filepath"
"os"
"fmt"
"log"
)
func main() {
execDir, err := filepath.Abs(filepath.Dir(os.Args[0]))
if err = nil {
log.Fatal(err)
}fmt.Println(execDir)
}
2、python脚本所在路径：
import os
print(os.path.split(os.path.realpath(__file__))[0])
3、shell脚本获取脚本的绝对路径：
DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
C. vb 选择文件 获取文件路径
首先在窗体中放置MicrosoftCommonDialogControl，名称指定为cdlg1。然后放一个按钮，内代码如容下：PrivateSubCommand1_Click()DimfnameAsStringDimcontentAsStringcdlg1.ShowOpenfname=cdlg1.FileNameMsgBoxfnameOpenfnameForInputAs#1Input#1,contentMsgBoxcontentClose#1EndSub
D. vb 获取文件所在路径
添加一个模块，模块里写：
SubMain()DimstrCmdAsStringstrCmd=Command()Form1.Label1.Caption=strCmdForm1.ShowEndSub
然后，在“工程”－“属性”－“通用”里设置启动对象为Sub Main()
E. VB获取文件路径
VB2008测试通过 Imports System Imports System.IO Imports System.Threading Imports System.Windows.Forms Public Class FrmMainDim newSearcher As getFileByName Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadrball.Checked = Truetbpath.Text = ""tbpath.Enabled = Falsebtndlg.Enabled = FalseEnd Sub Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Clicktv.Nodes.Clear()btnOK.Enabled = FalsebtnExit.Enabled = FalseIf rball.Checked Thenrun()ElseIf tbpath.Text = "" ThenMsgBox("请输入或者选择一个路径")Exit SubElserun(tbpath.Text)End IfEnd IfEnd Sub Private Sub btndlg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndlg.Clickfbdlg.RootFolder = Environment.SpecialFolder.MyComputerfbdlg.ShowDialog()tbpath.Text = fbdlg.SelectedPathEnd Sub Private Sub rbchs_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbchs.CheckedChangedIf rbchs.Checked = True Thentbpath.Enabled = Truebtndlg.Enabled = TrueElsetbpath.Enabled = Falsebtndlg.Enabled = FalseEnd IfEnd Sub Private Sub run()If tbfileName.Text = "" ThenMsgBox("请输入文件名称")btnOK.Enabled = TruebtnExit.Enabled = TrueExit SubElsenewSearcher = New getFileByName(tbfileName.Text)newSearcher.GetDrivers()tmr.Enabled = Truetmr.Interval = 10End IfEnd Sub Private Sub run(ByVal path As String)If tbfileName.Text = "" ThenMsgBox("请输入文件名称")btnOK.Enabled = TruebtnExit.Enabled = TrueExit SubElsenewSearcher = New getFileByName(tbfileName.Text)newSearcher.SearchFolder(path)tmr.Enabled = Truetmr.Interval = 50End IfEnd Sub Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.TickLblshow.Text = newSearcher.currentPathIf newSearcher.cntThread = 0 And newSearcher.isDone Then'MsgBox(newSearcher.getFile.ToString)'MsgBox("全部线程结束")For Each Str As String In newSearcher.getFiletv.Nodes.Add(Str)Next'For i As Integer = 0 To newSearcher.getFile.Length – 1'tv.Nodes.Add(newSearcher.getFile(i))'Nexttmr.Enabled = FalsebtnExit.Enabled = TruebtnOK.Enabled = TrueEnd IfMy.Application.DoEvents()End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.ClickMe.Close()End Sub End Class
F. VB获取文件夹路径
用API遍历当前桌面已打开的子窗口,获得窗口句柄和ID,然后通过ID获得该文件夹的路径,总之一句话,你要实现的功能VB无法做到,API可以
G. vb 完整路径获取文件夹路径
Path = "c:\soft\中国人\setup.exe"For i = 1 To Len(Path)If Mid(Path, i, 1) = "\" Then Print Left(Path, i)Next i 或者：Path = "c:\soft\中国人\setup.exe"For i = 1 To Len(Path)If Mid(Path, i, 1) = "\" Then Text1.Text = Left(Path, i)Next i将路径存回放于答text1内
H. vb查找文件并获取文件路径
Dir 函数示例:Dim MyFile, MyPath, MyName' 返回“WIN.INI” （如果该文件存在）。MyFile = Dir("C:\WINDOWS\WIN.ini") ' 返回带指定扩展名的文件名。如果超过一个 *.ini 文件存在，' 函数将返回按条件第一个找到的文件名。MyFile = Dir("C:\WINDOWS\*.ini")' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.ini 文件。MyFile = Dir' 返回找到的第一个隐式 *.TXT 文件。MyFile = Dir("*.TXT", vbHidden)' 显示 C:\ 目录下的名称。MyPath = "c:\" ' 指定路径。MyName = Dir(MyPath, vbDirectory) ' 找寻第一项。Do While MyName <> "" ' 开始循环。 ' 跳过当前的目录及上层目录。 If MyName <> "." And MyName <> ".." Then ' 使用位比较来确定 MyName 代表一目录。 If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then Debug.Print MyName ' 如果它是一个目录，将其名称显示出来。 End If End If MyName = Dir ' 查找下一个目录。Loop
I. vb 如何通过一个文件的全路径获得该文件所在文件夹
'编写函数，获取PrivateFunctionGetLuJIn(ByValaAsString)AsStringDimiAsLongFori=Len(a)To1Step-1Ifmid(a,i,1)=""Then'获取最后一个""位置GetLuJin=Left(a,i-1)'函数返回最后一个""前面的东西ExitFunction'获取之后，函数没专什么事了，退出属EndifNextiEndFunction
J. VB获取文件完整绝对路径
'添加一个Microsoft Common Dialog Control 6.0部件'添加一个CommandButton控件'添加一个ListBox控件'添加一个Label控件'————————————————'读写INI文件Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPrivate Declare Function SaveINI Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lplFileName As String) As Long'读写INI文件Function GetINI(AppName As String, KeyName As String, filename As String) As String Dim RetStr As String RetStr = String(10000, Chr(0)) GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), filename))'读：Rtn = GetINI(AppName, KeyName, filename)'写：SaveINI appname,keyname,string,filenameEnd FunctionPrivate Sub Command1_Click()CommonDialog1.Filter = "所有文件(*.*)|*.*"CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenList1.AddItem CommonDialog1.filenameEnd SubPrivate Sub Form_Load()For i = 0 To Val(GetINI("listcount", "Count", App.Path & "\st.ini")) – 1List1.AddItem GetINI("list", CStr(Format(i, "000")), App.Path & "\st.ini"), iNext iEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim i As IntegerFor i = 1 To List1.ListCountSaveINI "list", CStr(Format(i – 1, "000")), List1.List(i – 1), App.Path & "\st.ini"Next iSaveINI "ListCount", "Count", List1.ListCount, App.Path & "\st.ini"End SubPrivate Sub List1_Click()Label1.Caption = List1.TextEnd Sub
未经允许不得转载：山九号 » vb获取文件路径|vb查找文件并获取文件路径
