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

原创 2006年06月04日 07:44:00

方法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

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

显示键盘大小写状态

  • 2014-12-05 11:58
  • 606KB
  • 下载

获取SD卡 tf卡 内置外置存储卡路径名称 路径的方式

获取SD卡 tf卡 内置外置存储卡路径名称 路径的方式   直接附上 例子  http://download.csdn.net/detail/v587ge/8594391
  • v587ge
  • v587ge
  • 2015-04-14 18:05
  • 1217

驱动中获取进程完整路径名

原文地址:http://www.osronline.com/article.cfm?id=472           Over the years developers have ne...

文件过滤驱动--获取全路径名

[第一部分]取全路径以下是获取全路径的所有函数【string操作参见字符串操作的一个库unicode.lib】PVOID SpyGetFullPath(     PFILE_OBJECT fileob...

DLINQ 使用DataContext快速构建数据访问层DAL,发现Updata采用Attach(Entity t,true)困难重重!(如果实体声明了版本成员或者没有更新检查策略,则只能将它附加为没有原始状态的已修改实体)的解决办法!

如果实体声明了版本成员或者没有更新检查策略,则只能将它附加为没有原始状态的已修改实体。DLinq Attach(Entity t,true);使用过程中碰到的问题!

浅谈变量的原始值、存储状态、实际值和输出值

计算机用存储单元存储数据(编码后的数据),C语言中用变量标识计算机中的存储单元。 C语言中有long i,j;i=1;j=-1;,则相应的计算机中就有四个字节的整型变量,其存储状态为000000...

(58)String类:替换、切割、获取子串、转换(大小写、去除空格、字符大小比较)

如标题

iOS-地理坐标转换,原生地图获取的原始坐标转换为地图真实坐标

GPS以及iOS系统定位获得的坐标是地理坐标系WGS1984,Web地图一般用的坐标细是投影坐标系WGS 1984 Web Mercator,国内出于相关法律法规要求,对国内所有GPS设备及地图数据都...

如何获取微信红包照片的原始清晰图片

2016-02-07 除夕 今天(好吧过了12点了可以算是昨天了),腾讯再次开通了朋友圈的微信红包功能,我的朋友圈着实被目不暇接的高糊照片刷了一把屏。这怎么能忍?在这里我把我探索了一个晚上的查看清晰...

Retrofit使用时获取原始的json

通过retrofit一般的操作步骤通过设置gson转换器将json自动转化为javaBean,但是有些情况下,由于后台返回的数据不方便使用gson解析,这个时候就需要获取原始的json字符串,然后利用...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)