『壹』 VB获取文件路径与名称
在VB中可以用Command函数获得传递过来的命令行参数，比如：Private Sub Form_Load() MsgBox CommandEnd Sub
『贰』 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内
『叁』 vb 默认的文件保存路径是什么
保存路径是当前可执行程序所在的文件夹。比如exe在d:workcestdemo.exe,哪么文件默认保存到d:workcest，利用VB文件夹列表框控件设置文件夹路径的方法：
1、新建一个标准工程。
『肆』 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
『伍』 vb 获取文件所在路径
添加一个模块，模块里写：
SubMain()DimstrCmdAsStringstrCmd=Command()Form1.Label1.Caption=strCmdForm1.ShowEndSub
然后，在“工程”－“属性”－“通用”里设置启动对象为Sub Main()
『陆』 vb 如何通过一个文件的全路径获得该文件所在文件夹
'编写函数，获取PrivateFunctionGetLuJIn(ByValaAsString)AsStringDimiAsLongFori=Len(a)To1Step-1Ifmid(a,i,1)=""Then'获取最后一个""位置GetLuJin=Left(a,i-1)'函数返回最后一个""前面的东西ExitFunction'获取之后，函数没专什么事了，退出属EndifNextiEndFunction
『柒』 VB中如何获取当前程序的绝对路径
System.Environment.CurrentDirectory;
//例:c:/test/
Application.ExecutablePath;(包括名称）
//例:c:/test/myapp.exe
Application.StartupPath;（不包括名称）
//例:c:/test/
绝对路径是直接到达目标位置，通常是从盘符开始的路径。完整的描述文件位置的路径就是绝对路径，以web站点根目录为参考基础的目录路径。
绝对路径名的指定是从树型目录结构顶部的根目录开始到某个目录或文件的路径，由一系列连续的目录组成，中间用斜线分隔，直到要指定的目录或文件，路径中的最后一个名称即为要指向的目录或文件。之所以称为绝对，意指当所有网页引用同一个文件时，所使用的路径都是一样的。
(7)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 )"
『捌』 VB如何提取路径中的文件名
楼上几位够费劲的，只需要一行代码： Text2 = CreateObject("Scripting.FileSystemObject").GetBaseName(Text1)
『玖』 vb 得到文件路径
“当用Dialog一次打开多个文件”————你这里的Dialog指的是通用的OpenDialog“打开”对话框吗？ 这样做： 引用Common Dialog 控件库。 在窗口上添加一个List1，一个Label1，两个按钮Command1和Command2，一个ComDlg控件命名为CD1。 然后加入以下代码： Option ExplicitPrivate Sub Command1_Click()CD1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorerCD1.ShowOpenIf CD1.FileName = "" Then Exit SubDim Str1 As StringDim Ary1() As StringStr1 = CD1.FileNameAry1 = Split(Str1, Chr(0))If UBound(Ary1) = 0 ThenReDim Preserve Ary1(1)Dim n1 As Longn1 = InStrRev(Ary1(0), "\")Ary1(1) = Mid(Ary1(0), n1 + 1)Ary1(0) = Left(Ary1(0), n1)End IfDim s1 As Long, Apath1 As StringApath1 = App.PathIf Right(Apath1, 1) <> "\" Then Apath1 = Apath1 & "\"If Right(Ary1(0), 1) <> "\" Then Ary1(0) = Ary1(0) & "\"Open Apath1 & "st.ini" For Output As #2For s1 = 1 To UBound(Ary1)Print #2, Ary1(0) & Ary1(s1)NextClose #2End SubPrivate Sub Command2_Click()Dim s1 As Long, Apath1 As StringApath1 = App.PathIf Right(Apath1, 1) <> "\" Then Apath1 = Apath1 & "\"Dim Str1 As StringOpen Apath1 & "st.ini" For Input As #3Do Until EOF(3)Line Input #3, Str1List1.AddItem Str1LoopClose #3End SubPrivate Sub List1_Click()If List1.ListIndex < 0 Then Exit SubLabel1.Caption = List1.List(List1.ListIndex)End Subok，运行看看吧。点击Command1会打开文件并把文件路径写入st.ini 点击Command2会读取st.ini，并显示到List1中 点击List1中的项目会在Label中显示内容。完成了，已经在VB6下调试通过，给分吧～～
『拾』 VB怎么实现选择路径，打开路径
用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法抄可显示“打开”和“另存为”对话框：Private Sub Command1_Click()' 设置“CancelError”为 TrueCommonDialog1.CancelError = TrueOn Error GoTo ErrHandler' 设置标志CommonDialog1.Flags = cdlOFNHideReadOnly' 设置过滤器CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"' 指定缺省的过滤器CommonDialog1.FilterIndex = 2' 显示“打开”对话框CommonDialog1.ShowOpen' 显示选定文件的名字MsgBox CommonDialog1.FileName '显示路径Exit SubErrHandler:' 用户按了“取消”按钮Exit SubEnd Sub
未经允许不得转载：山九号 » vb文件路径|vb查找文件并获取文件路径
