获取路径名的原始大小写状态
2006-06-04 07:44
197 查看
方法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
'利用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
相关文章推荐
- 获取路径名的原始大小写状态
- ajax获取http访问状态--判断图片路径是否有效
- 【学习笔记】day2数据存储和界面展现第一天 11_api获取外部存储的真实路径 12_检查外部存储状态
- Android开发-动态获取电视盒子U盘的插拔状态和路径
- 用于适配不同型号手机,反射获取SD卡路径和状态
- Android获取网络连接状态(3G/Wifi)及调用网络配置界面
- C#获取文件路径的几种方法
- VC 获取打印机与打印作业的状态
- Android获取屏幕方向及键盘状态的小例子
- Java中获取项目绝对路径
- iOS 根据文件名获取到文件路径
- java通过虚拟机设置参数的方式动态获取当前项目的绝对路径
- java代码中获取classpath路径
- php求两个目录的相对路径示例(php获取相对路径)
- 获取文件路径报空指针
- 使用sys:get_state/1可以快速获取进程里面的状态信息
- Windows中如何获取键盘和鼠标处于空闲状态的时间
- bat命令获取mysql路径
- Qt 程序获取程序所在路径、用户目录路径、临时文件夹等特殊路径的方法
- [转]eclipse插件开发中获取当前的路径