求一函数的用法！？InStrRev([a],'\')

sxgaobo

InStrRev([a],'\')，可以查出最后一个'\'在字段A中的位置，如何查询倒数第二个'\'的位置啊？

caoguangyao

你的问题是否可以转换一下,如下面的按钮单击事件:
Private Sub Command4_Click()
Dim str, str1 As String
dim i as long
str ="c:aee\frr\urr\kyy"
str1 = Left(str, InStrRev(str, "\") - 1)
i=InStrRev(str1, "\")
MsgBox  i
End Sub
'i=10,倒数第二个'\'的位置

tianms

哇塞，大家都是高手
为什么我看不明白了？
















-------------------
谎言与誓言的区别在于，一个是说的人当真，一个是听的人当真夏季凉拖 赤足跑鞋 男士帆布鞋 匡威帆布鞋 透气休闲板鞋

sxgaobo

自己想了这么个办法：InStrRev(Left([a],InStrRev([a],'\')-1),'\') 感觉比较笨！
有更好的吗？

roych

如果只是获取文件夹或者文件位置的话，可以考虑下FileSystemObject或者FileDialog。

sxgaobo

roych 发表于 2011-6-15 01:16
如果只是获取文件夹或者文件位置的话，可以考虑下FileSystemObject或者FileDialog。

版主您好！
一针见血啊，看出了我的意图。我确实是想获取文件夹的位置，目的是想将多达百万的图片文件连同他们的文件夹拷贝到另个指定的文件夹中，能做段程序实现吗？文件储存位置的列表在附件中。

roych

回复 sxgaobo 的帖子

我没用你的路径，而是建立了一个窗体，利用FileDialog和FileSystemObject来处理。如果目标路径已存在该文件或文件夹，则覆盖掉，详细见附件，内有相关注释。如果无法使用的话，请引用Microsoft Scripting Runtime和相应的Office库。

todaynew

sxgaobo 发表于 2011-6-13 18:05
InStrRev([a],'\')，可以查出最后一个'\'在字段A中的位置，如何查询倒数第二个'\'的位置啊？

InstrRev([a], "\",InstrRev([a], "\")-1)为倒数第2个"\"出现的位置。
注意查阅函数的用法，这样就能得到正确的解法。