VB 获取文件绝对路径

可以试试：

Shell

"appexe

"

&

appPath

&

"\文件flv",

vbNormalFocus

友情提示：Shell在 *** 作文件路径的时候，如果路径中或者文件名中包含空格，需要利用Chr(34)对路径进行在处理！！

测试不通过的话再留言！！

'添加一个Microsoft Common Dialog Control 60部件

'添加一个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 Long

Private 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,filename

End Function

Private Sub Command1_Click()

CommonDialog1Filter = "所有文件()|"

CommonDialog1FilterIndex = 1

CommonDialog1ShowOpen

List1AddItem CommonDialog1filename

End Sub

Private Sub Form_Load()

For i = 0 To Val(GetINI("listcount", "Count", AppPath & "\stini")) - 1

List1AddItem GetINI("list", CStr(Format(i, "000")), AppPath & "\stini"), i

Next i

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim i As Integer

For i = 1 To List1ListCount

SaveINI "list", CStr(Format(i - 1, "000")), List1List(i - 1), AppPath & "\stini"

Next i

SaveINI "ListCount", "Count", List1ListCount, AppPath & "\stini"

End Sub

Private Sub List1_Click()

Label1Caption = List1Text

End Sub

SystemEnvironmentCurrentDirectory;

//例: c:/test/

ApplicationExecutablePath;(包括名称）

//例: c:/test/myappexe

ApplicationStartupPath;（不包括名称）

//例: c:/test/

绝对路径是直接到达目标位置，通常是从盘符开始的路径。完整的描述文件位置的路径就是绝对路径，以web站点根目录为参考基础的目录路径。

绝对路径名的指定是从树型目录结构顶部的根目录开始到某个目录或文件的路径，由一系列连续的目录组成，中间用斜线分隔，直到要指定的目录或文件，路径中的最后一个名称即为要指向的目录或文件。之所以称为绝对，意指当所有网页引用同一个文件时，所使用的路径都是一样的。

扩展资料

几种编程语言获取程序所在路径的方法：

1、在golang程序里面获取程序所在路径：

package main

import (

"path/filepath"

"os"

"fmt"

"log"

)

func main() {

execDir, err := filepathAbs(filepathDir(osArgs[0]))

if err = nil {

logFatal(err)

}fmtPrintln(execDir)

}

2、python脚本所在路径：

import os

print(ospathsplit(ospathrealpath(__file__))[0])

3、shell脚本获取脚本的绝对路径：

DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"

以上就是关于VB 获取文件绝对路径全部的内容，包括:VB 获取文件绝对路径、VB获取文件完整绝对路径、VB中如何获取当前程序的绝对路径等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！