求这样一个函数:函数("C:\winnt\a.bak")="C:\winnt\"

[juit]

如题!

[test7979]

是吗?

那如果路径是这样的呢 C:/winnt/a.bak

这个可也是Windows支持的路径名称

[wzhjs]

Function GetPath(fullpath)
Dim p
For p=Len(fullpath) To 1 Step -1
If Mid(fullpath,p,1)="\" Then Exit For
Next
if p=1 Then
GetPath=""
Else
GetPath=Mid(fullpath,1,p-1)
End if
End Function

[liul17]

没明白什么意思说具体些！

[itsmyfault]

left("C:\winnt\a.bak",9)

[飘零风]

TmpStr="C:\winnt\a.bak"
MsgBox Left(TmpStr,InStrRev(TmpStr,"\"))

InStrRev函数：返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。

[Random]

function GetPathByName(byval filename as string) as string
GetPathByName=left(filename,len(filename)-instr(strreverse(filename),"\")+1)
end function

[zhenglc]

楼主是要获得路径名吧

[Sean918]

TmpStr="C:\winnt\a.bak"
MsgBox Left(TmpStr,InStr(TmpStr,"\"))

[onlineboy]

楼上的这些不能解决多级子目录的问题
加个循环就可以了

Function GetFilePath(ByVal FileName As String) As String
dim intA as Long
intA = InStr(1, FileName, "\")
Do Until intA = 0
intA = InStr(intA + 1, FileName, "\")
Loop
GetFilePath = Left(FileName, intA)
End Function

[jsshfj]

你可以考虑使用这个GetParentFolderName

或者
Private Function GetParentFolder(path As String) As String
GetParentFolder = Left(path, InStrRev(path, "\"))
End Function

或者
Private Function GetParentFolder(path As String) As String
Dim itemp As Integer
Dim vartemp
Dim varGroup
varGroup = Split(path, "\")
itemp = -1
For Each vartemp In varGroup
itemp = itemp + 1
Next
GetParentFolder = ""
For i = 0 To itemp - 1
GetParentFolder = GetParentFolder + varGroup(i) + "\"
Next i
End Function

[hxy2003]

这些代码都很好.

[test7979]

再好也没有MS的好,

请看WIN API
GetFullPathName

[flyingscv]

WIN API ：GetFullPathName不如下面的好

回复人： eports(飘零风) ( ) 信誉：100 2003-08-21 10:42:00 得分:0


TmpStr="C:\winnt\a.bak"
MsgBox Left(TmpStr,InStrRev(TmpStr,"\"))

InStrRev函数：返回一个字符串在另一个字符串中出现的位置，从字符串的末尾算起。

[juit]

大家辛苦了.