获取路径名的原始大小写状态

最新推荐文章于 2024-07-16 23:47:41 发布

最新推荐文章于 2024-07-16 23:47:41 发布 · 151 阅读

文章标签：

#Office #Microsoft #C #C++ #C#

本文介绍了两种获取文件绝对路径的方法：一是通过利用dir()函数进行循环处理；二是使用FileSystemObject对象来实现。这两种方法均可帮助开发者准确地获取指定文件的真实路径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

方法1:

'利用dir()循环:

------------------------------------

Option Explicit

Private Sub Command1_Click()
Dim s As String
s = "c:\program files\microsoft office\office11\winword.exe"
MsgBox "lcase: " & s & vbCrLf & "inipath: " & inipath(s)
End Sub
Function inipath(ByVal lcasepath As String) As String
Dim x() As String, temp() As String, n As Integer, i As Integer
x = Split(lcasepath, "\")
n = UBound(x)
ReDim temp(n)
temp(0) = UCase(x(0))
For i = n To 1 Step -1
ReDim Preserve x(i)
temp(i) = Join(x, "\")
temp(i) = IIf(i = n, Dir(temp(i)), Dir(temp(i), vbDirectory))
Next
inipath = Join(temp, "\")
End Function

方法2:

''使用File System Object:

Private Sub Command1_Click()
Dim s As String
s = "c:\program files\microsoft office\office11\winword.exe"
Dim fso As New FileSystemObject
MsgBox fso.GetAbsolutePathName(s)
End Sub